Hola amigos expertos en macros,
Estoy recien iniciando en el tema de macros, cual es muy interesante y lleno de de mucha informacion,
Ando trabajando una Macros la cual me permite procesar mucha informacion de unos formatos en excel los cuales no cambian para nada de celdas,
ejemplo:
J14, J15,C22,I21
y deseo que estas se pongan en horizontal y haga los saltos de celda, quiero decir que si en algunas de estas no hay datos deje el espacio, repetandolo,
solo teng estas lineas de codigo , pero voy empezando y me gustaria saber como manipularlo mejor
necesito de su valiosa ayuda!!!
anexo codigo:
Sub Busca()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayAlerts = False
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long, ultima As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Set SummarySheet = ThisWorkbook.Worksheets(1)
'INDICAR LA RUTA DONDE ESTÁN LOS ARCHIVOS
FolderPath = "C:\CotizacionesAutorizadas\PRUEBA\"
FileName = Dir(FolderPath & "*.xlsm")
'ABRIR LOS ARCHIVOS DE UNO EN UNO
Do While FileName <> ""
Set WorkBk = Workbooks.Open(FolderPath & FileName)
'PASAR LOS DATOS DE UNA HOJA A LA HOJA EN COMÚN
ultima = Range("A2").End(xlUp).Row
If ultima < 11 Then ultima = 11
NRow = SummarySheet.Range("R" & Rows.Count).End(xlUp).Row + 1
Set SourceRange = WorkBk.Worksheets(1).Range("B21")
Set DestRange = SummarySheet.Range("R" & NRow)
SourceRange.Select
Selection.Copy
ThisWorkbook.Activate
Worksheets(1).Select
Range("R" & NRow).Select
'AllUsingSourceTheme
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=True
NRow = NRow + DestRange.Rows.Count
WorkBk.Close savechanges:=False
FileName = Dir()
Loop
End Sub
Adjunto | Tamaño |
---|---|
Macros solo editar las rutas | 74.81 KB |
pero ¿cuál es la pregunta?
¿hay algo que no funciona?¿da algún error?
------
Ya sé Excel, pero necesito más.
el problema es que quiero que mi macros copia ciertas celdas que son las que contienen datos en la imagen que ajunto, pero no se como hacerlo, y que si en una de estas no tiene datos, a la hora de pegar no lo sobre escriba con otro dato, simplemente lo respete.}
saludos.