• DİKKAT

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

Çözüldü İki değişkene göre mesaj

  • Konbuyu başlatan Konbuyu başlatan k0081
  • Başlangıç tarihi Başlangıç tarihi
Katılım
17 Haziran 2008
Mesajlar
1,874
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merha arkadaşlar.,

Şu şekilde Bir mesaj kodu gerekiyor.;

** Bu iki klasörün haricinde “işlem yap.”


A= “C:\Deneme”
B= “C:\Deneme2”

İf curdir = A or B then
Msgbox “işlem yok”
Else
Msgbox “işlem var”
End if

Nerede hata yapıyorum acaba ?

Yardımcı arkadaşa şimdiden teşekkürler.
 
Kod:
Sub askm()
A = "C:\Deneme"
B = "C:\Deneme2"

'If Dir(A) = vbNullString Or Dir(B) = vbNullString Then 'ya da
If Dir(A) = "" Or Dir(B) = "" Then 'bu şekilde
MsgBox "işlem yok"
Else
MsgBox "işlem var"
End If
End Sub
 
kodu denedim . fakat olmadı. bu iki klasör haricinde başka bir klasörde isem, işlem var olacak. Teşekkürler.


Kod:
If CurDir = A Or CurDir = B Then 'bu şekilde
MsgBox "işlem yok"
Exit Sub
Else
'MsgBox "işlem var"
End If

Bu şekilde Tamamdır. Çok teşekkürler.
 
Geri
Üst