
Copiar desde una hoja a otra
Publicado por Dario (92 intervenciones) el 01/08/2014 13:22:23
Estimados:
Tengo en una hoja un boton de comandos en el cual el mismo cumple la funsion de copiar los datos de la hoja1 y pegarlos en la hoja2.
Paso la furmula que estoy utilizando:
-------------------------------------------------------------------------------------------------------------
Private Sub CB_IvaVentas_Grabar_Click()
Sheets("Hoja2").Select
'Desprotege la hoja
ActiveSheet.Unprotect
'Se posiciona en la celda A14'
Sheets("Hoja2").Range("A14").Select
'Inserta una fila arriba de A14'
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
'Asigna un valor definido para cada celda'
Worksheets("Hoja2").Cells(14, "A").Value = Worksheets("Hoja1").Cells(11, "P").Value
Worksheets("Hoja2").Cells(14, "B").Value = Worksheets("Hoja1").Cells(11, "Q").Value
--------------------------------------------------------------------------------------------------------------
Lo que quisiera es poder hacer que el traspaso de datos sea mas fluido.
Lo que pasa es que al hacerle clik en el boton, el mismo se me posiciona en la hoja2, transfiere la información, y regresa a la hoja1. Quiero que no se note el paso de información, que siempre se mantenga seleccionada la hoja1.
Gracias
Tengo en una hoja un boton de comandos en el cual el mismo cumple la funsion de copiar los datos de la hoja1 y pegarlos en la hoja2.
Paso la furmula que estoy utilizando:
-------------------------------------------------------------------------------------------------------------
Private Sub CB_IvaVentas_Grabar_Click()
Sheets("Hoja2").Select
'Desprotege la hoja
ActiveSheet.Unprotect
'Se posiciona en la celda A14'
Sheets("Hoja2").Range("A14").Select
'Inserta una fila arriba de A14'
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
'Asigna un valor definido para cada celda'
Worksheets("Hoja2").Cells(14, "A").Value = Worksheets("Hoja1").Cells(11, "P").Value
Worksheets("Hoja2").Cells(14, "B").Value = Worksheets("Hoja1").Cells(11, "Q").Value
--------------------------------------------------------------------------------------------------------------
Lo que quisiera es poder hacer que el traspaso de datos sea mas fluido.
Lo que pasa es que al hacerle clik en el boton, el mismo se me posiciona en la hoja2, transfiere la información, y regresa a la hoja1. Quiero que no se note el paso de información, que siempre se mantenga seleccionada la hoja1.
Gracias
Valora esta pregunta


0