Jump to content

Macro para poner GV en la ultima operación.


Recommended Posts

Estimados amigos del foro,

Agradecer de antemano su tiempo en la ayuda que me puedan dar.

A ver si alguien me puede ayudar con este fichero en el que necesito crear una macro que recorra  cada celda el rango L4 hasta el final donde hay dato (esta columna es la primera operación),

  1. por calda celda que recorra de la columna L con valor, mire hacia la celda derecha :
    1. Si la celda de la derecha M4 está vacía ponga la palabra GV
    2. Si no está vacía mire hacia la derecha N4
    3. Si N4 está vacía ponga la palabra GV
    4. Si no está vacía mire hacia la derecha O4
    5. Si O4 está vacía ponga la palabra GV
    6. Si no está vacía mire hacia la derecha P4
    7. Si P4 está vacía ponga la palabra GV
  2. En el momento que ponga la palabra GV salte hacer lo mismo anterior el recorrido en la siguiente fila, que en el ejemplo del archivo adjunto sería a la M5 y haga lo mismo hasta la 49 (que es donde está la ultima fila con datos). 

El objetivo es poner la última operación con la palabra GV, que en algunos casos será en la M, otros en la N, otros en la O y otros en la P (en función si las celdas de las columnas anteriores tiene o no tiene dato)

 

Reiterar mi agradecimiento por anticipado y reciban un saludo

 

MACRO PARA PONER GV EN ULTIMA OPERACION.xlsx

Link to comment
Share on other sites

Hace 4 horas, Antoni dijo:

Sub PonerGV() Application.ScreenUpdating = False For x = 4 To Range("L" & Rows.Count).End(xlUp).Row For y = 13 To 16 If Cells(x, y) = "GV" Then Exit For If Cells(x, y) = "" Then Cells(x, y) = "GV" Exit For End If Next Next End Sub

Millones de gracias @Antoni eres un crack

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy