Se puede hacer una macro que teniendo un numero de factura la busque en un archivo de pc y la ponga de un color
Se podrá hacer una macro que teniendo un listado de numero de facturas en una hoja de exel agá una función de buscarlos en una carpeta de mi pc donde tengo mis pdf de las facturas (tiene el mismo nombre los pdf q los que están en el listado) y pueda verificar cual si se encuentra en la carpeta Y CUELAS NO Y QUE APARTE LAS PONGA DE UN COLOR LAS QUE SI Y DE OTRO LAS QUE NO
1 respuesta
Aquí la macro
Sub abrir_fichero_si_existe()
Dim RUTA As String
Dim Archivo As String
Range("A1").Select
RUTA = "C:\Users\Terminal\Documents\"
uf = Range("A65536").End(xlUp).Row
For a = 1 To uf
Archivo = RUTA & ActiveCell.Value & ".pdf"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
. PatternTintAndShade = 0
End With
ActiveCell.Offset(1, 0).Select
Else
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.Offset(1, 0).Select
End If
Next a
End Sub
No olvide valorar
