DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Hocam dosyanın orjinalini mail olarak attım size.açılan dosya penceresinden dosyanızı seçmiyormusunuz?
Sorun olmaması lazım.
Bana bir tane xls formatında veritabanınızı ve kodun bulunduğu dosyayı yollarmısınız?Sayfa adı koddaki sayfa adı ile uyuşmuyor olabilirde.Yani bu ihtimalde var.Ama siz başka klasörde ise çalışmıyor demiştiniz.Yollayın bakalım örnek dosyaları.
Verileri listboxa almadamı sorun oluyor.nerde sorun oluyor.Onuda tam anlamış değilim.
Dosyayı gönderdim.Hocam dosyanın orjinalini mail olarak attım size.
Banada yardımcı olabilir misiniz?Bu türden yığınla çözüm var forumda.
Demekki siz rastlamamışsınız.Forumda sorulmayan soru yoktur.Her türlü soru sorulmuş ve çeşitli varyantlarda cevabı verilmiştir.
Dosyanız ektedir.
Kod:Sub g17_al() Sheets("Sayfa1").Range("G17").Value = _ Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[Kapalı.xls]Sayfa1'!R17C7") MsgBox "Kapalı.xls dosyasındadaki sayfa1 deki G17 hücresindeki veri" & vbLf & _ "Sayfa1 de G17 hücresine aktarıldı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "EVREN" End Sub