¿Cómo modifico el código?
Sra. Elsamatilde: En el libro VENTAS, tengo un botón que ejecuta este código que en oportunidad de una consulta anterior Ud. Me respondiera
Private Sub CommandButton1_Click()
Set Rango = Selection
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\Administrador\Mis documentos\CLIENTES 009\VALENTI RM\Resumen.xls"
Sheets("ANUAL").Select
fila = 4
Do While ActiveSheet.Cells(fila, 2).Value <> Empy
fila = fila + 1
Loop
ActiveSheet.Cells(fila, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook. Sabe
ActiveWorkbook.Close
End Sub
El cual busca y copia la selección en la primera celda libre de la hoja ANUAL del libro Resumen, guarda y cierra el mismo.
Ahora bien, yo quisiera modificar el mismo para que al ejecutarse el mismo también se copie la misma selección en la hoja LIQUIDACIÓN del libro Resumen a partir de la celda B5 sin necesidad de buscar la primera celda libre de esta hoja.
Desde ya agradecido por su ayuda. Saludos
Private Sub CommandButton1_Click()
Set Rango = Selection
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\Administrador\Mis documentos\CLIENTES 009\VALENTI RM\Resumen.xls"
Sheets("ANUAL").Select
fila = 4
Do While ActiveSheet.Cells(fila, 2).Value <> Empy
fila = fila + 1
Loop
ActiveSheet.Cells(fila, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook. Sabe
ActiveWorkbook.Close
End Sub
El cual busca y copia la selección en la primera celda libre de la hoja ANUAL del libro Resumen, guarda y cierra el mismo.
Ahora bien, yo quisiera modificar el mismo para que al ejecutarse el mismo también se copie la misma selección en la hoja LIQUIDACIÓN del libro Resumen a partir de la celda B5 sin necesidad de buscar la primera celda libre de esta hoja.
Desde ya agradecido por su ayuda. Saludos
1 Respuesta
Respuesta de Elsa Matilde
1
Pruébala con este ajuste marcado en negritas:
Private Sub CommandButton1_Click()
Set Rango = Selection
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\Administrador\Mis documentos\CLIENTES 009\VALENTI RM\Resumen.xls"
Sheets("ANUAL").Select
fila = 4
Do While ActiveSheet.Cells(fila, 2).Value <> Empy
fila = fila + 1
Loop
ActiveSheet.Cells(fila, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("LIQUIDACION").Select
activesheet.range("B5").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook. Sabe
ActiveWorkbook. Close
End Sub
Sdos. Comentame si con esto quedó solucionado.
Elsa
PD) No te pierdas la promoción del mes de julio en mis manuales
http://aplicaexcel.galeon.com/manuales.htm
Private Sub CommandButton1_Click()
Set Rango = Selection
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\Administrador\Mis documentos\CLIENTES 009\VALENTI RM\Resumen.xls"
Sheets("ANUAL").Select
fila = 4
Do While ActiveSheet.Cells(fila, 2).Value <> Empy
fila = fila + 1
Loop
ActiveSheet.Cells(fila, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("LIQUIDACION").Select
activesheet.range("B5").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook. Sabe
ActiveWorkbook. Close
End Sub
Sdos. Comentame si con esto quedó solucionado.
Elsa
PD) No te pierdas la promoción del mes de julio en mis manuales
http://aplicaexcel.galeon.com/manuales.htm
