BASE DE DATOS AUTOMATIZADA

Automatización Botón Guardar

If Range("D7") = "" Or Range("D9") = "" Or Range("D11") = "" Or Range("G7") = "" Or Range("G9") = "" Or Range("G11") = "" Then

MsgBox ("Existe Por Lo Menos Un Campo Vacío")

Exit Sub

End If

Set Cr1 = Sheets("Cr")

Set Bd2 = Sheets("Bd")

Set a = Bd2.Columns("A").Find(Cr1.[D7], lookat:=xlWhole)

If Not a Is Nothing Then

MsgBox "Este N° de Identificación Ya Existe"

Exit Sub

End If

 

Sheets("Bd").Select

Range("A3").EntireRow.Insert

Sheets("Cr").Select

Range("D7").Select

Selection.Copy

Sheets("Bd").Select

Range("A2").PasteSpecial xlPasteValues

 

Sheets("Cr").Select

Range("D9").Select

Selection.Copy

Sheets("Bd").Select

Range("B2").PasteSpecial xlPasteValues

 

Sheets("Cr").Select

Range("D11").Select

Selection.Copy

Sheets("Bd").Select

Range("C2").PasteSpecial xlPasteValues

 

Sheets("Cr").Select

Range("G7").Select

Selection.Copy

Sheets("Bd").Select

Range("D2").PasteSpecial xlPasteValues

 

Sheets("Cr").Select

Range("G9").Select

Selection.Copy

Sheets("Bd").Select

Range("E2").PasteSpecial xlPasteValues

 

Sheets("Cr").Select

Range("G11").Select

Selection.Copy

Sheets("Bd").Select

Range("F2").PasteSpecial xlPasteValues

• Segunda Opción

Bd2.Select

Range("A1").End(xlDown).Offset(1, 0).Select

ActiveCell.Offset(0, 0) = Cr1.[D7]

ActiveCell.Offset(0, 1) = Cr1.[D9]

ActiveCell.Offset(0, 2) = Cr1.[D11]

ActiveCell.Offset(0, 3) = Cr1.[G7]

ActiveCell.Offset(0, 4) = Cr1.[G9]

ActiveCell.Offset(0, 5) = Cr1.[G11]

 

AUTOMATIZACIÓN BOTON CONSULTAR

Range("D7").Copy

Sheets("Br").Select

Range("A2").PasteSpecial xlPasteValues

 

Range("B2").Copy

Sheets("Captura").Select

Range("D9").PasteSpecial xlPasteValues

 

Sheets("Br").Select

Range("C2").Copy

Sheets("Captura").Select

Range("D11").PasteSpecial xlPasteValues

 

Sheets("Br").Select

Range("D2").Copy

Sheets("Captura").Select

Range("G7").PasteSpecial xlPasteValues

 

Sheets("Br").Select

Range("E2").Copy

Sheets("Captura").Select

Range("G9").PasteSpecial xlPasteValues

 

Sheets("Br").Select

Range("F2").Copy

Sheets("Captura").Select

Range("G11").PasteSpecial xlPasteValues

AUTOMATIZACIÓN BOTON MODIFICAR

Dim Fila As Integer

Dim Final As Integer

 

Sheets("Bd").Select

For Fila = 2 To 3000

If Hoja2.Cells(Fila, 1) = "" Then

Final = Fila

Exit For

End If

Next

 

For Fila = 2 To Final

 

If Hoja2.Cells(Fila, 1) = Hoja1.Cells(7, 4) Then

           

Hoja2.Cells(Fila, 2) = Hoja1.Cells(9, 4)

Hoja2.Cells(Fila, 3) = Hoja1.Cells(11, 4)

Hoja2.Cells(Fila, 4) = Hoja1.Cells(7, 7)

Hoja2.Cells(Fila, 5) = Hoja1.Cells(9, 7)

Hoja2.Cells(Fila, 6) = Hoja1.Cells(11, 7)

 

         

Exit For

End If

Next

 

Sheets("Cr").Select

 

Range("D7,D9,D11,G7,G9,G11").Select

Selection.ClearContents

Range("D7").Select

   MsgBox ("Dato(s) Modificados Con Éxito")

 

AUTOMATIZACIÓN BOTON LIMPIAR