Macro para copiar varias columnas en una hoja sin celdas en blanco!
Para Dante amor por favor me urge la macro debe empezar a copiar las celdas en una hoja(MD) y empiezan en B13 y varían lo que quiero es que cuando en B ya no encuentre dato se pase a.la columna C13 y así hasta la K13 y los copié en una hoja(jur) empezando en la C13
1 Respuesta
Respuesta de Dante Amor
1
Envíame tu archivo y me explicas unos ejemplos con colores, es decir, me dices en una hoja qué tienes y en otra hoja me explicas cómo quieres el resultado.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “miguel carmona”
Te anexo la macro
Sub Copiar_Columnas()
'
' Por.Dante Amor
'
Application.ScreenUpdating = False
Set h2 = Sheets("jur")
h2.Range("B13:F212").Clear 'Contents
'
hojas = Array("Md", "pma", "rom", "sfr", "sil")
cols = Array("K", "H", "K", "L", "K")
cds = Array("B", "C", "D", "E", "F")
For h = LBound(hojas) To UBound(hojas)
Set h1 = Sheets(hojas(h))
col = cols(h)
cd = cds(h)
m = 13
n = 13
For j = Columns("B").Column To Columns(col).Column
fila = 13
Do While h1.Cells(fila, j) <> ""
n = n + 1
fila = fila + 1
Loop
If h1.Cells(13, j) <> "" Then
If m < 213 Then
h1.Range(h1.Cells(13, j), h1.Cells(fila - 1, j)).Copy h2.Range(cd & m)
m = n
End If
End If
Next
Next
Application.ScreenUpdating = True
MsgBox "Copiar Columnas", vbInformation, "FIN"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
