Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- conteo As Long
- Dim Marca As Variant
- Dim Rango As Variant
- Dim Archivo As String
- Dim bCarpeta As String
- Dim codigoBuscado As String
- Dim Final As Long
- bCarpeta = ActiveWorkbook.Path & ""
- Archivo = Dir(bCarpeta & "Maestro Dinet" & "*.xl*")
- Workbooks.OpenText Filename:=Archivo
- Application.ScreenUpdating = False
- Archivo = ActiveWorkbook.Name
- Windows(Archivo).Activate
- ActiveCell.FormulaR1C1 = _
- "=VLOOKUP(RC[-5],'[Maestro Dinet.xlsb]01'!C1:C38,31,0)"
- Range("G5").Select
- Selection.AutoFill Destination:=Range("G5:G86") ', Type:=xlFillDefault
- MsgBox "Proceso terminado", vbInformation, "Resultado"
Add Comment
Please, Sign In to add comment