Extraer y copiar datos a otra hoja (diferentes filas y columnas)
"para Dante Amor"
Buenos días, tengo una pregunta, tengo una hoja de Excel, que tiene varios datos, el problema que tengo, es que quiero extraer esos datos, y pegarlos en otra hoja. Adjunto una imagen para que puedan ver el problema. Los datos que están en amarillo en la parte izquierda, son los que necesito extraer, así es como los genera el programa y la tabla que aparece al lado derecho, es como quiero que aparezcan ordenados ya en la nueva hoja.
2 Respuestas
Respuesta de Dante Amor
1
Envíame un archivo con tus datos para identificar todos los posibles casos.
En el asunto pon tu nombre de usuario.
¡Gracias! Te envié la información como la solicitaste.
Saludos.
Te anexo la macro
Sub Extraer_Datos()
'Por. Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Datos")
Set h2 = Sheets("Reporte")
'
h2.Rows("2:" & Rows.Count).ClearContents
j = 2
For i = 5 To h1.Range("A" & Rows.Count).End(xlUp).Row
dato = h1.Cells(i, "A")
If dato <> "" And dato <> "Account" And Not IsNumeric(Left(dato, 1)) Then
If h1.Cells(i, "A").Font.Underline = 2 Then
cuenta = h1.Cells(i, "A")
h2.Cells(j, "B") = h1.Cells(i, "A")
Else
h2.Cells(j, "A") = h1.Cells(i, "A")
h2.Cells(j, "B") = cuenta
h2.Cells(j, "C") = h1.Cells(i, "C")
h2.Cells(j, "D") = h1.Cells(i, "E")
h2.Cells(j, "E") = h1.Cells(i, "F")
h2.Cells(j, "F") = h1.Cells(i, "G")
j = j + 1
End If
End If
Next
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub.
. S aludos. Dante Amor. R ecuerda valorar la respuesta. G racias
.
Respuesta de Programar Excel
1
