Anónimo
Condicionar Búsqueda de Datos
Tengo esta Macro
Dim Folio As Range
Set Folio = Sheets(1).Range("C1")
Sheets(1).Range("B1:B65536").ClearContents
With Sheets(1).Range("A1:A65500")
Set SiEsta = .Find(Folio, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not SiEsta Is Nothing Then
Primero = SiEsta.Address
Do
Sheets(1).Range("B65536").End(xlUp).Offset(1, 0).Value = SiEsta
Set SiEsta = .FindNext(SiEsta)
Loop While Not SiEsta Is Nothing And SiEsta.Address <> Primero
End If
End With
End Sub
¿como puedo hacer que cuando no encuentre el valor buscado me mande un mensaje?, algo asi, como: MsgBox "Registro No Encontrado" .
espero que me puedas ayudar te doy la gracias de antemano.
Dim Folio As Range
Set Folio = Sheets(1).Range("C1")
Sheets(1).Range("B1:B65536").ClearContents
With Sheets(1).Range("A1:A65500")
Set SiEsta = .Find(Folio, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not SiEsta Is Nothing Then
Primero = SiEsta.Address
Do
Sheets(1).Range("B65536").End(xlUp).Offset(1, 0).Value = SiEsta
Set SiEsta = .FindNext(SiEsta)
Loop While Not SiEsta Is Nothing And SiEsta.Address <> Primero
End If
End With
End Sub
¿como puedo hacer que cuando no encuentre el valor buscado me mande un mensaje?, algo asi, como: MsgBox "Registro No Encontrado" .
espero que me puedas ayudar te doy la gracias de antemano.
1 respuesta
Respuesta de pitcher_
1
Solo tienes que agregar antes del "End If" esto :
Else
MsgBox "Registro No Encontrado"
Si estas Perdido te envio el codigo completo :
Dim Folio As Range
Set Folio = Sheets(1).Range("C1")
Sheets(1).Range("B1:B65536").ClearContents
With Sheets(1).Range("A1:A65500")
Set SiEsta = .Find(Folio, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not SiEsta Is Nothing Then
Primero = SiEsta.Address
Do
Sheets(1).Range("B65536").End(xlUp).Offset(1, 0).Value = SiEsta
Set SiEsta = .FindNext(SiEsta)
Loop While Not SiEsta Is Nothing And SiEsta.Address <> Primero
Else ' ******** Aqui va el mensaje
MsgBox "Registro No Encontrado"
End If
End With
Cualquier consulta no dudes en preguntar. Suerte
Pitcher !
Else
MsgBox "Registro No Encontrado"
Si estas Perdido te envio el codigo completo :
Dim Folio As Range
Set Folio = Sheets(1).Range("C1")
Sheets(1).Range("B1:B65536").ClearContents
With Sheets(1).Range("A1:A65500")
Set SiEsta = .Find(Folio, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not SiEsta Is Nothing Then
Primero = SiEsta.Address
Do
Sheets(1).Range("B65536").End(xlUp).Offset(1, 0).Value = SiEsta
Set SiEsta = .FindNext(SiEsta)
Loop While Not SiEsta Is Nothing And SiEsta.Address <> Primero
Else ' ******** Aqui va el mensaje
MsgBox "Registro No Encontrado"
End If
End With
Cualquier consulta no dudes en preguntar. Suerte
Pitcher !