Copiar en la primera línea no usada de otra hoja

12/10/2007 - 01:04 por GRIEGO59 | Informe spam

Hola!
Tengo una hoja “ingresos”
Con los campos:
A2 Nombre
B2 Fecha
A4 Monto
A5 Guardar

Y otra hoja “clientes”
Con los títulos:
A1 Nombre
B1 Activo
C1 Fecha
D1 Valor histórico
E1 Valor actual
F1 Monto

Quisiera hacer un código que al presionar “enter” cuando el cursor esté
ubicado en la celda a5 de la hoja “ingresos” se copie el contenido de las
celdas a2, b2, a4 de la hoja “ingresos” en las celdas a1, c1, f1 de la hoja
“clientes” y luego el cursor se posicione en “compras” a2, para un nuevo
registro.

Todos son datos no hay fórmulas.

Gracias por su ayuda.

Siga el debate

16 respuestas

Tengo una respuesta

Preguntas similare

copiar filas de una hoja a otra filtrando la primera hoja

Leer las respuestas

#11 Ivan

13/10/2007 - 16:56 | Informe spam

hola,

aunque no lo he probado creo que tienes razon. Es bastante logico.

prueba a cambiar en el selection change el codigo por este

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Worksheet_SelectionChange_Error
If Not Intersect(Target, [a5]) Is Nothing Then
Application.OnKey "{enter}", "Copiar"
Application.OnKey "{return}", "Copiar"
else
reponer
End If
On Error GoTo 0
Exit Sub
Worksheet_SelectionChange_Error:
MsgBox "Error " & Err.Number & " (" & _
Err.Description & ") en el procedimiento " & _
"Worksheet_SelectionChange de tipo Sub " & _
"del Documento VBA: Hoja1"
Application.OnKey "{enter}"
Application.OnKey "{return}"
End Sub

aunque no lo he probado creo que deberia valer

si quieres comentas
un saludo
Ivan

Responder a este mensaje

#12 GRIEGO59

13/10/2007 - 17:14 | Informe spam

Me funcionó : )
Muchas gracias

"Ivan" escribió:

hola,

aunque no lo he probado creo que tienes razon. Es bastante logico.

prueba a cambiar en el selection change el codigo por este

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Worksheet_SelectionChange_Error
If Not Intersect(Target, [a5]) Is Nothing Then
Application.OnKey "{enter}", "Copiar"
Application.OnKey "{return}", "Copiar"
else
reponer
End If
On Error GoTo 0
Exit Sub
Worksheet_SelectionChange_Error:
MsgBox "Error " & Err.Number & " (" & _
Err.Description & ") en el procedimiento " & _
"Worksheet_SelectionChange de tipo Sub " & _
"del Documento VBA: Hoja1"
Application.OnKey "{enter}"
Application.OnKey "{return}"
End Sub

aunque no lo he probado creo que deberia valer

si quieres comentas
un saludo
Ivan

Responder a este mensaje

#13 GRIEGO59

13/10/2007 - 17:18 | Informe spam

Y si quisera que se ordenen los datos de la hoja "clientes" por la columna
"a" despues de copiar los datos?

Gracias
Griego59

"GRIEGO59" escribió:

Me funcionó : )
Muchas gracias

"Ivan" escribió:

> hola,
>
> aunque no lo he probado creo que tienes razon. Es bastante logico.
>
> prueba a cambiar en el selection change el codigo por este
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> On Error GoTo Worksheet_SelectionChange_Error
> If Not Intersect(Target, [a5]) Is Nothing Then
> Application.OnKey "{enter}", "Copiar"
> Application.OnKey "{return}", "Copiar"
> else
> reponer
> End If
> On Error GoTo 0
> Exit Sub
> Worksheet_SelectionChange_Error:
> MsgBox "Error " & Err.Number & " (" & _
> Err.Description & ") en el procedimiento " & _
> "Worksheet_SelectionChange de tipo Sub " & _
> "del Documento VBA: Hoja1"
> Application.OnKey "{enter}"
> Application.OnKey "{return}"
> End Sub
>
> aunque no lo he probado creo que deberia valer
>
> si quieres comentas
> un saludo
> Ivan
>
>

Responder a este mensaje

#14 Ivan

13/10/2007 - 17:33 | Informe spam

hola Dario,

Y si quisera que se ordenen los datos de la hoja "clientes"
por la columna "a" despues de copiar los datos?

aunque el tema no tiene mucho que ver con la consulta original, puedes
probar algo parecido a esto=>

.-en el procedimiento 'Copiar', tras esta instruccion =>

=> .Cells(ultF, 6) = [a4] y antes del => End With

pega esto( OJO: tal cual, punto inicial incluido) =>

.[a1].CurrentRegion.Sort key1:=.[a2], _
order1:=xlAscending, header:=xlYes

creo que deberia valerte

un saludo
Ivan

Responder a este mensaje

#15 GRIEGO59

13/10/2007 - 20:49 | Informe spam

Mil gracias! Funcionó : )
Funcionó

"Ivan" escribió:

hola Dario,

>>> Y si quisera que se ordenen los datos de la hoja "clientes"
>>> por la columna "a" despues de copiar los datos?

aunque el tema no tiene mucho que ver con la consulta original, puedes
probar algo parecido a esto=>

..-en el procedimiento 'Copiar', tras esta instruccion =>

=> .Cells(ultF, 6) = [a4] y antes del => End With

pega esto( OJO: tal cual, punto inicial incluido) =>

.[a1].CurrentRegion.Sort key1:=.[a2], _
order1:=xlAscending, header:=xlYes

creo que deberia valerte

un saludo
Ivan

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3 4

Busqueda sugerida