selam
ben userform a vakanın numarasına göre ilgili fotoğrafları otomatik olarak yükleyen bir makro kullanıyorum
ama ayrıca bu fotoğrafların altına o klasördeki fotoğraf adedini de bir label yardımı ile yazdırmak istiyorum
haluk beyin buna benzer bir makrosu vardı
Yol = "C:\proex\hasarfotograflari" & Application.PathSeparator & Range("A1")
ChDir (Yol)
ResimDosya = Dir("*.jpg")
Range("B:B").ClearContents
i = 2
While ResimDosya <> ""
Cells(i, 2) = ResimDosya
i = i + 1
ResimDosya = Dir
Wend
Label1.Caption = "Toplam " & i - 2 & " adet resim var."
onu kendime uydurmak istedim
Yol = "c:\proex\hasarfotograflari\" & textbox1.Text
ChDir (Yol)
resimdosya = Dir("*.jpg")
i = 2
While resimdosya <> ""
i = i + 1
resimdosya = Dir
Wend
Label1.Caption = "Toplam " & i - 2 & " adet resim var."
ama bu kod textbox a numarasını yazdığım klasörde hiç fotoğraf yoksa bile son aramada fotoğraf olduğu için sayabildiği adedi sonuç olarak bildiriyor
hatam ne acaba ?
ben userform a vakanın numarasına göre ilgili fotoğrafları otomatik olarak yükleyen bir makro kullanıyorum
ama ayrıca bu fotoğrafların altına o klasördeki fotoğraf adedini de bir label yardımı ile yazdırmak istiyorum
haluk beyin buna benzer bir makrosu vardı
Yol = "C:\proex\hasarfotograflari" & Application.PathSeparator & Range("A1")
ChDir (Yol)
ResimDosya = Dir("*.jpg")
Range("B:B").ClearContents
i = 2
While ResimDosya <> ""
Cells(i, 2) = ResimDosya
i = i + 1
ResimDosya = Dir
Wend
Label1.Caption = "Toplam " & i - 2 & " adet resim var."
onu kendime uydurmak istedim
Yol = "c:\proex\hasarfotograflari\" & textbox1.Text
ChDir (Yol)
resimdosya = Dir("*.jpg")
i = 2
While resimdosya <> ""
i = i + 1
resimdosya = Dir
Wend
Label1.Caption = "Toplam " & i - 2 & " adet resim var."
ama bu kod textbox a numarasını yazdığım klasörde hiç fotoğraf yoksa bile son aramada fotoğraf olduğu için sayabildiği adedi sonuç olarak bildiriyor
hatam ne acaba ?