vba eğer (if) düzenlemesi

[catalinastrap]

Merhabalar,
şöyle bir koda ihtiyacım var

eğer "C:\Users\aaa\Desktop\format" klasörünün içinde
"12345.xlsx" dosyası var ise ;

 

[askm]

If Dir("C:\Users\aaa\Desktop\format\12345.xlsx") = "" Then
        MsgBox "Dosya Yok!", vbCritical,"ASKM"
        Exit Sub
Else
       MsgBox "Dosya varmış. Ne yapmak istiyorsanız yapabilirsiniz...", vbCritical,"ASKM"
End If

 

[catalinastrap]

merhaba;
nerede hata yapıyorum koşul doğru ise else den sonrası çaışmalı


If Dir("C:\Users\aaa\Desktop\format\12345.xlsx") = "" Then

Else

Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp


Set VBComps = Nothing
Set VBComp = Nothing

End If

If Dir("C:\Users\aaa\Desktop\format\12345.xlsx") = "" Then
        MsgBox "Dosya Yok!", vbCritical,"ASKM"
        Exit Sub
Else
       MsgBox "Dosya varmış. Ne yapmak istiyorsanız yapabilirsiniz...", vbCritical,"ASKM"
End If

 

[askm]

Siz modüle silmeye çalışıyorsunuz sanırım. İstediğiniz şu şekilde sanırım.

Sub askm()
If Dir(ThisWorkbook.Path & "\12345.xlsm") = "" Then

Else
Application.DisplayAlerts = False
dosya = "12345.xlsm"
Workbooks.Open ThisWorkbook.Path & "\" & dosya
Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
VBComps.Save
VBComps.Close

Set VBComps = Nothing
Set VBComp = Nothing

End If

End Sub