• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

vba eğer (if) düzenlemesi

catalinastrap

Özgür
Destek Ekibi
Katılım
19 Ağustos 2006
Mesajlar
644
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
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 ;
 
Kod:
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
 
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




Kod:
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
 
Siz modüle silmeye çalışıyorsunuz sanırım. İstediğiniz şu şekilde sanırım.
Kod:
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
 
Geri
Üst