Forums Últimos mensajes - Powered by IBM
 

Buscar última fila con datos

24/08/2008 - 23:08 por JForero | Informe spam
Buen día grupo,
Tengo un ComboBox con dos opciones para que el usuario escoja.

Si escoje la opción "Actualización", se deben llenar automáticamente unas
celdas cuyos datos se encuentran en otra hoja de cálculo... esto lo estoy
haciendo de la siguiente manera

Private Sub cmbClaseTransaccion_DropButtonClick()

'Si clase transacción es Diferente a Emisión Original, llenar los datos
de la póliza
If cmbClaseTransaccion.Value <> "Emisión Original" Then
Dim x As Boolean
'Busca número de póliza en la hoja Dt_Producción
For Each Celda In Worksheets("Dt_Producción").Range("c2:c100").Cells
If Worksheets("Producción").Range("b6") = Celda.Value Then
'Comienza a traer los datos al formulario
cmbCentroCosto.Value =
Worksheets("Dt_Producción").Cells(Celda.Row, 2).Value
cmbCompaniaSeguros.Value =
Worksheets("Dt_Producción").Cells(Celda.Row, 5).Value
Worksheets("Producción").Range("b9") =
Worksheets("Dt_Producción").Cells(Celda.Row, 6).Value

el problema es que estiy escogiendo un rango que va desde 2 hasta 100 con el
código que menciono entre paréntesis (For Each Celda In
Worksheets("Dt_Producción").Range("c2:c100").Cells)

Como puedo hacer que me recorra todos los registros o filas no vacias, ya
que cuando pase de 100 me tocaría modificar el código??

Mil gracias por la colaboración

Jorgef
 

Leer las respuestas

#1 MRoCFe
25/08/2008 - 02:58 | Informe spam
Hola! Jorge. Puedes reemplazar
Range("c2:c100")

por:
Range([C2], [C2].End(xlDown))

Saludos, Cacho.

Preguntas similares