Registros automáticos

Escribe en B3: =SI(A3>"";B2;"") y Copia/Pega hacia abajo hasta donde
necesites.

Saludos desde Tenerife (Islas Canarias).
************************************************
"GRIEGO59" escribió en el mensaje
news:

Hola!
Tengo una hoja "préstamos" y cada cierto tiempo necesito registrar los
abonos de los clientes. Este registro requiere que yo escriba el nombre
(de
todos los clientes cuyo saldo sea diferente de "0"), la fecha de pago (es
la
misma fecha para todos los clientes), el monto de los abonos y otros
datos.

Pienso que puede automatizarse el escribir los nombres (a1) de todos los
clientes con saldo (m1) diferente de cero y la fecha (b1) que es la misma,
por ejemplo presionando un botón "registrar abonos" que solicite la fecha
que
se repite con cada nombre. Luego yo podría completar manualmente el resto
de
la información que es diferente para cada cliente.

Alguien podría ayuarme?

Las columnas son:
a1 título, nombre
b1 título, fecha
c1:n1 otros títulos de columnas
m1 título, Saldo

Gracias anticipadas
Griego59

Si lo quieres por código, en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 2 Then _
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value
End Sub


Saludos desde Tenerife (Islas Canarias).
************************************************
"AnSanVal" escribió en el mensaje
news:%

Escribe en B3: =SI(A3>"";B2;"") y Copia/Pega hacia abajo hasta donde
necesites.

Saludos desde Tenerife (Islas Canarias).
************************************************
"GRIEGO59" escribió en el mensaje
news:

Hola!
Tengo una hoja "préstamos" y cada cierto tiempo necesito registrar los
abonos de los clientes. Este registro requiere que yo escriba el nombre
(de
todos los clientes cuyo saldo sea diferente de "0"), la fecha de pago (es
la
misma fecha para todos los clientes), el monto de los abonos y otros
datos.

Pienso que puede automatizarse el escribir los nombres (a1) de todos los
clientes con saldo (m1) diferente de cero y la fecha (b1) que es la
misma,
por ejemplo presionando un botón "registrar abonos" que solicite la fecha
que
se repite con cada nombre. Luego yo podría completar manualmente el
resto de
la información que es diferente para cada cliente.

Alguien podría ayuarme?

Las columnas son:
a1 título, nombre
b1 título, fecha
c1:n1 otros títulos de columnas
m1 título, Saldo

Gracias anticipadas
Griego59

Muchas gracias!!! : )

Y se puede hacer que escriba automáticamente los nombres que aparecen en la
columna "a" además de la fecha?

Es decir, en la columna "a" tengo los nombres de los clientes que se repiten
tantas veces como transaciones hagan. Y cuando me toca registrar sus abonos,
debo revisar la columna "a" y escribir todos los nombres además la fecha en
la columna "b" para poder completar luego las otras columnas.

Ojalá pueda hacerse esto!!!

Saludos,
Griego59
"AnSanVal" escribió:

Si lo quieres por código, en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 2 Then _
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value
End Sub


Saludos desde Tenerife (Islas Canarias).
************************************************
"AnSanVal" escribió en el mensaje
news:%
> Escribe en B3: =SI(A3>"";B2;"") y Copia/Pega hacia abajo hasta donde
> necesites.
>
> Saludos desde Tenerife (Islas Canarias).
> ************************************************
> "GRIEGO59" escribió en el mensaje
> news:
>> Hola!
>> Tengo una hoja "préstamos" y cada cierto tiempo necesito registrar los
>> abonos de los clientes. Este registro requiere que yo escriba el nombre
>> (de
>> todos los clientes cuyo saldo sea diferente de "0"), la fecha de pago (es
>> la
>> misma fecha para todos los clientes), el monto de los abonos y otros
>> datos.
>>
>> Pienso que puede automatizarse el escribir los nombres (a1) de todos los
>> clientes con saldo (m1) diferente de cero y la fecha (b1) que es la
>> misma,
>> por ejemplo presionando un botón "registrar abonos" que solicite la fecha
>> que
>> se repite con cada nombre. Luego yo podría completar manualmente el
>> resto de
>> la información que es diferente para cada cliente.
>>
>> Alguien podría ayuarme?
>>
>> Las columnas son:
>> a1 título, nombre
>> b1 título, fecha
>> c1:n1 otros títulos de columnas
>> m1 título, Saldo
>>
>> Gracias anticipadas
>> Griego59
>
>

