Macro buscar
Hola experto, hace pocos dìas me respondiò sobre una macro que busca un valor determinado y al frente sobre esa linea pone un valor, no he encontrado la forma para que evalue si tiene un valor y si lo tiene me muestre un mensaje determinado.
Sub Cancelar()
Sheets("Hoja2").Select
Dim t As String
Dim r As Range
t = InputBox("INGRESE EL NÚMERO DE ORDEN: ")
If Len(t) = 0 Then Exit Sub
If Application.WorksheetFunction.CountIf(Range("A:A"), t) = 0 Then
MsgBox "NO SE ENCONTRO LA ORDEN N° " & t
Sheets("Hoja1").Select
Exit Sub
End If
J = InputBox("DIGITE EL TIPO DE DOCUMENTO CON EL CUAL CANCELÓ")
X = InputBox("DIGITE EL NÚMERO DE DOCUMENTO CON EL CUAL CANCELÓ")
For Each r In Range("A1" & ":" & "A" & Application.WorksheetFunction.CountA(Range("A:A")))
If r = t Then
r.Offset(0, 15) = X
r.Offset(0, 14) = J
r.Offset(0, 13) = Date
End If
DoEvents
Next
Set r = Nothing
Sheets("Hoja1").Select
End Sub
Sub Cancelar()
Sheets("Hoja2").Select
Dim t As String
Dim r As Range
t = InputBox("INGRESE EL NÚMERO DE ORDEN: ")
If Len(t) = 0 Then Exit Sub
If Application.WorksheetFunction.CountIf(Range("A:A"), t) = 0 Then
MsgBox "NO SE ENCONTRO LA ORDEN N° " & t
Sheets("Hoja1").Select
Exit Sub
End If
J = InputBox("DIGITE EL TIPO DE DOCUMENTO CON EL CUAL CANCELÓ")
X = InputBox("DIGITE EL NÚMERO DE DOCUMENTO CON EL CUAL CANCELÓ")
For Each r In Range("A1" & ":" & "A" & Application.WorksheetFunction.CountA(Range("A:A")))
If r = t Then
r.Offset(0, 15) = X
r.Offset(0, 14) = J
r.Offset(0, 13) = Date
End If
DoEvents
Next
Set r = Nothing
Sheets("Hoja1").Select
End Sub
1 Respuesta
Respuesta de calvuch
1