jebermeo

santiagomf respondió: En el código de la página "resumen" pon esto: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim aux As Variant If Target.Address <> "$A$1" Then Exit Sub ' No es la celda A1 If Target.Value = "" Then Exit Sub If...

Dante Amor respondió: Debe quedar así Sub Boton2() Set busco = Sheets("BasedeDatos").Range("A:A").Find(Range("B7"), LookIn:=xlValues, lookat:=xlWhole) If Not busco Is Nothing Then MsgBox "Ya existe ficha de este Transformador" Else Call GrabarNueva End If End Sub...

Elsa Matilde respondió: Entiendo que en la Base se agregarán cuando corresponda, en modo lineal en las filas hacia abajo. Entonces solo resta conocer la ubicación de los datos en hoja Ficha para confeccionarte la macro. Sdos y espero tus aclaraciones. No finalices aún.