copiar valores.

21/12/2003 - 21:58 por Juan | Informe spam
Hola de nuevo chicos/as.
A ver, os cuento:
En la hoja1 tengo una serie de casillas cuyos datos varian; querría hacer lo
siguiente:
Utilizar un botón para que cada vez que lo pulsara los valores existentes en
esas celdas se copiaran en la hoja2 para hacer una especie de listado
histórico (es decir, cada pulsación sería una fila copiada).
No se si me explico muy bien.
Gracias a todos y todas.

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
22/12/2003 - 11:55 | Informe spam
Se puede hacer, pero necesitarás VBA, y el código sería mejor escribirlo conociendo las celdas "origen" de Hoja1 y las columnas "destino" en Hoja2, así que quedamos a la espera de que nos las indiques
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Juan" escribió en el mensaje news:e%
Hola de nuevo chicos/as.
A ver, os cuento:
En la hoja1 tengo una serie de casillas cuyos datos varian; querría hacer lo
siguiente:
Utilizar un botón para que cada vez que lo pulsara los valores existentes en
esas celdas se copiaran en la hoja2 para hacer una especie de listado
histórico (es decir, cada pulsación sería una fila copiada).
No se si me explico muy bien.
Gracias a todos y todas.


Respuesta Responder a este mensaje
#2 Juan
22/12/2003 - 12:54 | Informe spam
Hoja1 = Recuento
Hoja2 = Histórico

Celdas de la hoja "Recuento" que se copiaran (->) en celdas de la hoja
"Histórico":

F20 -> A3
E26 -> B3
F26 -> C3
I26 -> D3
J26 -> E3
E12 -> F3

Muchas gracias y Feliz Año 2004.
Respuesta Responder a este mensaje
#3 Fernando Arroyo
22/12/2003 - 15:29 | Informe spam
Prueba con:

Sub CopiarDatos()
Dim wksH As Worksheet
Dim lngF As Long
Set wksH = Worksheets("Histórico")

lngF = wksH.Range("A65536").End(xlUp).Row + 1

With Worksheets("Recuento")
wksH.Cells(lngF, 1) = .[F20]
wksH.Cells(lngF, 2) = .[E26]
wksH.Cells(lngF, 3) = .[F26]
wksH.Cells(lngF, 4) = .[I26]
wksH.Cells(lngF, 5) = .[J26]
wksH.Cells(lngF, 6) = .[E12]
End With

Set wksH = Nothing
End Sub


He supuesto que las filas 1 y 2 de la hoja Histórico son de títulos y que los datos deben añadirse a partir de la fila 3.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Juan" escribió en el mensaje news:
Hoja1 = Recuento
Hoja2 = Histórico

Celdas de la hoja "Recuento" que se copiaran (->) en celdas de la hoja
"Histórico":

F20 -> A3
E26 -> B3
F26 -> C3
I26 -> D3
J26 -> E3
E12 -> F3

Muchas gracias y Feliz Año 2004.


Respuesta Responder a este mensaje
#4 Juan
23/12/2003 - 15:52 | Informe spam
Gracias Fernando.
¿Dónde coloco el código; en un módulo o en una macro?
Ah... el supuesto fue perfecto (las filas 1 y 2 son títulos) ;-)
Respuesta Responder a este mensaje
#5 Fernando Arroyo
23/12/2003 - 16:14 | Informe spam
"Juan" escribió en el mensaje news:
Gracias Fernando.
¿Dónde coloco el código; en un módulo o en una macro?
Ah... el supuesto fue perfecto (las filas 1 y 2 son títulos) ;-)





Debes ponerlo en un módulo creado por ti.
Un saludo.


Fernando Arroyo
MS MVP - Excel
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida