Dim R
Dim a
Sub abrir()
Dim drive As String ' Unidad de Disco
Dim ruta As String 'Ruta del libro
ruta = ActiveWorkbook.Path ' Ruta actual del libro
drive = Left(ruta, 2) ' Obtengo la unidad con los dos primeros caracteres de la ruta
ChDrive drive ' ChDrive Indicamos la unidad donde está guardado tu archivo
ChDir ruta ' ChDir Indicamos el directorio declarado nteriormente
Application.ScreenUpdating = False
file = Application.GetOpenFilename
If file = False Then
Exit Sub
Else
Workbooks.OpenText Filename:=file
End If
a = ActiveWorkbook.Name
UserForm1.Show
Range("B8:AO17").Copy
'Range("B8:AO" & Range("B" & Rows. Count).End(xlup). Row). Copy 'permite copiar consolidados globales.
Windows("PLANTILLA ELECTRONICA.xlsm").Activate
n = Range("b8").Value
If n <> Empty Then
Range("b8").End(xlDown).Offset(1, 0).Select
Else
Range("b8").Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("B3").Select
Range("B1").Select
Windows(a).Activate
Application.CutCopyMode = False
ActiveWindow.Close savechanges:=False
Application.ScreenUpdating = True
Copiando
End Sub
Sub Copiando()
resultado = MsgBox("Ultimo libro abierto :" & a & Chr(10) & _
"¿Desea copiar otro libro?", vbYesNo, "IMPORTANTE")
If resultado = vbYes Then
abrir
End If
End Sub
Sub Verificar()
R = Hoja1.Range("A2").End(xlUp).Row
For i = 2 To R
If Hoja2.Cells(i, 1) = "" Then
Final = i
Exit For
End If
Next
End Sub
Sub c()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
R = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
abrir
End Sub
Sub Abrir()
...
call Copiando ("")
...
End Sub
Sub Copiando(Nul as String)
...
End Sub
Option Explicit
Dim R
Dim a
' ---&--- Proceso - 1
Sub abrir()
Dim drive As String ' -- Unidad de Disco
Dim ruta As String ' -- Ruta del libro
ruta = ActiveWorkbook.Path ' -- Ruta actual del libro
drive = Left(ruta, 2) ' -- Obtengo la unidad con los dos primeros caracteres de la ruta
ChDrive drive ' -- ChDrive Indicamos la unidad donde está guardado tu archivo
ChDir ruta ' -- ChDir Indicamos el directorio declarado anteriormente
Application.ScreenUpdating = False
file = Application.GetOpenFilename
If file = False Then
Exit Sub
Else
Workbooks.OpenText Filename:=file
End If
a = ActiveWorkbook.Name
UserForm1.Show
Range("B8:AO17").Copy
'Range("B8:AO" & Range("B" & Rows. Count).End(xlup). Row). Copy 'permite copiar consolidados globales.
Windows("PLANTILLA ELECTRONICA.xlsm").Activate
n = Range("b8").Value
If n <> Empty Then
Range("b8").End(xlDown).Offset(1, 0).Select
Else
Range("b8").Select
End If
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks :=False, _
Transpose:=False
'Range("B3").Select
Range("B1").Select
Windows(a).Activate
Application.CutCopyMode = False
ActiveWindow.Close savechanges:=False
Application.ScreenUpdating = True
Call Copiando
End Sub
' ---&--- Proceso - 2
Sub Copiando()
resultado = MsgBox("Ultimo libro abierto :" & a & Chr(10) & _
"¿Desea copiar otro libro?", vbYesNo, "IMPORTANTE")
If resultado = vbYes Then
Call abrir
End If
End Sub
' ---&--- Proceso - 3
Sub Verificar()
R = Hoja1.Range("A2").End(xlUp).Row
For i = 2 To R
If Hoja2.Cells(i, 1) = "" Then
Final = i
Exit For
End If
Next
End Sub
' ---&--- Proceso - 4
Sub c()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
R = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Call abrir
End Sub