bilgisayardaki bir ismi tabloya getirmek

[mankenyavuz]

selam arkadaşlar benim bir sorunum var çözemedim bit türlü sorunmda şöyle anlatayım

benim excel tablosunda
a1=506 818 19 00
b1=506 888 88 88
c1=506 777 77 77
verilerim var
bilgisayarımdada stok dizininin içerisindede 506 818 19 00 adlı bir dosya var
amacım a1 deki dosyayı stok dizininde arayıp bulması ve a2 dizinine varsa var yoksa yok diye yazmasını istiyorum yardımcı olacak biri arsa şimdiden teşekkür ederim

 

[hsayar]

506 818 19 00 nasıl bir dosya, uzantısı ne?
bmp, jpg, doc ?????

 

[mankenyavuz]

Uzantısı pdf

 

[hsayar]

Uzantısı pdf

Çalışmakitabınıza bir modfül ekleyin ve aşağıdaki kodalrı yapıştırın.

Function Fnc_DsyaVarMi(DsyYol As String) As Boolean
'#########################################################################################################'
'#########         Seçilen Dosya Mevcutmu kontrol eder,                                          #########'
'#########         Yazar    : Hsayar    21/10/2008                                               #########'
'#########         Uyarlama : Hsayar    21/10/2008                                               #########'
'#########                                                                                       #########'
'#########################################################################################################'
1   Dim DsSisKnt As FileSystemObject
2   Set DsSisKnt = CreateObject("Scripting.FileSystemObject")
3   Fnc_DsyaVarMi = DsSisKnt.FileExists(DsyYol)
4   Set DsSisKnt = Nothing
End Function

a2 ye şöyle girebilirsiniz: kırmızı kısmı kendinize uyarlamayı unutmayınız.

=Fnc_DsyaVarMi(BİRLEŞTİR([B][COLOR=Red]"[/COLOR][COLOR=Red]c:\stok\[/COLOR][/B]"&A1&[B][COLOR=Red]".pdf"[/COLOR][/B]))

 

[mankenyavuz]

hocam hata veriyor malesef kullanamadım acaba nerede sorun var bakabilirmisiniz

 

[hsayar]

hocam hata veriyor malesef kullanamadım acaba nerede sorun var bakabilirmisiniz

referanslardan Windows Script Host Object Model
i bulup deneyiniz.

 

[hsayar]

işinize yaradı mı?

 

[Necdet]

Merhaba,

Bende şöyle birşey yaptım :

1. satırdaki değerleri arayan varsa 2. satıra var, yoksa Yok yazar.

Kırmızı olan yerleri kendinize göre uyarlayınız.

Sub DosyaVarYok()
 
Dim i As Integer
Dim Yol, Uzantı As String
Yol = "[B][COLOR=red]C:\Stok\[/COLOR][/B]"
Uzantı = [COLOR=red][B]".pdf[/B][/COLOR]"
 
For i = 1 To [IV1].End(1).Column
    If Dir(Yol & Cells(1, i) & Uzantı) <> "" Then
        Cells(2, i) = "Var"
    Else
        Cells(2, i) = "Yok"
    End If
Next i
 
End Sub

 

[tahsinanarat]

isimler a sutununda olup, b sutununa var yok yazsaydı

Sn. Necdet hocam,
isimler a sutununda olup, b sutununa var yok diye yazdırmak isteseydik,
yukardaki kodlar nasıl olmalıyda
Teşekrürler