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 SubEs 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 SubAsi hasta la fila 5268, pero me sale error de tipos cuando lo intento
1 Respuesta
Respuesta de Dante Amor
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 SubEl 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.
