estoy intentando aplicar formato a unos datos copiados desde una hoja(H1) a orta(H2), pero tengo problemas con algunos formatos:
este es el codigo que estoy utilizando:
Código: Seleccionar todo
option vbasupport 1
Sub formatos
fila=1
for col=1 to 4
Sheets("H2").Cells(fila, col) = Sheets("H1").cells(fila,col)
Sheets("H2").Cells(fila, col).NumberFormat = "dd/mm/AA"
next
End Sub
Gracias foreros,
saludos