Si no aportas mas datos ... :-(( ... yo no se como tienes tus datos ni que
pretendes.
¿Como sabemos lo de las transaciones?, ¿Donde se copian los nombres y
dependiendo "de que" es uno u otro nombre?, etc.

Saludos desde Tenerife (Islas Canarias).
************************************************
"GRIEGO59" escribió en el mensaje
news:

Muchas gracias!!! : )

Y se puede hacer que escriba automáticamente los nombres que aparecen en
la
columna "a" además de la fecha?

Es decir, en la columna "a" tengo los nombres de los clientes que se
repiten
tantas veces como transaciones hagan. Y cuando me toca registrar sus
abonos,
debo revisar la columna "a" y escribir todos los nombres además la fecha
en
la columna "b" para poder completar luego las otras columnas.

Ojalá pueda hacerse esto!!!

Saludos,
Griego59
"AnSanVal" escribió:

Si lo quieres por código, en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 2 Then _
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value
End Sub


Saludos desde Tenerife (Islas Canarias).
************************************************
"AnSanVal" escribió en el mensaje
news:%
> Escribe en B3: =SI(A3>"";B2;"") y Copia/Pega hacia abajo hasta
> donde
> necesites.
>
> Saludos desde Tenerife (Islas Canarias).
> ************************************************
> "GRIEGO59" escribió en el mensaje
> news:
>> Hola!
>> Tengo una hoja "préstamos" y cada cierto tiempo necesito registrar los
>> abonos de los clientes. Este registro requiere que yo escriba el
>> nombre
>> (de
>> todos los clientes cuyo saldo sea diferente de "0"), la fecha de pago
>> (es
>> la
>> misma fecha para todos los clientes), el monto de los abonos y otros
>> datos.
>>
>> Pienso que puede automatizarse el escribir los nombres (a1) de todos
>> los
>> clientes con saldo (m1) diferente de cero y la fecha (b1) que es la
>> misma,
>> por ejemplo presionando un botón "registrar abonos" que solicite la
>> fecha
>> que
>> se repite con cada nombre. Luego yo podría completar manualmente el
>> resto de
>> la información que es diferente para cada cliente.
>>
>> Alguien podría ayuarme?
>>
>> Las columnas son:
>> a1 título, nombre
>> b1 título, fecha
>> c1:n1 otros títulos de columnas
>> m1 título, Saldo
>>
>> Gracias anticipadas
>> Griego59
>
>

Es así:

La hoja “préstamos” tiene varias columnas, entre ellas, las siguientes:

A B F
M
Nombre Fecha Abonos Saldo
alicia 14/03/2007 350.000,00 350.000,00
alicia 30/03/2007 0,00 350.000,00
ana 14/03/2007 200.000,00 200.000,00
ana 30/03/2007 -80.000,00 120.000,00
petra 14/06/2007 -10.000,00 -10.000,00

Están ordenados por nombre y puede verse su saldo actual en la columna M en
la última fila de cada nombre.

Como te muestro en este ejemplo, cada abono de cada cliente se registra en
una fila. Por consiguiente, los nombres de los clientes se repiten cada vez
que ellos pagan. Como puedes ver, todos pagan en la misma fecha. Los nombres
los escribo en la columna A, la fecha en la columna B, y en la columna C
hasta la columna L escribo otros datos más relativos con esos abonos.

Para el 16 de abril todos los clientes tendrán que pagar un abono, yo no sé
cual es el monto que ellos van a abonar, pero sí se que todos los que tienen
un saldo actual (columna M, última fila de cada nombre) distinto de cero,
pagarán un abono.
Por consiguiente tendré que escribir en la columna A todos los nombres de
las personas que van a pagar, es decir, Alicia, ana, petra … y todos los
demás nombres que aparecen en mi tabla y cuyo saldo es diferente de “cero” y
en la columna B tendré que escribir la fecha 16-04-2007 y en el resto de las
columnas tendré que escribir el resto de la información.
El código que me diste, es fenomenal, porque al escribir el nombre, aparece
automáticamente la fecha.
Sería genial, que el día 16-04-2007 cuando yo tenga que registrar todos los
pagos de ese día, al presionar un botón, se escriban en la columna A
automáticamente todos los nombres cuyo saldo sea diferente de cero y en la
columna B la fecha 16-04-2007, de manera que yo solamente tenga que completar
el resto de la información de las otras columnas. Luego el 26-04-2007 cuando
los clientes tengan que hacer otro abono, haría lo mismo, y así el resto de
los meses.

Gracias por tu ayuda,
Griego59


"AnSanVal" escribió:

Si no aportas mas datos ... :-(( ... yo no se como tienes tus datos ni que
pretendes.
¿Como sabemos lo de las transaciones?, ¿Donde se copian los nombres y
dependiendo "de que" es uno u otro nombre?, etc.

Saludos desde Tenerife (Islas Canarias).
************************************************
"GRIEGO59" escribió en el mensaje
news:
> Muchas gracias!!! : )
>
> Y se puede hacer que escriba automáticamente los nombres que aparecen en
> la
> columna "a" además de la fecha?
>
> Es decir, en la columna "a" tengo los nombres de los clientes que se
> repiten
> tantas veces como transaciones hagan. Y cuando me toca registrar sus
> abonos,
> debo revisar la columna "a" y escribir todos los nombres además la fecha
> en
> la columna "b" para poder completar luego las otras columnas.
>
> Ojalá pueda hacerse esto!!!
>
> Saludos,
> Griego59
> "AnSanVal" escribió:
>
>> Si lo quieres por código, en el módulo de la hoja:
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Column = 1 And Target.Row > 2 Then _
>> Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value
>> End Sub
>>
>>
>> Saludos desde Tenerife (Islas Canarias).
>> ************************************************
>> "AnSanVal" escribió en el mensaje
>> news:%
>> > Escribe en B3: =SI(A3>"";B2;"") y Copia/Pega hacia abajo hasta
>> > donde
>> > necesites.
>> >
>> > Saludos desde Tenerife (Islas Canarias).
>> > ************************************************
>> > "GRIEGO59" escribió en el mensaje
>> > news:
>> >> Hola!
>> >> Tengo una hoja "préstamos" y cada cierto tiempo necesito registrar los
>> >> abonos de los clientes. Este registro requiere que yo escriba el
>> >> nombre
>> >> (de
>> >> todos los clientes cuyo saldo sea diferente de "0"), la fecha de pago
>> >> (es
>> >> la
>> >> misma fecha para todos los clientes), el monto de los abonos y otros
>> >> datos.
>> >>
>> >> Pienso que puede automatizarse el escribir los nombres (a1) de todos
>> >> los
>> >> clientes con saldo (m1) diferente de cero y la fecha (b1) que es la
>> >> misma,
>> >> por ejemplo presionando un botón "registrar abonos" que solicite la
>> >> fecha
>> >> que
>> >> se repite con cada nombre. Luego yo podría completar manualmente el
>> >> resto de
>> >> la información que es diferente para cada cliente.
>> >>
>> >> Alguien podría ayuarme?
>> >>
>> >> Las columnas son:
>> >> a1 título, nombre
>> >> b1 título, fecha
>> >> c1:n1 otros títulos de columnas
>> >> m1 título, Saldo
>> >>
>> >> Gracias anticipadas
>> >> Griego59
>> >
>> >
>>
>>
>>