Botones con macro para copiar de un excel a otro
Tengo dos botones y con opción a utilizar más. La acción que deben realizar cada botón es la de extraer datos de una sola celda de todos los libros en una carpeta y colocarlos en una columna en el libro que estoy utilizando como formato. He probado varios códigos y nada más me confundo más.
Por ejemplo, quiero que un botón me copie la información de la celda de los libros en la carpeta Vallarta (3,9) al libro Formato en la celda (4,3). Necesito que quede con un selector porque ese mismo formato se usará para muchas más carpetas a futuro.
AYURA.
H o l a: Para completar la macro faltan algunos datos.
Nombre de la hoja destino.
Columna destino
Nombre de la hoja origen
Celda origen.
Te puse unos comentarios en la macro para que completes la información faltante.
Sub Copiar_Una_Celda()
'---
' Por.Dante Amor
'---
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja10") 'hoja destino
col = "A" 'columna destino
celda = "B3" 'celda a extraer
num = 1 'hoja origen, 1 significa que es la primera hoja
'
ruta = l1.Path & "\"
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Selecciona una carpeta"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show <> -1 Then Exit Sub
cp = .SelectedItems(1)
End With
'
arch = Dir(cp & "\" & "*.xls*")
Do While arch <> ""
Set l2 = Workbooks.Open(cp & "\" & arch)
Set h2 = l2.Sheets(num)
u = h1.Range(col & Rows.Count).End(xlUp).Row + 1
h1.Cells(u, col) = h2.Range(celda)
l2.Close False
arch = Dir()
Loop
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
