¿Copiar varias fechas de varias hojas y pegarlas en otra?
Del archivo en excel Todas las hojas que empiecen con F(y la fecha) tomar la parte de las fechas y colocarlas en la hoja de componentes al correr la macro de Generar Servicios que hace que me desglose varios renglones de cada escuela de favor los puedes ligar con el campo CCT que es el más común para hacer el barrido y a partir de la columna QUE en la hoja componentes poner las fechas por cada renglón y si hay más fechas en forma horizontal osea la segunda seria columna L solamente puede haber 12, te mando un power con imágenes.
Envíame tu archivo con ejemplos de lo que tienes y de lo que esperas como resultado
En el asunto del correo escribe tu nombre de usuario "miguel carmona"
Te anexo la macro
Sub GeneraServiciosTODOS()
'Por Dante Amor
Set h1 = Sheets("Componentes")
h1.Range(h1.Range("K2"), h1.Cells(Rows.Count, Columns.Count)).ClearContents
'
For hoja = 1 To Sheets.Count
Set h = Sheets(hoja)
If Left(h.Name, 1) = "F" Then
For Each fecha In h.Range("A12:A15, E12:E15, I12:I15")
If fecha.Value <> "" Then
nombre = h.Range("G5").Value
Set r = h1.Columns("C")
Set b = r.Find(nombre, LookAt:=xlWhole)
uc = h1.Cells(b.Row, Columns.Count).End(xlToLeft).Column + 1
If uc < Columns("K").Column Then uc = Columns("K").Column
If Not b Is Nothing Then
celda = b.Address
Do
'detalle
h1.Cells(b.Row, uc).Value = fecha.Value
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
End If
Next
End If
Next
MsgBox "Fin"
End Sub.
.Sal u dos. Dante Amor. No olvides valorar la respuesta. G raci as
.
