Si MsgBox y coincidir en el mensaje

Tengo esta macro, quisiera que me recorriera toda la columna B y coincidiera en el msbox con la A

Sub alarma ()
If [B2] <= 1 Then MsgBox ("Pedir" & " " & [A2])
End Sub

Es decir

Sub alarma ()
If [B2] <= 1 Then MsgBox ("Pedir" & " " & [A2])
If [B3] <= 1 Then MsgBox ("Pedir" & " " & [A3])
If [B4] <= 1 Then MsgBox ("Pedir" & " " & [A4])
If [B5] <= 1 Then MsgBox ("Pedir" & " " & [A5])
If [B6] <= 1 Then MsgBox ("Pedir" & " " & [A6])
End Sub

Asi hasta la fila 5268, pero me sale error de tipos  cuando lo intento

1 respuesta

Respuesta
2

Para recorrer la columna B:

Sub alarma()
  Dim i As Long
  For i = 2 To 5268
    If Range("B" & i).Value <= 1 Then
      MsgBox "Pedir " & Range("B" & i).Address
    End If
  Next
End Sub

El problema con lo anterior, es que si tienes 100 celdas que cumplan la condición, te va a aparecer 100 veces el msgbox.


Tienes pendiente valorar:

Exportar en la carpeta creada, no funciona

[No olvides valorar las respuestas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas