Programación de rangoexcel

Si hoja activa. Celda(I,3). value = " "Entonces" "El requisito previo ya existe

Cambie lo siguiente:

Public Sub OpenExcell()

Dim var es un número entero

Marcar I como un número entero

Rango ("F2"). Escoger

Seleccionar. Copiar

var = Range(" F2 ")

Libro de ejercicios. Abrir "C:\Skid.xls"

i = 2

Ejecutado al activar la hoja de trabajo. Celda(I,3). valor lt gt""

i = i 1

anillo

celda(I, 3). valor = var

Aplicar. CutCopyMode = False

Libro de trabajo("Skid.xls"). Cerrar(verdadero)

Ajuste final