[Yardım]  Kapalı excelden ado ile değişkene veri almak

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

Kapalı excelden ado ile değişkene veri almak

İleti#1)  rnpkts » 30 Kas 2019 11:58

Forumdaşlar Merhaba. öncelikle uzun zamandır bir forumda yazı yazmadığım için heyecanlıyım. En son 2008 yılında yazmıştım. O günlerden sosyal medyalarda pek fazla yazı yazmıyorum. Bunu anlatmamın sebebi olur da yazımda ya da olası bir forum kuralında hata yapmışsam maruz görün :)

Şimdi konumuza gelecek olursam forumda aradım taradım bulamadım. Bende bir hesaplama.xlsm ve verilerin olduğu bir çok excel dosyayı var(ocak.xlsx , şubat.xlsx ...vb). Ayrıca hesaplama.xlsm de otomatik hesaplamaların yapıldığı fonksiyonlar yer alıyor örnek( =miktarhesapla ) . istediğim şey kişi =miktarhesaplayı seçtiğinde Ay seç ve Dönem şeç diye iki soruya verdiği cevaba göre Örnek(ocak 4. dönem ) kapalı olan ocak dosyasından miktar satırının 4. döneminde yer alan veriyi miktar isimli değişkene atması.

Şimdiden yardımlarınız için teşekkür ediyorum.
Kullanıcı avatarı
rnpkts
 
Kayıt: 29 Kas 2019 22:39
Meslek: smmm
Yaş: 28
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kütahya/merkez

Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#2)  erseldemirel2 » 30 Kas 2019 12:01

Örnek amaçlı yazıyorum.

Excel dosyalarını kopyalamak sıkıntıysa ado yöntemi uygulanır. Aşağıda örnek kod var. Kaynak yolundaki testi açıyor a1-a4000 aralığını kopyalıyor

Kod: Tümünü seç
Sub adoileaktar()
Dim Baglanti, rs As Object
'Add>Tools>Referance>Microsoft Scripting Runtime
With Sheets("AÇIKOLANSAYFA")
Set Baglanti = CreateObject("ADODB.Connection")
Dosya = "C:\KAYNAK\Test.xlsm"
Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & Dosya & ";extended properties=""excel 12.0;hdr=no"""
Set rs = Baglanti.Execute("SELECT * FROM [KAPALIOLANSAYFA$A1:A4000]")
.Range("A1:A4000").CopyFromRecordset rs
End With
Set Baglanti = Nothing
Set rs = Nothing
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#3)  rnpkts » 30 Kas 2019 12:13

erseldemirel2 yazdı:Örnek amaçlı yazıyorum.

Excel dosyalarını kopyalamak sıkıntıysa ado yöntemi uygulanır. Aşağıda örnek kod var. Kaynak yolundaki testi açıyor a1-a4000 aralığını kopyalıyor

Kod: Tümünü seç
Sub adoileaktar()
Dim Baglanti, rs As Object
'Add>Tools>Referance>Microsoft Scripting Runtime
With Sheets("AÇIKOLANSAYFA")
Set Baglanti = CreateObject("ADODB.Connection")
Dosya = "C:\KAYNAK\Test.xlsm"
Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & Dosya & ";extended properties=""excel 12.0;hdr=no"""
Set rs = Baglanti.Execute("SELECT * FROM [KAPALIOLANSAYFA$A1:A4000]")
.Range("A1:A4000").CopyFromRecordset rs
End With
Set Baglanti = Nothing
Set rs = Nothing
End Sub


Hocam öncelikle cevabınız için teşekkür ederim. Ancak bu anladığım kadarıyla tüm kapalı olan sayfayı açık olana aktarıyor bana sadece tek bir değer lazım o da değişkene gelmesi lazım mesela kişi a1 hücresine ocak a2 hücresine de 4.dönem yazdığında ocak dosyasında yer alan a sütünunda "miktar" ismini bulup sütünlarda ki 4 dönem karşılığını değişkene atmalı aslında kapalı bir excel dosyasında indis match kullanmak ve sonucu değişkene almak gibi düşünülebilir.
Kullanıcı avatarı
rnpkts
 
