Macros coopia datos pero no recorre las celdas que yo quiero

3 envíos / 0 nuevos
Último envío
Scorth
Imagen de Scorth
Offline
última acción: Hace 4 semanas 1 día
alta: 16/10/2018 - 03:19
Puntos: 25
Macros coopia datos pero no recorre las celdas que yo quiero

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!!!

 

Llora


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

 

AdjuntoTamaño
File Macros solo editar las rutas74.81 KB

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 hora 29 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9595
pero ¿cuál es la pregunta?

pero ¿cuál es la pregunta?

¿hay algo que no funciona?¿da algún error?

 

Data Tools Suite
datos y tablas con Excel

CharlyWoman (no verificado)
Imagen de CharlyWoman
el problema es que quiero que

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.

AdjuntoTamaño
Image icon untitled.png44.58 KB