KAPALI EXCEL'DEN VERİ ÇEKME HK.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#1)  irocronic » 12 Ekm 2018 18:29

Merhaba,

Öncelikle forumda benzeri bir çok konu olduğu halde acemi olmamdan mütevellit işi sonuçlandıramadım.
Hatta bundan sonra copy paste yapmaktansa kitap alıp özümsemek istiyorum.
Moderatör arkadaşlardan yeni bir konu açtığım için şimdiden özür dilerim.
Sitede yer alan kodlar üzerinden mdb dosyasından veri çekebileceğim bir excel dosyası oluşturdum.
Aynı sistem ile çalışan dosya da Mdb dosyası değil de excel dosyasına bağlanıp verileri çekebiliyor olsaydım işimi çok daha kolay halledebilirdim. MDB Dosyasında olduğu gibi verileri kapalı excel dosyasından soldan sağa listeleyebilmem için ne yapmam gerektiğini öğrenmek istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

Kod: Tümünü seç
Private baglan As Object, rs As Object, con As Object

Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & "C:\Users\koray.akma\Desktop\VERİ_MATRİSK.mdb"
End Sub

Private Sub listeye_al()
ComboBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call baglanti
    rs.Open "select * from [tabloegitmen]", baglan, 1, 1
With ComboBox1
    .RowSource = Empty
    .ColumnCount = 2 'rs.fields.Count
    .ColumnWidths = "0;10"
    .Column = rs.getrows
End With
    rs.Close
Set rs = Nothing
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 2)
TextBox2.Value = ComboBox1.List(ComboBox1.ListIndex, 3)
TextBox3.Value = ComboBox1.List(ComboBox1.ListIndex, 4)
TextBox4.Value = ComboBox1.List(ComboBox1.ListIndex, 5)
TextBox5.Value = ComboBox1.List(ComboBox1.ListIndex, 6)
TextBox6.Value = ComboBox1.List(ComboBox1.ListIndex, 7)
TextBox7.Value = ComboBox1.List(ComboBox1.ListIndex, 8)
TextBox8.Value = ComboBox1.List(ComboBox1.ListIndex, 9)
TextBox9.Value = ComboBox1.List(ComboBox1.ListIndex, 10)
TextBox10.Value = ComboBox1.List(ComboBox1.ListIndex, 11)
TextBox11.Value = ComboBox1.List(ComboBox1.ListIndex, 12)
TextBox12.Value = ComboBox1.List(ComboBox1.ListIndex, 13)
TextBox13.Value = ComboBox1.List(ComboBox1.ListIndex, 14)
TextBox14.Value = ComboBox1.List(ComboBox1.ListIndex, 15)
TextBox15.Value = ComboBox1.List(ComboBox1.ListIndex, 16)
TextBox16.Value = ComboBox1.List(ComboBox1.ListIndex, 17)
TextBox17.Value = ComboBox1.List(ComboBox1.ListIndex, 18)
TextBox18.Value = ComboBox1.List(ComboBox1.ListIndex, 19)
TextBox19.Value = ComboBox1.List(ComboBox1.ListIndex, 20)
TextBox20.Value = ComboBox1.List(ComboBox1.ListIndex, 21)
TextBox21.Value = ComboBox1.List(ComboBox1.ListIndex, 22)
TextBox22.Value = ComboBox1.List(ComboBox1.ListIndex, 23)
TextBox23.Value = ComboBox1.List(ComboBox1.ListIndex, 24)
TextBox24.Value = ComboBox1.List(ComboBox1.ListIndex, 25)
TextBox25.Value = ComboBox1.List(ComboBox1.ListIndex, 26)
TextBox26.Value = ComboBox1.List(ComboBox1.ListIndex, 27)
TextBox27.Value = ComboBox1.List(ComboBox1.ListIndex, 28)
TextBox28.Value = ComboBox1.List(ComboBox1.ListIndex, 29)
TextBox29.Value = ComboBox1.List(ComboBox1.ListIndex, 30)



End If

End Sub
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#2)  şahin » 12 Ekm 2018 22:47

Bağlantı dizesi
Kod: Tümünü seç
baglan.Open "provideR=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=YES"""
olmalı.
Örnek dosya ekte

Sayfa1.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#3)  irocronic » 18 Ekm 2018 12:21

Userformu açtığım zaman önce kapalı excel dosyasına bağlansın.
Comboboxtan x bir hedef çağırdığım zaman zaman textboxlara veriler otomatik gelsin.
Kapalı exceldeki verileri soldan sağa okuyabilir, üstteki başlığa göre okuyabilir.

Ekte paylaşmış olduğum örneği incelemenizi rica ederim.
Şimdiden ilginiz için çok teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#4)  irocronic » 19 Ekm 2018 17:58

Yardımcı olmanızı rica ediyorum.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#5)  şahin » 19 Ekm 2018 21:33

Ekte

EXCEL.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#6)  irocronic » 20 Ekm 2018 10:12

şahin yazdı:Ekte

EXCEL.rar


Şahin Bey çok teşekkür ederim. şkşk
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#7)  irocronic » 20 Ekm 2018 12:03

Bir sorum daha var.

Kapalı excel dosyasından çektiğimiz hücrelerde herhangi bir boşluk olması durumunda aşağıdaki hata kodunu almaktayım.

Run-time error '-2147352571 (80020005)';
Could not set the Value Property. Tür uyuşmazlığı.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#8)  şahin » 20 Ekm 2018 13:23

Düzenledim

EXCEL.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#9)  irocronic » 20 Ekm 2018 14:48

şahin yazdı:Düzenledim

EXCEL.rar



İlginiz ve emeğiniz için tekrar teşekkür ederim. şkşk
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#10)  irocronic » 21 Ekm 2018 10:58

Ekte paylaşmış olduğum dosyayı çağırdığım zaman ilk başta bir problem göremiyorum.
Search alanından DENEME 4 'ü seçince -2147217887 ( 80040e21) hata kodunu almaktayım.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#11)  irocronic » 21 Ekm 2018 10:59

İlgili dosya ekte ki gibidir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#12)  irocronic » 21 Ekm 2018 17:32

şahin yazdı:Düzenledim

EXCEL.rar


Şahin Bey göndermiş olduğunuz link'i tekrar yeniledim.
Kapalı excel dosyasının combobox satırından arattığımız hücrenin sağ tarafındaki hücrelerde boşluk yada sayı varsa benzer hata devam ediyor.


Örneğini paylaşmış olduğum dosyanın arama alanından Deneme 4 ve Deneme 5'i açmaya çalıştığım zaman hatayı sizde görüntüleyebilirsiniz.
[ilginc]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#13)  irocronic » 23 Ekm 2018 08:56

Yardım etmenizi rica ediyorum.
Bir önceki mesajımda dosyayı paylaşmıştım.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#14)  askmadige34 » 23 Ekm 2018 11:27

Döngüden önce On Error Resume Next komutunu ekleyin.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1551
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Cevap: KAPALI EXCEL'DEN VERİ ÇEKME HK.

İleti#15)  irocronic » 23 Ekm 2018 12:03

askmadige34 yazdı:Döngüden önce On Error Resume Next komutunu ekleyin.



Formül işe yaradı. şkşk

Teşekkür ederim.
Kullanıcı avatarı
irocronic
Yeni Başlamış
 
Kayıt: 21 Eyl 2016 11:44
Meslek: Yazılım
Yaş: 34
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 2 misafir

cron
Bumerang - Yazarkafe