SQL copiar datos en siguiente celda en blanco
Estoy desarrollando este código, básicamente lo que hace es de un archivo de excel copia los datos a otro archivo de excel que básicamente funciona como un historial de lo que se esta trabajando, funciona, el problema es que no encuentro manera de que copie la información en la siguiente celda en blanco, ya que al momento de darle click al botón actualizar automáticamente me reemplaza toda la información nueva (obviamente porque no se como definir el parámetro para que siga copiando en la siguiente fila en blanco)
Sub CopiarCeldas2()
'Christian Gonzalez 31/01/2018
'Definir objetos a utilizar
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Indicar el libro de Excel destino
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\PRUEBA_DESTINO.xlsx")
'Activar este libro
ThisWorkbook.Activate
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Formato Conteo Ciclico")
Set wsDestino = wbDestino.Worksheets("Formato Conteo Ciclico")
'Indicar la celda de origen y destino
Const celdaOrigen = "A7:AN7"
Const celdaDestino = "A7:AN7"
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Guardar y cerrar el libro de Excel destino
wbDestino.Save
wbDestino.Close
End Sub
1 respuesta
Te anexo la macro con los cambios
Sub CopiarCeldas2()
'Christian Gonzalez 31/01/2018
'Definir objetos a utilizar
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
RngDestino As Excel. Range
'Indicar el libro de Excel destino
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\PRUEBA_DESTINO.xlsx")
'Activar este libro
ThisWorkbook. Activate
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Formato Conteo Ciclico")
Set wsDestino = wbDestino.Worksheets("Formato Conteo Ciclico")
'Indicar la celda de origen y destino
Const celdaOrigen = "A7:AN7"
Const celdaDestino = "A7:AN7"
celdaDestino = "A" & wsDestino.Range("A" & Rows.Count).End(xlUp).Row + 1
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Guardar y cerrar el libro de Excel destino
wbDestino.Save
wbDestino.Close
End SubPrueba y me comentas.
.
.
