Macros en Excel
Buenas tengo adaptada la siguiente macro, ocurre lo siguiente me funciona solo cuando tengo 2 o más filas con datos, porque con una sola se me hace indefinido no se como hacer para que aparezca el mensaje solo hasta que encuentre filas con datos, y además quiero que en la pregunta "Ingrese numero de impresión correspondiente, muestre dentro del mensaje un valor que tiene la columna DE en esa misma fila donde se esta guardando el valor.. Por fa si alguien puede ayudarme
Sub Macro2()
Dim celda As Range
variable5 = 1
For Each celda In ActiveSheet.Range("E1", Range("E1").End(xlDown))
Range("E" & variable5).Select
celda.Value = InputBox("Ingrese número de impresión correspondiente: ")
variable5 = variable5 + 1
Next celda
'
End Sub
Sub Macro2()
Dim celda As Range
variable5 = 1
For Each celda In ActiveSheet.Range("E1", Range("E1").End(xlDown))
Range("E" & variable5).Select
celda.Value = InputBox("Ingrese número de impresión correspondiente: ")
variable5 = variable5 + 1
Next celda
'
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
Estas son las líneas que necesitas para encontrar la última fila, hacia abajo. Para tu caso es mejor que la dejes en una variable :
If Range("E1").Offset(1, 0) <> "" Then
'si la celda E2 no está vacía se seleccionará hasta la última con datos
libre = Range("E1").End(xlDown).row 'seleciona desde E1hacia abajo
Else
'se seleccionará solamente la celda inicial
libre = 1
End If
For Each celda In ActiveSheet.Range("E1:E" & libre)
If Range("E1").Offset(1, 0) <> "" Then
'si la celda E2 no está vacía se seleccionará hasta la última con datos
libre = Range("E1").End(xlDown).row 'seleciona desde E1hacia abajo
Else
'se seleccionará solamente la celda inicial
libre = 1
End If
For Each celda In ActiveSheet.Range("E1:E" & libre)
