Ayuda macro copiar y pegar
Saludos señor gonzales espero me pueda ayudar,
mi problema es el siguiente, la verdad no soy
muy bueno en esto de las macros pero necesito hacer
una macro que de una tabla de datos dependiendo
el día lo que diga y la hora me los copie a otra hoa
en excel, ademas de que si ya hay datos que no sobrescriba más o menos así
Hoja de donde están los datos
hoja_datos
A1 B1 C3 D4
Día, Nombre, Horario entrada, Descripción
3/3/09 rene 7 rene gomez
4/3/09 anna 9 anna gomez
5/3/09 lui 6 luis teo
necesito que se copie en la siguiente tabla dependiendo del nombre, la hora de entrada y la fecha
Mes Marzo Dia 1, Dia 2, Dia 3, Dia 4, Dia5
Dia y fecha
De 6 a 7am rene luis
De 8 a 9am anna
De 9 a 10 am
Espero me puedan ayudar ya realice una macro que sirve muy bien para eliminar los espacios muertos
For ag = 12 To 107
Range("AG" & ag).Select
If (ActiveCell.Value = "") Then
ActiveCell.Value = "no-entrada"
End If
Next ag
Esto es parte del código que creo que me sirve pero hasta el momento no me ha
funcionado muy bien
Worksheets("Hoja4").Activate
Fin = 100
Range("A2").Select
For x = 2 To Fin
Cells(x, 1).Select
If (ActiveCell.Value = "3") Then
Worksheets("hoja_datos").Activate
For celda = 12 To 17
Range("E" & celda).Select
If (ActiveCell.Value = "") Then
ActiveCell.Value = "rene"
End If
Next celda
End If
Next x
End
Espero que me haya entendido y me pueda ayudar, de ante mano muchísimas gracias por su tiempo, bye
mi problema es el siguiente, la verdad no soy
muy bueno en esto de las macros pero necesito hacer
una macro que de una tabla de datos dependiendo
el día lo que diga y la hora me los copie a otra hoa
en excel, ademas de que si ya hay datos que no sobrescriba más o menos así
Hoja de donde están los datos
hoja_datos
A1 B1 C3 D4
Día, Nombre, Horario entrada, Descripción
3/3/09 rene 7 rene gomez
4/3/09 anna 9 anna gomez
5/3/09 lui 6 luis teo
necesito que se copie en la siguiente tabla dependiendo del nombre, la hora de entrada y la fecha
Mes Marzo Dia 1, Dia 2, Dia 3, Dia 4, Dia5
Dia y fecha
De 6 a 7am rene luis
De 8 a 9am anna
De 9 a 10 am
Espero me puedan ayudar ya realice una macro que sirve muy bien para eliminar los espacios muertos
For ag = 12 To 107
Range("AG" & ag).Select
If (ActiveCell.Value = "") Then
ActiveCell.Value = "no-entrada"
End If
Next ag
Esto es parte del código que creo que me sirve pero hasta el momento no me ha
funcionado muy bien
Worksheets("Hoja4").Activate
Fin = 100
Range("A2").Select
For x = 2 To Fin
Cells(x, 1).Select
If (ActiveCell.Value = "3") Then
Worksheets("hoja_datos").Activate
For celda = 12 To 17
Range("E" & celda).Select
If (ActiveCell.Value = "") Then
ActiveCell.Value = "rene"
End If
Next celda
End If
Next x
End
Espero que me haya entendido y me pueda ayudar, de ante mano muchísimas gracias por su tiempo, bye
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1