Learn how to create a DATABASE in Excel with a form and a different style. DATABASE. #Database #ExcelDatabase #ExcelForm
Source code:
Sub eliminar()
dato = InputBox("Qué código desea eliminar ?")
If dato = "" Then Exit Sub
Set busqueda = ActiveSheet.Range("B:B").Find(dato, LookIn:=xlValues, Lookat:=xlWhole)
If busqueda Is Nothing Then
MsgBox "DATO NO ENCONTRADO!"
Else
Rows(busqueda.Row).Select
pregunta = MsgBox("Está seguro que quiere eliminar?", vbOKCancel, "El Tío Tech")
If pregunta = 2 Then Exit Sub
Rows(busqueda.Row).EntireRow.Delete
End If
End Sub
📢 Suscríbete a mi otro canal:
bit.ly/MiguelVela
🤗 Visita nuestras redes sociales:
Sitio web: www.tiotech.net
www.eltiotech.com
Facebook: / eltiotechh
Instagram: / luismiguelvelavela
💌 Únete a nuestro canal de Telegram:
t.me/eltiotech (chat, noticias y más)
🟩 Grupo de ayuda Excel:
/ excelayudas
🟦 Grupo de ayuda Word:
/ 2954410744838915
13 июл 2024