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

hola [de nuevo], Ivan !

=>perdon<= me hizo falta 'indicar' que el codigo 'funciona' cuando...
- se hace doble-click en las celdas 'F2' y/o 'G2' de la hoja2
[creo que mejor me voy a dormir ya...] :)))

¿comentas?
saludos,
hector.

Asumiendo que tu eres la persona que esta diseñando la hoja me tomo la libertad
de hacer un par de recomendaciones sobre el diseño de tu hoja:

1. Utiliza la hoja1 para grabar las facturas y la hoja 2 para grabar todos los
pagos, tanto de credito como de contado. De esta manera la hoja 2 te servira
para tener los datos de todo el efectivo recibido durante el dia y donde puedes
controlar todos los recibos con su numeracion consecutiva (no debe de haber
saltos en la numeracion). Esta hoja es de gran ayuda para los reportes diarios
de caja y la contabilidad.
2. En la hoja2 solo necesitas las columnas FACTURA, FECHA DE PAGO, NoRECIBO y
CANTIDAD.
3. En la hoja1 pones las formulas de Buscarv usando FACTURA para la traer de la
hoja2 la FECHA del recibo, el NoRECIBO y la CANTIDAD. De esta manera tanto pagos
de contado y credito son reflejados de manera automatica en la hoja1.

Lo anterior funciona bien si el cliente de credito te paga la factura completa
dado que no tendra mas de un recibo por factura. En caso de que te haga pagos
parciales de una factura en varios recibos lo mejor es hacer una tabla dinamica
de la hoja2. En esta tabla dinamica pones el el area de FILA los campos FACTURA
y NoRECIBO, y el area de DATOS la FECHA DE PAGO y la CANTIDAD. Define que la
fecha no la sume sino que ponga el Maximo, entonces te dara la fecha del ultimo
abono y que la CANTIDAD te la sume.

Una vez hecha la tabla dinamica haz que las formulas de buscarv de la hoja1
busquen en la tabla dinamica el numero de factura y te pongan los datos que
necesitas.

Saludos,

David Canales



"Ivan" wrote in message
news:

Hola a todos!!!
Tengo un " Gran " problema, como incertar datos en una celda, ( en la hoja 1

tengo la captura de unas ventas, las que se pagan al contado, estan llenas todas
las celdas, las que se da credito quedan las celdas en blanco como F1 y G1 de la
sig lista

A B C D E

F G

CLIENTE FECHA SERVICIO FACTURA CANTIDAD NoRECIBO FECHA DE PAGO
1 Cte1 20 ene 2 157 100 _____

___________

2 Cte2 18 abr 5 158 120 245

19 abr

3 Cte3 28 abr 3 159 50 _____

__________

4 Cte4 16 may 7 160 300 _____

__________

5 Cte5 22 may 5 161 120 246

22 may

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 _____

__________

lugar donde yo puedo insertar el recibo con el que pagan la factura a credito

y la fecha

Pero no se como insertar estos nuevos campor (los que estaban vacios en la

hoja 1 los cuales son el nO 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

Agradecere de antemano cualquier sugerencia