Buenas, estoy intentando crear un botón que me copie unas celdas determinadas de un libro a otro y después que me vuelva a copiar éstas celdas de una hoja a otra. la primera parte la tengo resuelta pero ahora no se por donde seguir.
Así tengo el código de momento:
Sub CopiarCeldas()
Dim Pesadas As Workbook
Dim Destino As Workbook
Application.ScreenUpdating = False
Set Pesadas = Workbooks.Open("Z:\D.Calidad y Tecnica\2_Gestion de CALIDAD\Patri\TONI\pesadas.xls")
La pregunta en cuestión es que código necesito para copiar los valores de unas celdas de una hoja a otra en una columna siempre y cuando el valor de la columna de al lado sea uno específico, es decir, si A=4 copiar el valor de la celda de al lado en la hoja 2, si A=5 copiar el valor de la celda en la hoja 3, etc...
Buenas, estoy intentando crear un botón que me copie unas celdas determinadas de un libro a otro y después que me vuelva a copiar éstas celdas de una hoja a otra. la primera parte la tengo resuelta pero ahora no se por donde seguir.
Así tengo el código de momento:
Sub CopiarCeldas()
Dim Pesadas As Workbook
Dim Destino As Workbook
Application.ScreenUpdating = False
Set Pesadas = Workbooks.Open("Z:\D.Calidad y Tecnica\2_Gestion de CALIDAD\Patri\TONI\pesadas.xls")
Workbooks("pesadas.xls").Worksheets("BCT2DB").Range("B1:H7398").Copy Workbooks("destino.xlsm").Worksheets("BD").Range("A2")
Pesadas.Close False
End Sub
La pregunta en cuestión es que código necesito para copiar los valores de unas celdas de una hoja a otra en una columna siempre y cuando el valor de la columna de al lado sea uno específico, es decir, si A=4 copiar el valor de la celda de al lado en la hoja 2, si A=5 copiar el valor de la celda en la hoja 3, etc...
Gracias de antemano!
Un saludo
destino00.xlsx