Macro que copia filas. Como determinar cuando una fila esta vacia
Publicado por KT (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:
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.CopyWorkbooks.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.CloseDo Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
For Fila = 2 To NumberofRepetitionsNext Fila
Loop
End Sub
Valora esta pregunta
0