klasör içinde a1 hücremde yazan dosya varmı?

[imdatsaral]

selam arkadaşlar

benim sorum 1a hücresinde yazılı dosya adı "D:\Ortak\KNT " klasöründe var ise b1 hücresine "VAR" yazsın istiyorum.

iyi günler dileğimle

imdat saral

 

[Necdet]

Merhaba,

Sub DosyaVarMi()
    
    If Not Dir("D:\Ortak\KNT\" & Range("A1"), vbHidden) = "" Then
        Range("B1") = "Var"
    Else
        Range("B1") = ""
    End If
    
End Sub

 

[imdatsaral]

Necdet Yeşertener Teşekkür ederim
emeğine bilgine sağlık

 

[imdatsaral]

Necdet Arkadaş bu yazdığın kodu benim kullandığım aşağıdaki vereceğim kodlara içerisine ilave etmek istiyorum ama hata veriyor. bi uyuşmazlık var.



Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

ActiveSheet.Unprotect ""
Dim i As Byte, yol As String
yol = ThisWorkbook.Path
dosya = [f2]
On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(yol & "\\Resim\" & dosya & ".jpg")
'''
If [A1] = "" Then
Shapes("Beşgen 1").Visible = 0
Else
Shapes("Beşgen 1").Visible = 1
If [A1] = 0 Then
Shapes("Beşgen 1").Visible = 0
Else
Shapes("Beşgen 1").Visible = 1
End If
End If
'''
'ALT MENÜ
If [B1] = "" Then
Shapes("Düğme 1").Visible = 0
Else
Shapes("Düğme 1").Visible = 1
If [B1] = 0 Then
Shapes("Düğme 1").Visible = 0
Else
Shapes("Düğme 1").Visible = 1
End If
End If
'''
If [f1] = "" Then
Shapes("Yuvarlatılmış Dikdörtgen 2").Visible = 0
Else
Shapes("Yuvarlatılmış Dikdörtgen 2").Visible = 1
If [f1] = 0 Then
Shapes("Yuvarlatılmış Dikdörtgen 2").Visible = 0
Else
Shapes("Yuvarlatılmış Dikdörtgen 2").Visible = 1
End If
End If
''
If [A26] = "" Then
Shapes("İkizkenar Üçgen 4").Visible = 0
Else
Shapes("İkizkenar Üçgen 4").Visible = 1
If [A26] = 0 Then
Shapes("İkizkenar Üçgen 4").Visible = 0
Else
Shapes("İkizkenar Üçgen 4").Visible = 1
End If
End If
''
If [B1] = "" Then
Shapes("CommandButton1").Visible = 0
Else
Shapes("CommandButton1").Visible = 1
If [B1] = 0 Then
Shapes("CommandButton1").Visible = 0
Else
Shapes("CommandButton1").Visible = 1
End If
End If
'Dim MyRng As Range
'Set MyRng = Application.Intersect(Target, Range("F2"))
'If Not MyRng Is Nothing Then
'listele15
'Unload UserForm4
'End If
'If Not MyRng Is Nothing Then
'listele
'Unload UserForm4
'End If
''

''
If [D1] = "" Then
Shapes("Dikdörtgen 8").Visible = 0
Else
Shapes("Dikdörtgen 8").Visible = 1
If [D1] = 0 Then
Shapes("Dikdörtgen 8").Visible = 0
Else
Shapes("Dikdörtgen 8").Visible = 1
End If
End If
''
Set MyRng = Nothing
ActiveSheet.Protect ""
Application.ScreenUpdating = True

End Sub


yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba,

Image1.Picture = LoadPicture(yol & "\\Resim\" & dosya & ".jpg")

\\ tek olmalı siz 2 tane kullanmışsınız. İlk gördüğümü söyledim, enine boyuna incelemedim. Vaktim yok incelemeye de zaten.

 

[imdatsaral]

SİZİN YAZDIĞINIZ

If Not Dir("D:\Ortak\KNT\" & Range("A1"), vbHidden) = "" Then
Range("B1") = "Var"
Else
Range("B1") = ""
End If

BU KODLARI MESAJDA YAZDIĞIM YAZDIĞIM KODLAR DİZESİNİN İÇİNE YAZMAK İSTİYORUM.
NEDEN DERSENİZ HÜCRE DEĞERİ DEĞİŞTİĞİNDE YAZDIĞINIZ MAKRO ÇALIŞSIN İSTİYORUM.

BEN DENEDİM OLMUYOR

 

[Necdet]

SİZİN YAZDIĞINIZ

If Not Dir("D:\Ortak\KNT\" & Range("A1"), vbHidden) = "" Then
Range("B1") = "Var"
Else
Range("B1") = ""
End If

BU KODLARI MESAJDA YAZDIĞIM YAZDIĞIM KODLAR DİZESİNİN İÇİNE YAZMAK İSTİYORUM.
NEDEN DERSENİZ HÜCRE DEĞERİ DEĞİŞTİĞİNDE YAZDIĞINIZ MAKRO ÇALIŞSIN İSTİYORUM.

BEN DENEDİM OLMUYOR

yukarıda verdiğiniz kodların içine koyun sonra bakalım, ben öyle bir kod görmedim.