Insertar DATO

hola, Ivan !

... en la hoja No 2, utilizo la funcion Buscarv y puedo llegar a tener una determinada fila, por ejemplo
3 Cte3 28 abr 3 159 50 _____ __________
... donde yo puedo insertar el recibo con el que pagan la factura a credito y la fecha
... como insertar estos nuevos campor (los que estaban vacios en la hoja 1 ... n° de recibo y fecha de pago )
la hoja 1 esta protegida para no poder hacerlo en forma manual, por lo cual esto tiene que ser desde la hoja2

[creo que...] faltan detalles 'finos' para 'ajustar' al 100% el 'funcionamiento' ;)
para 'empezar'... una 'posible' forma [de entre otras que pudieran surgir con mas detalles] seria...
copia lo siguiente en el modulo de codigo ->de la hoja2<- [click-derecho sobre el nombre / ver codigo...]

saludos,
hector.

los supuestos que estoy considerando son los siguientes...
[hoja1] fila 1... los titulos
rango de datos... 'A2:G[n]'
columnas 'a credito'... 'F' y 'G' [n° de recibo y fecha de pago]
[hoja2] el mismo 'arreglo' [de columnas] que hoja1
=>solo se 'usa' la fila 2<= y... YA tiene las formulas [buscarv] por lo que no 'conviene' modificarlas ;)
en el modulo de codigo de hoja1 ==Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("f2:g2")) Is Nothing Then GoTo Fin
If Target > 0 Then GoTo Fin
Dim Listado As String, Filas As Long, Recibo As String, Fecha As String
With Worksheets("Hoja1")
Listado = .Range(.Range("a2"), .Range("a65536").End(xlUp)).Address
Filas = Evaluate("Index(Hoja1!" & Listado & ",Match(a2,Hoja1!" & Listado & ",0))")
Select Case Target.Address
Case "$F$2"
Recibo = Trim(InputBox("Indica el número de recibo", "Actualizar datos"))
If Recibo = "" Then GoTo Fin
.Range("f1").Offset(Filas) = Recibo
Case "$G$2"
Fecha = Trim(InputBox("Indica la fecha de pago", "Actualizar datos", Date))
If Fecha = "" Then GoTo Fin
.Range("g1").Offset(Filas) = CDate(Fecha)
End Select
End With
Fin:
Cancel = True
End Sub