Kayıt: 29 Kas 2019 22:39
Meslek: smmm
Yaş: 28
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kütahya/merkez

Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#4)  erseldemirel2 » 30 Kas 2019 17:38

a1-a4000 yerine sadece a8 gibi olabilir. siz buradan kullanmayacağınız bir sayfaya veri alabilirsiniz. daha sonra o veriyi kullanabilirsiniz. amaç kullanmakda olduğunuz excele bilgi getirmek. gelen bilgiyi her türlü formül veya makro ile kullanabilirsiniz
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

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

Cevap: Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#5)  rnpkts » 30 Kas 2019 19:28

erseldemirel2 yazdı:a1-a4000 yerine sadece a8 gibi olabilir. siz buradan kullanmayacağınız bir sayfaya veri alabilirsiniz. daha sonra o veriyi kullanabilirsiniz. amaç kullanmakda olduğunuz excele bilgi getirmek. gelen bilgiyi her türlü formül veya makro ile kullanabilirsiniz


Öncelikle ilginiz için gerçekten teşekkürler. Ancak bahsettiğiniz şekilde kullanımı çok uygun olmuyor çünkü bir çok fonksiyon (miktar hesapla , fiyathesapla...vb) ve bir sürü işlem olacak yani kişi B5 hücresine =miktarhesapla(A1(ocak);1.dönem) B6 hücresine =miktarhesapla(A2(şubat);1.dönem) şeklinde kullanabilecek hal böyle olunca verileri excele alıp kullanmak karmaşaya yol açabilir ki şuan ki sistemde zaten veriler excelin içinde ama her seferinde aynı excelin içine tekrar tekrar veri girişi yapılması gerekiyor bu sebeptendir ki böyle bir yol düşünmüştüm. başka bir yöntem fikriniz var mı ?
Kullanıcı avatarı
rnpkts
 
Kayıt: 29 Kas 2019 22:39
Meslek: smmm
Yaş: 28
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kütahya/merkez

Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#6)  erseldemirel2 » 30 Kas 2019 20:17

kaynak ve hedef dosyalar gibi örnek excel dosyaları oluşturup eklerseniz; daha sağlıklı cevaplar alınabilir
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#7)  rnpkts » 30 Kas 2019 21:03

erseldemirel2 yazdı:kaynak ve hedef dosyalar gibi örnek excel dosyaları oluşturup eklerseniz; daha sağlıklı cevaplar alınabilir

Örnek olarak hızlıca oluşturup eklere ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
rnpkts
 
Kayıt: 29 Kas 2019 22:39
Meslek: smmm
Yaş: 28
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kütahya/merkez

Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#8)  erseldemirel2 » 30 Kas 2019 23:20

benim yaptıgım işlem module2; ado ile ocak excelden hesaplamalarda sayfa olarak yer alan ocak sayfasına veri getirmek oldu. ancak ado biraz kaprisli. kaynak dosya en üstte boş hücre olmayacak.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#9)  rnpkts » 01 Arl 2019 13:13

erseldemirel2 yazdı:benim yaptıgım işlem module2; ado ile ocak excelden hesaplamalarda sayfa olarak yer alan ocak sayfasına veri getirmek oldu. ancak ado biraz kaprisli. kaynak dosya en üstte boş hücre olmayacak.

Çok teşekkür ederim örneği inceledim. Ancak istenilen duruma uygun olmuyor malesef başka fikri olan varsa yardımlarınızı bekliyorum.
Kullanıcı avatarı
rnpkts
 
Kayıt: 29 Kas 2019 22:39
Meslek: smmm
Yaş: 28
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kütahya/merkez

Cevap: Kapalı excelden ado ile değişkene veri almak

İleti#10)  rnpkts » 02 Arl 2019 20:50

Konu güncelliğini korumaktadır.
Kullanıcı avatarı
rnpkts
 
Kayıt: 29 Kas 2019 22:39
Meslek: smmm
Yaş: 28
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kütahya/merkez


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe