Visual Basic para Aplicaciones - Macro que copia filas. Como determinar cuando una fila esta vacia

Life is soft - evento anual de software empresarial
   
Vista:

Macro que copia filas. Como determinar cuando una fila esta vacia

Publicado por KT katherinegarro@hotmail.com (1 intervención) el 22/09/2015 17:07:06
Hola,

tengo la siguiente macro que copia desde la fila A2 hacia la derecha (en realidad tengo datos hasta L2) de un libro de excel que he llamado Datos a otro libro de excel plantilla2, al cual le coloca el nombre (el nombre de archivo es la columna c2 que es el nombre de la persona), cambia la celda D2 para que sea numero con puntos y signo $ y lo cierra, necesito que realice este proceso hasta que encuentre toda la fila vacia, pero solo logro que lo realice para la fila A2 a L2, por favor agradezco muchísimo su ayuda:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Operación_Consolidar()
 
Dim a As Integer
 
Sheets("Datos").Select
Range("A2", Range("A2").End(xlToRight)).Select
Selection.Copy
Workbooks.Open "\Users\e-chryul\Desktop\Separar variable ITX\Plantilla2.xlsx"
Range("A2").PasteSpecial
 
Range("D2:D13").Select
    Selection.Style = "Currency"
    Selection.NumberFormat = _
        "_($ * #,##0.0_);_($ * (#,##0.0);_($ * ""-""??_);_(@_)"
    Selection.NumberFormat = "_($ * #,##0_);_($ * (#,##0);_($ * ""-""??_);_(@_)"
 
Nombre_Archivo = Range("C2").Value
 
Range("C2").Select
Selection.Copy
    ChDir "C:\Users\e-chryul\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\e-chryul\Desktop\Reporte " & Nombre_Archivo & ".xls", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Application.DisplayAlerts = True
ActiveWorkbook.Close
 
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
    For Fila = 2 To NumberofRepetitions
    Next Fila
 
Loop
 
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Macro que copia filas. Como determinar cuando una fila esta vacia

Publicado por GMG (12 intervenciones) el 01/10/2015 17:49:38
Hola;

Dependerá de cómo tengas las celdas llenas en la columna A.

Pero en principio te valdrá esto:

Cambia:
1
Range("A2", Range("A2").End(xlToRight)).Select

Por:

1
Range("A2", Range("A2").End(xlToRight).End(xlDown)).Select

Comenta si te valió.
Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar