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

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas