Muy buenas noches, si alguien me puede ayudar a crear un macro el cual al ingresar un numero de cedula, me lo busque en una lista y me despligue la informacion que tiene en las columnas siguientes, y si la informacion esta errada me de la opcion de editarlo y si no encuentra la informacion me deje agregarlo, yo lo estaba haciendo con formulas y macros pero demanera independiente, pero nunca pude editar la informacion, las formulas que tenia eran las siguientes
Muy buenas noches, si alguien me puede ayudar a crear un macro el cual al ingresar un numero de cedula, me lo busque en una lista y me despligue la informacion que tiene en las columnas siguientes, y si la informacion esta errada me de la opcion de editarlo y si no encuentra la informacion me deje agregarlo, yo lo estaba haciendo con formulas y macros pero demanera independiente, pero nunca pude editar la informacion, las formulas que tenia eran las siguientes
[TABLE=width: 80]
[TR]
[TD=class: xl68, width: 80]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;1;FALSO)[/TD]
[/TR]
[TR]
[TD=class: xl68]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;2;FALSO)[/TD]
[/TR]
[TR]
[TD=class: xl68]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;3;FALSO)[/TD]
[/TR]
[/TABLE]
y el macro para ingresar datos era este
Sub entradas()
Dim ced As String
ced = InputBox(" CEDULA" & Chr(13))
ActiveSheet.Range("BA2").Value = ced
Dim fec As String
fec = InputBox(" FECHA" & Chr(13))
ActiveSheet.Range("Bb2").Value = fec
Dim texto1 As String
texto1 = InputBox(" NOMBRE" & Chr(13))
ActiveSheet.Range("Bc2").Value = texto1
Dim texto2 As String
texto2 = InputBox(" DIRECCION" & Chr(13))
ActiveSheet.Range("Bd2").Value = texto2
Dim texto3 As String
texto3 = InputBox(" SEXO" & Chr(13))
ActiveSheet.Range("Be2").Value = texto3
Dim texto4 As String
texto4 = InputBox(" EDAD" & Chr(13))
ActiveSheet.Range("Bf2").Value = texto4
Dim texto5 As String
nota = InputBox(" NOTAS" & Chr(13))
ActiveSheet.Range("Bg2").Value = nota
[bA2:BH2].Copy Destination:=Sheets("Hoja2").[AA65536].End(xlUp).Offset(1, 0)
Columns("AH:AH").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlDown).Select
ActiveSheet.Range("A1").Select
End Sub
Gracias por la ayuda