Realizar una programación mensual de trabajadores
Para Dante Amor
Tu me ayudaste con la programación semanal de trabajadores, quizá ahora me puedas ayudar cuadrando la macro para que me genere programación de un mes, es decir no solo una semana sino 4 semanas de una vez.
For i = UBound(dias) To LBound(dias) Step -1
h1.Rows(2).Copy
h1.Rows(2).Insert Shift:=xlDown
h1.Cells(2, "A") = dias(i)
h1.Cells(2, "B") = ced
h1.Cells(2, "C") = Cmbxnombre
h1.Cells(2, "D") = tel
h1.Cells(2, "E") = Cmbxciudad
h1.Cells(2, "F") = Cmbxcargo
h1.Cells(2, "G") = Cmbxobra
h1.Cells(2, "H") = Cmbxubic
h1.Cells(2, "I") = DTfecini
h1.Cells(2, "J") = DTfecfin
h1.Cells(2, "K") = DThring
h1.Cells(2, "L") = DThrsal
h1.Cells(2, "M") = CDate(Cmbxtmpdesc)
h1.Cells(2, "N") = Txbxobser
h1.Cells(2, "O") = ciuorgtr
h1.Cells(2, "P") = ciuorgob
h3.Rows(6).Copy
h3.Rows(6).Insert Shift:=xlDown
h3.Cells(6, "A") = dias(i)
h3.Cells(6, "B") = ced
h3.Cells(6, "C") = Cmbxnombre
h3.Cells(6, "D") = DTfecini
h3.Cells(6, "E") = DTfecfin
h3.Cells(6, "F") = DThring
h3.Cells(6, "H") = DThrsal
h3.Cells(6, "G") = CDate(Cmbxtmpdesc)
u = u + 1
DTfecini = DateAdd("d", -1, DateValue(DTfecini))
DTfecfin = DateAdd("d", -1, DateValue(DTfecfin))
Next
1 respuesta
Respuesta de Dante Amor
1
Hola Dante.
Ya te envié el correo.
Gracias.
Te anexo el código
'Ingresa programación día a día en hoja programación
For j = 1 To 4
For i = UBound(dias) To LBound(dias) Step -1
h1.Rows(2).Copy
h1.Rows(2).Insert Shift:=xlDown
h1.Cells(2, "A") = dias(i)
h1.Cells(2, "B") = ced
h1.Cells(2, "C") = Cmbxnombre
h1.Cells(2, "D") = tel
h1.Cells(2, "E") = Cmbxciudad
h1.Cells(2, "F") = Cmbxcargo
h1.Cells(2, "G") = Cmbxobra
h1.Cells(2, "H") = Cmbxubic
h1.Cells(2, "I") = DTfecini
h1.Cells(2, "J") = DTfecfin
h1.Cells(2, "K") = DThring
h1.Cells(2, "L") = DThrsal
h1.Cells(2, "M") = CDate(Cmbxtmpdesc)
h1.Cells(2, "N") = Txbxobser
h1.Cells(2, "O") = ciuorgtr
h1.Cells(2, "P") = ciuorgob
h3.Rows(6).Copy
h3.Rows(6).Insert Shift:=xlDown
h3.Cells(6, "A") = dias(i)
h3.Cells(6, "B") = ced
h3.Cells(6, "C") = Cmbxnombre
h3.Cells(6, "D") = DTfecini
h3.Cells(6, "E") = DTfecfin
h3.Cells(6, "F") = DThring
h3.Cells(6, "H") = DThrsal
h3.Cells(6, "G") = CDate(Cmbxtmpdesc)
u = u + 1
DTfecini = DateAdd("d", -1, DateValue(DTfecini))
DTfecfin = DateAdd("d", -1, DateValue(DTfecfin))
Next
Next
