Macro para poner GV en la ultima operación.

[Dinkys]

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

[Antoni]

Aquí está la macro:

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

 

[Dinkys]

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