Jump to content

Rellenar columna con un InputBox


Go to solution Solved by Gerson Pineda,

Recommended Posts


Hola, 

Estoy intentando vía InputBox rellenar con el dato introducido una columna. Pero no consigo que lo haga desde la primera fila libre de A.

Sería pegar el dato a partir de la primera celda libre de la columna A (está en verde), en función del Nº de filas de la columna B

No consigo modificarla y se pega desde el comienzo. 

Podéis echarle un vistazo? La macro está en el ejemplo.

¡Muchísimas gracias!
    

ej_InputBox.xlsm

Link to comment
Share on other sites

Pon esto

Sub IngresaMes()

Dim MES As Variant

MES = (InputBox("Ingresar número de mes", "Formato: 1,2,3..."))

'Pegar dato a partir de la primera celda libre de la columna A, en función del Nº de filas de la columna B

With Worksheets("Hoja1")

  For I = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row
    If Cells(I, 1) = "" Then
        Cells(I, "A").Value = MES
    End If
  Next
    
End With

End Sub

Link to comment
Share on other sites

Otra vía:

Sub IngresaMes(): On Error Resume Next
Dim mes As Variant
mes = (InputBox("Ingresar número de mes", "Formato: 1,2,3..."))
With Sheets("Hoja1")
   a = .Range("A" & Rows.Count).End(xlUp).Row
   b = .Range("B" & Rows.Count).End(xlUp).Row
   Range("A" & a + 1).Resize(b - a, 1) = mes
End With
End Sub

 

Link to comment
Share on other sites

Hace 3 horas, Janlui dijo:

Aprovecho una consulta para Antoni.

Referente a: 

Rows.Count).End(xlUp).Row

En ocasiones el usuario tiene aplicado algún filtro en su hoja y esta instrucción ya no aplica correctamente. ¿Es correcto?

 

Obtienes última fila visible.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy