Buenas amigos foristas

Tengo una macro la cual toma los datos de una hoja y con eso se llena una base de datos de una aplicacion que tenemos, en la actualidad coloco

For i = 4 To 8

session.findById("wnd[1]/usr/cmbRF02D-KTOKD").Key = objSheet.Cells(i, 35)

session.findById("wnd[1]/usr/ctxtRF02D-BUKRS").Text = objSheet.Cells(i, 36)

Next i

Lo que deseo es que en la macro si existe informacion en la fila siguiente ejecuta el proceso sino pare

Agrdezco su colaboracion

Fernando Trujillo

Deberías subir un archivo ejemplo es mas fácil, pero bueno prueba así:

For i = 4 To 8

if activecell = "" then

exit for

else

session.findById("wnd[1]/usr/cmbRF02D-KTOKD").Key = objSheet.Cells(i, 35)

session.findById("wnd[1]/usr/ctxtRF02D-BUKRS").Text = objSheet.Cells(i, 36)

end if

Next i

Riddle lo que deseo es no colocar en el for To 8, sino cambiarlo por otro comando o arreglarlo para que el vaya hasta donde haya informacion en las celdas, lo que quiero es no darle hasta tal celda, que el lo haga automatico

Gracias

DPRE.xls