** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Ayuda para crear un macro con bucle
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAyuda para crear un macro con bucle

 Responder Responder
Autor
Mensaje
insyse Ver desplegable
Nuevo
Nuevo


Unido: 11/Diciembre/2018
Localización: colombia
Estado: Sin conexión
Puntos: 6
Enlace directo a este mensaje Tema: Ayuda para crear un macro con bucle
    Enviado: 11/Diciembre/2018 a las 16:37
Buenos días.. 

Soy nuevo en este foro, entiendo algo de VBA y soy muy competente en excel, pero hoy necesito ayuda. 

Tengo un archivo que es generad por un programa de contabilidad, el cual crea unos subtotales de cartera, los cuales no están organizados de forma que pueda tabular. 

Necesito hacer un script para una macro, que me ayude a hacer lo siguiente... 

debe ser un bucle que revise fila por fila hasta la fila 2000... 

y en cada fila mire 
Si la celda de la columna B esta vacía Y la celda de la columna U esta llena, 
Elimine la fila y siga a la siguiente fila hasta un máximo de 2000 filas.


Agradezco mucho a quien me pueda ayudar a escribir este código de VBA para excel.. 



Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton
Estado: Sin conexión
Puntos: 3375
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 17:33
Prueba algo as'i, escrito aqui sin probar, asi que asegurate de usar una copia para probarlo


sub x()
dim n as long
'Bucle
for n = 2000 to 1 step -1
if (range("B" & n).value = "") then
if (range("U" & n).value <> "") then
    Rows(n &":" & n).Select
    Selection.Delete Shift:=xlUp
endif
endif
next n ' fin del bucle
endsub


Esto va de la fila 2000 a la primera (deber'as verificar tu los rangos reales, y si no se cumople el criterio, borra la fila, de forma que todas las filas suben un puesto, (es decir se cepilla la fila, no el contenido)

Luis
Estos son mis principios. Si no le gustan... tengo otros
Arriba
insyse Ver desplegable
Nuevo
Nuevo


Unido: 11/Diciembre/2018
Localización: colombia
Estado: Sin conexión
Puntos: 6
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 17:49
Wow... Mil y mil gracias.. funciono perfectamente 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable