Macro que copie automáticamente días de la semana
Necesito una macro que me ingrese automáticamente los días de la semana.
Yo ingreso ciertos datos desde un formulario,
Necesito que me escriba los días de la semana de lunes a domingo y al lado de cada día me copie los mismos datos:
Es decir que para cada trabajador que yo ingrese, me lo programe igual para toda la semana.
El ejemplo lo realicé manual para mostrar como debe quedar.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia el nombre de la hoja y los textbox por tus datos.
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'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
