Código para Eliminar Fila Excel - VB
Tengo el siguiente código que identifica una fila específica en una Base de Datos.
Que código complementario puedo utilizar para eliminar esta fila de la hoja de Excel
Por su colaboración mil gracias
saludos...
Private Sub btnEliminaMaterial2_Click()
'Busca Registro en la BD
Dim RegistroBuscarPDM As String
RegistroBuscarPDM = txbCodigoMaterialPDM2.Value
Sheets("BD").Select
Columns("A:A").Select
Selection.Find(What:=RegistroBuscarPDM, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
end sub
1 Respuesta
Va la macro
Private Sub btnEliminaMaterial2_Click()
'Busca Registro en la BD
Dim RegistroBuscarPDM As String
RegistroBuscarPDM = txbCodigoMaterialPDM2.Value
Set h = Sheets("BD")
'
Set r = Columns("A")
Set b = r.Find(RegistroBuscarPDM, LookAt:=xlPart)
If Not b Is Nothing Then
Rows(b.Row).Delete
Else
MsgBox "Registro no encontrado"
End If
End Sub
No recibí comentarios puedes finalizar valorando saludos!
Adriel Funciona bien.. muchas gracias, no había valorado por temas de tiempo...
saludos..
JForero
Ya está bien..
