Modificación de Macros
Hola Amigo
tengo una consulta con las macros que me enviaste pues estas trabajan en base a la información que se introduce en una celda especifica, ahora mi consulta es si estas mismas macros puede trabajar con un Inbox es decir en lugar de ingresar el dato en una celda lo haga en un Inbox e igual me de los mismos resultados, te dejo las macros que me enviaste y espero me puedas ayudar con esta consulta
Buscar un registro
Sub buscar()
'Por.DAM
u =
Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("A8:A" & u).Find(Range("A7"))
If Not b Is Nothing Then
b.Select
Else
MsgBox "El código buscado no existe", vbCritical
Range("A7").Select
End If
End Sub
Eliminar un Registro
Sub eliminar()
'Por.DAM
u = Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("A8:A" & u).Find(Range("A7"))
If Not b Is Nothing Then
If MsgBox("Desea eliminar el registro", _
vbQuestion & vbYesNo, "ELIMINAR") = vbYes Then _
Rows(b.Row).Delete
Else
MsgBox "El código buscado no existe", vbCritical
End If
Range("A7").Select
End Sub
Muchas Gracias Amigo
1 Respuesta
Te regreso los códigos
Sub buscar2()
'Por.DAM
dato = InputBox("Código a buscar: ", "BUSCAR")
If dato = "" Then Exit Sub
u = Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("A8:A" & u).Find(dato)
If Not b Is Nothing Then
b.Select
Else
MsgBox "El código buscado no existe", vbCritical, "BUSCAR"
Range("A7").Select
End If
End Sub
Sub eliminar2()
'Por.DAM
dato = InputBox("Código a eliminar: ", "ELIMINAR")
If dato = "" Then Exit Sub
u = Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("A8:A" & u).Find(dato)
If Not b Is Nothing Then
If MsgBox("Desea eliminar el registro", _
vbQuestion & vbYesNo, "ELIMINAR") = vbYes Then _
Rows(b.Row).Delete
Else
MsgBox "El código a eliminar no existe", vbCritical, "ELIMINAR"
End If
Range("A7").Select
End SubSaludos.DAM
GRANDIOSO amigo Mil gracias por todas tus ayudas me has ayudado a hacer mi trabajo mucho pero mucho mas fácil y en menos tiempo
Mil Gracias Nuevamente
Ronny B.
