Ingresar datos desde la primera fila de la hoja
Para Dante.
Hola Dante, tu me ayudaste con este código, como hago para que en lugar de copiar los datos en la última celda vacía, empiece a copiármelos desde la primera...
Con este limpio la primera fila
Rows("5:5").Select
Selection.Copy
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Rows("5:5").ClearContents
Quiero que empiece a ingresar los datos desde esta fila para que los datos que ingrese vayan quedando de primeros en la hoja.
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("datos")
u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
dias = Array("Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo")
For i = LBound(dias) To UBound(dias)
h.Cells(u, "A") = dias(i) 'dia
h.Cells(u, "C") = TextBox3 'nombre
h.Cells(u, "E") = TextBox1 'ciudad
h.Cells(u, "F") = TextBox2 'centro de costos
h.Cells(u, "G") = TextBox4 'proyecto
h.Cells(u, "H") = TextBox5 'ubicación
u = u + 1
Next
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("datos")
'u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
dias = Array("Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo")
For i = UBound(dias) To LBound(dias) Step -1
h.Rows(5).Insert
h.Cells(5, "A") = dias(i) 'dia
h.Cells(5, "C") = TextBox3 'nombre
h.Cells(5, "E") = TextBox1 'ciudad
h.Cells(5, "F") = TextBox2 'centro de costos
h.Cells(5, "G") = TextBox4 'proyecto
h.Cells(5, "H") = TextBox5 'ubicación
u = u + 1
Next
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
