passar datos a otra hoja

On 6 sep, 21:47, "JForero" wrote:

Buena tarde grupo..

Solciito ayuda para que con boton, el sistema me copie algunos datos de una
hoja en otra... estos datos deben corresponder a la última fila diligenciada
ejemplo:

Hoja1
a3 = 06/09/2007
b3 = 5.000
c3 = xxxx
d3 = aaaaa

a4 = 07/09/2007
b4 = 15.000
c4 = zzzz
d4 = nnnnnn

cuando de click en el botón, deberá copiar en:

hoja2

f8 = a4 (última fila escrita en hoja1)
g10 = b4 (última fila escrita en hoja1)
h5 = c4 (última fila escrita en hoja1)
h6 = d4 (última fila escrita en hoja1)

gracias por la colaboración

hoja

si el ej es 'real', es decir que quieres 'poner' los datos de la
ultima fila de las columnas A:D de la hoja 1 en las celdas que
mencionas de la hoja2, prueba esata macro

Sub PasarDatos()
with Worksheets("Hoja2")
.range("f8")=Worksheets("Hoja1").[a65536].end(xlup)
.range("g10")=Worksheets("Hoja1").[b65536].end(xlup)
.range("h5")=Worksheets("Hoja1").[c65536].end(xlup)
.range("h6")=Worksheets("Hoja1").[d65536].end(xlup)
end with
end sub

OJO=> si alguno de los campos puede estar vacio en esa fila, te
pondria el dato de la anterior celda 'llena'. en este caso podrias
usar el nº de fila del campo que sepas que siempre va a tener datos
(si existe) . Pej. si en la columna A siempre va a haber datos si
alguna de las otras lo contien, podrias hacer esto otro

Sub PasarDatos_2()
dim utf as long
with Worksheets("Hoja2")
utf = .[a65536].end(xlup).row
Worksheets("Hoja2").range("f8")=.range("a" & utf)
Worksheets("Hoja2").range("g10")=.range("b" & utf)
Worksheets("Hoja2").range("h5")=.range("c" & utf)
Worksheets("Hoja2").range("h6")=.range("d" & utf)
end with
end sub

tambien podrias usar un bucle, pero si los datos son como los expones
no creo que merezca la pena

en cuanto a asignarsena a un boton, depende de el tipo de este:

.- si es de una barra de herramientas personalizada o de la barra de
herramientas 'Formularios' asignale la macro

.- si es de la barra 'Cuadro de controles' llama a la macro desde el
evento click del boton (o quita las filas 'Sub ' y 'End Sub' e
incluyela dentro del propio evnto click

espero te ayude

un saludo
Ivan

disculpame, en la 2º macro cambia el "with worksheets("Hoja2")" por
"with worksheets("Hoja1")"