Una macros que al encontrar una celda vacía en una sola columna.. Salga un msgbox
hola.....espero me ayuden
les comento: en el libro1, hoja1 tengo datos que están llenados de a:f
y en el libro2, hoja2 tengo los datos q voy a pegar desde la hoja1 pero necesito q la macro lea toda la columna a y se detenga en la celda q este vacía..osea q no tenga ningún dato
y salga un mensaje box celda vacía
espero me ayudes
edinson
1 Respuesta
Respuesta de Dante Amor
1
Con esta macro copias de la hoja1 a la hoja2 y se detiene cuando hay una celda vacía.
Sub buscabco()
'Creada por Dam
Sheets("Hoja1").Select
i = 1
Do Until Cells(i, 1) = ""
ActiveSheet.Range(Cells(i, 1), Cells(i, 6)).Copy
Sheets("Hoja2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("Hoja1").Select
i = i + 1
Loop
Sheets("Hoja1").Select
MsgBox ("Celda vacía " & "A" & i)
End Sub
