Excel - Copiar desde una hoja a otra

   
Vista:

Copiar desde una hoja a otra

Publicado por Dario (88 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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Copiar desde una hoja a otra

Publicado por Antoni Masana (264 intervenciones) el 04/08/2014 06:40:41
Pones la línea resaltada al principio de la función.

La línea del final de la función no es necesaria pero puedes ponerla si lo deseas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CB_IvaVentas_Grabar_Click()
    Application.ScreenUpdating = False
 
 
    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
...
    Application.ScreenUpdating = True
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Copiar desde una hoja a otra

Publicado por Dario (88 intervenciones) el 04/08/2014 20:49:56
Muchas gracias, es lo que necesitba.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar