• DİKKAT

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

Kapalı dosyadan comboboxlara veri çekmek

N

nazifdural

Altın Üye
Katılım
13 Haziran 2007
Mesajlar
119
Excel Vers. ve Dili
microsoft office 365
Merhabalar,
kapalı bir excel dosyasında(Urun.xls) B sütununda ürün listem var.başka bir dosyada da(Mutfak.xls) data sayfasında C sütununa bir userform üzerindeki combobox2 ile ürün seçerek girmek istiyorum.fakat malesef bu kodları birtürlü bulamadım.

bu soruyu daha öncede sormuştum.ve Ado Dao uygulamalarındaki bir konuya yönlendirildim.fakat oradaki dosya silinmiş,bu sorunun cevabını birtürlü bulamadım.

Lütfen acil yardım.

Saygılar
 
Kodlar aşağıda, dosya yolu (Urun.xls'nin) ile Sayfa adını (Urun.xls'deki) kendinize göre düzeltiniz
Private Sub UserForm_Initialize()
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & "DosyaYolu/Urun.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[SayfaAdı$B1:B65536]")

Do While Not rs.EOF
ComboBox2.AddItem rs(0)
rs.MoveNext

Loop
rs.Close
baglanti.Close

End Sub
 
Son düzenleme:
Sorunun 2. kısmı için Formunda oluşturacağınız Düğmeye aşağıdaki kodları yazın

Private Sub CommandButton1_Click()
say = Sheets("data").Range("C65536").End(3).Row + 1
Sheets("data").Range("C" & say).Value = ComboBox2
End Sub
 
Üstadım tür uyuşmazlığı diye bir hata veriyor?
 
Örnek çalışma ekte
İki dosyanında aynı klasörde olduğuna göre yaptım. Dosyaları ayrı klasörlere koyacaksanız dosya yolunu ona göre değiştirin.
 

Ekli dosyalar

  • a.zip
    a.zip
    15.2 KB · Görüntüleme: 38
Son düzenleme:
Üstadım göndermiş olduğunuz kodları çalışmama ekledim.fakat hata veriyor.Çalışacağım klasörle çalışmamı ekledim.Bir bakarsanız çok sevinirim.

Yapmış olduğum çalışmamın daha önceki şeklinde, combobox ile diğer ürün sayfasından seçim yapıp userforma getiriyordum. getirdiğimde ürün adı geldiğinde yine düşeyara kodları ile o ürünün birimini ve fiyatını da userformdaki label ile texboxa getiriyordu.ve kayıt yapabiliyordu.
Yine kayıt haricinde değişiklik,silme işlemlerini de yapabiliyordu.

Şu anda Ürün ve ürün bilgilerini başka kapalı bir tablodan almak istiyorum.Çünkü bu tablo gibi bütün departmanların tabloloları var. ve bu tablolar yaklaşık 30 adet civarı. her seferinde ürünlerde bir değişiklik olduğunda tablolarda tek tek copy pass yapmak çok uzun zaman alıyor.fakat böyle bir çalışma olursa o zaman tek ürün tablosu değişikliğinde işler çok kolay olacak.
 

Ekli dosyalar

Sn nazifdural
Dosyanızda 4 tane Form var. Bilgiyi hangi formun ComboBox'ına getirtmek istiyorsunuz. ComboBox'a üç sütununda bilgileri gelebilir, ilgili TextBoxlara dağıtılabilir.
 
ComboBox'a üç sütununda bilgileri getirildiği örnek ekte kendinize göre uyarlayın.
 

Ekli dosyalar

  • a1.zip
    a1.zip
    20 KB · Görüntüleme: 26
Üstadım kusura bakmayın msj.nızı daha yeni gördüm.
göndermiş olduğunuz dosyayı açtım elinize sağlık.çok teşekkür ederim.kendime uyarlamaya çalışacağım. değiştir ve sil butonlarındaki kodları nasıl olacak? Kapalı dosya uygulamaları ile ilgili ilk defa çalışıyorum.bu konuda da fazla örnek yok.İlgilendiğiniz için şimdiden çok teşekkür ederim.
Saygılarımla,
 
Kapalı dosyadaki Üç sütundan ComboBox'a veri alan, Bu verileri aktaran, değiştiren, silen ve yeni kayıt ekleyen örnek dosya ekte.
Uyarılar:
Ürün dosyasını açarken, Kapalı dosya işlemleri sonucunda ortaya çıkan sorunları çözmek için ThisWorkBook Modülüne bir makro yazdım. Urun.xls'nin bilgi sayfasında F sütununu boş bırakınız.
 

Ekli dosyalar

  • a3.zip
    a3.zip
    32.3 KB · Görüntüleme: 53
Son düzenleme:
arkadaşlar benim istediğim daha basit bişey ama bir türlü beceremedim
Unvan Bilgileri.xls > (sayfa):1 > BA2:BA arasındaki tüm verileri -
Personel Veritabanı > Userform1 > Combobox3 ve Combobox4 e gelmesini istiyorum
 
Üstad, yukarıdaki bağlantı örneğinde .xls dosyası olunca çalışıyor. Fakat .xlsm yaptığımda sürücü hatası veriyor (Benim dosyalarım .xlsm uzantılı)
İlginiz için şimdiden teşekkür ederim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst