Como detener el proceso de una macro cuando encuentre una celda vacía

He creado un formato en una hoja donde pongo la fecha, el numero de documento, el solicitante "Celdas Fijas".
luego utilizo 4 columnas con el código, nombre, cantidad y costo, con filas donde ingreso los datos utilizando los siguientes códigos

Esto para las celdas fijas
Sub DATOSCLIENTE()
'COPIA DATOS DEL CLIENTE A LA HOJA Facturación
Sheets("Salidas").Range("L6").Copy
Sheets("out").Range("A5").Insert Shift:=xlDown
Sheets("Salidas").Range("L8").Copy
Sheets("out").Range("B5").Insert Shift:=xlDown
Sheets("Salidas").Range("N8").Copy
Sheets("out").Range("C5").Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Este código para las filas
Sub ARTICULO1()
'lleva a facturación
DATOSCLIENTE
Sheets("Salidas").Range("K12:N12").Copy
Sheets("out").Range("D5").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K13:N13").Copy
Sheets("out").Range("D6").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K14:N14").Copy
Sheets("out").Range("D7").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K15:N15").Copy
Sheets("out").Range("D8").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K16:N16").Copy
Sheets("out").Range("D9").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K17:N17").Copy
Sheets("out").Range("D10").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K18:N18").Copy
Sheets("out").Range("D11").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K19:N19").Copy
Sheets("out").Range("D12").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K20:N20").Copy
Sheets("out").Range("D13").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K21:N21").Copy
Sheets("out").Range("D14").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K22:N22").Copy
Sheets("out").Range("D15").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K23:N23").Copy
Sheets("out").Range("D16").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K24:N24").Copy
Sheets("out").Range("D17").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K25:N25").Copy
Sheets("out").Range("D18").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K26:N26").Copy
Sheets("out").Range("D19").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K27:N27").Copy
Sheets("out").Range("D20").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K28:N28").Copy
Sheets("out").Range("D21").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K29:N29").Copy
Sheets("out").Range("D22").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K30:N30").Copy
Sheets("out").Range("D23").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K31:N31").Copy
Sheets("out").Range("D24").Insert Shift:=xlDown
DATOSCLIENTE
Sheets("Salidas").Range("K32:N32").Copy
Sheets("out").Range("D25").Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Ahora tengo un problema que me copia las filas vacías, como puedo hacer para que se detenga en la siguiente fila vacía.
Gracias por la atención

1 Respuesta

Respuesta
1

Cambia tu macro por esta:

Sub ARTICULO1()
'Mod.Por.DAM
f = 5
For i = 12 To 32
    DATOSCLIENTE
    If Sheets("Salidas").Range("K" & i) <> "" Then
        Sheets("Salidas").Range("K" & i & ":N" & i).Copy
        Sheets("out").Range("D" & f).Insert Shift:=xlDown
    Else
        Exit For
    End If
Next
Application.CutCopyMode = False
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que busque y me traiga las filas con las coincidencias encontradas

Tengo esa macro funcionando pero me trae solo un resultado no se como hacer para indicarle a la macro que si hay varios resultados con el mismo dato me traiga todas las filas Ejemplo busco "1" y la macro me trae a la fila seleccionada toda la fila...
1 respuesta

Triplicar una fila en excel

¿Quisiera saber como hacer para triplicar una fila en excel?
1 respuesta

Cortar fila de una hoja y pegar en otra hoja en la siguiente libre

Y feliz año! Tengo un excel con 2 hojas, una con datos de pedidos antiguos y otro con datos de pedidos actualizados. Quiero hacer una macro que automáticamente copie la fila de los pedidos nuevos de la hoja 2 en la hoja 1 (al final), es decir...
1 respuesta

Macro para insertar fila según valor de una celda

Tengo dos columnas F Y G F TIENE mis Datos y G tiene las veces que quiero insertar una fila con la Informacion de toda la fila de F Franja Row F01 0 F02 2 Lo que deberia quedar F01 0 F02 F02 Y asi sucesivamente hasta encontrar una celda ""
1 respuesta

Macro. Copiar filas según condición.

Agradecería también que me ayudara en este otro macro, he separado los dos mensajes para que la respuesta no sea demasiado compleja. Tengo una hoja en la que se han introducido una serie de registros. Quisiera copiar en otra hoja sólo aquellas filas...
1 respuesta

Macro para buscar valor "#N/A" en una columna

Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código descripción 001 zanahorias. 002 cebollas. 003...
1 respuesta

Macro para pasar de renglón

Tengo un archivo de excel con más de 200 registros en la primer hoja, sin embargo, de cada registro, tengo que sacar en una hoja nueva 265 subregistros de un solo registro. Dicha macro ya la realice, el caso que lo que quiero es de que al apretarle...
1 respuesta

Macro para copiar celdas especificas de una hoja1 y guardarlas en la Hoja2

Para Dante Ante todo un gran saludo Dante, hiendo a mi pregunta, como podría realizar una macro que me copie los datos de celdas especificas de la hoja1(Repuestos) a la hoja2(Datos), e intentado realizar con la grabadora de macros y me realiza de una...
1 respuesta

Macro no funciona todas las computadoras

Otra vez acudo a tu gran ayuda y conocimiento, no se si recuerdas mi primera macro la cual era la distribución de Estados partiendo de una BD y extendiéndose en todas las hojas dependiendo del nombre de la misma. Algo curioso y que aun no eh podido...
1 respuesta