Soru Klasör içinde pdf uzantılı dosya yoksa uyarı versin

[okan32]

Excel dosyamında içinde bulunduğu klasör içinde pdf uzantılı dosya yoksa msgboxla uyarı verecek makroya ihtiyacım var. Yardımlrınızı için şimdiden teşekkürler

 

[muratboz06]

Deneyiniz.

Sub PDFDosyaKontrolEt()
If Len(Dir(ActiveWorkbook.Path & "\*.pdf")) > 0 Then
   MsgBox ActiveWorkbook.Path & " içinde en az bir adet pdf dosyası vardır."
Else
   MsgBox ActiveWorkbook.Path & " içinde pdf dosyası yoktur."
End If
End Sub

 

[okan32]

Teşekkürler Murat bey