[Yardım]  Kapalı dosyadan veri alma

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

Cevap: Kapalı dosyadan veri alma

İleti#21)  tasad » 11 Şub 2019 15:17

Yeni dosyayı ekledim,deneyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#22)  muzos80 » 11 Şub 2019 16:51

tasad yazdı:Yeni dosyayı ekledim,deneyin.

Olmuş çok teşekkür ederim ricam f ler sütunu temsil ediyor anladığım diğer sayfalar dada aynısı lazım olursa yapabilmem için açıklama yapmak mümkün mü sayfa sonuç da bulunan en sondaki f neyi temsil ediyor kendimi geliştirmem açısından önemli
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#23)  muzos80 » 11 Şub 2019 22:39

ben nerede hata yapıyorum montaj alıyor ama diğerlerini almıyor
Private Sub CommandButton1_Click()
On Error Resume Next
Dim con As Object, evn As Object, yol As String
Sayfa3.Range("a3:ı65536").ClearContents
Sayfa2.Range("a3:ı65536").ClearContents
Sayfa4.Range("a3:ı65536").ClearContents
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path & "\Veriler")
For Each D In klasor.Files
If D.Name <> ThisWorkbook.Name Then
If VBA.Right(D.Name, 4) = "xlsx" Or VBA.Right(D.Name, 3) = "xls" Then

con.Open " provider=microsoft.ace.oledb.12.0;data source=" & _
D.Path & ";extended properties=""excel 12.0;hdr=no"""

sorgu1 = "select f2,f3,f5,f14,f18,f19,f20,f21,f22 from [Plastik Ambalaj$a6:s300]"
sorgu2 = "select f2,f3,f4,f13,f15,f16,f17,f18,f19 from [Montaj$a6:s300]"
sorgu3 = "select f2,f3,f4,f13,f15,f16,f17,f18,f19 from [depoj$a6:s300]"



rs.Open sorgu1, con, 1, 1: Sayfa3.Range("a65536").End(3)(2, 1).CopyFromRecordset rs: rs.Close
rs.Open sorgu2, con, 1, 1: Sayfa2.Range("a65536").End(3)(2, 1).CopyFromRecordset rs: rs.Close
rs.Open sorgu3, con, 1, 1: Sayfa4.Range("a65536").End(3)(2, 1).CopyFromRecordset rs: rs.Close

End If
End If
Next D

Set rs = Nothing: Set con = Nothing
Set evn = Nothing: Set klasor = Nothing: D = vbNullString
End Sub
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#24)  muzos80 » 12 Şub 2019 00:04

yada aşağıdaki kodu örnek sayfa1 gibi nasıl yaparım isimden çekmiyor anladığım

sorgu1 = "select f2,f3,f5,f14,f18,f19,f20,f21,f22 from [Plastik Ambalaj$a6:s300]"
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

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

Cevap: Kapalı dosyadan veri alma

İleti#25)  feraz » 12 Şub 2019 01:30

Dosya ??????????????????????????????
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5696
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#26)  muzos80 » 12 Şub 2019 10:15

feraz yazdı:Dosya ??????????????????????????????

Dosyayı nerede kullanacağım bilinçsizce denedim olmadı
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kapalı dosyadan veri alma

İleti#27)  tasad » 12 Şub 2019 22:33

Aşağıdaki kodları kullanın,yine olmazsa orjinal dosyalarınızdan kısa bir örnek ekleyin.
depoj sayfası yazmışsın.yanlışsa depo olarak değiştir.
Kod: Tümünü seç
Sub adoverial()
On Error Resume Next
Dim con As Object, evn As Object, yol As String
Sayfa2.Range("a3:z65536").ClearContents
Sayfa3.Range("a3:z65536").ClearContents
Sayfa4.Range("a2:z65536").ClearContents
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path & "\Veriler")
For Each D In klasor.Files
If D.Name <> ThisWorkbook.Name Then
If VBA.Right(D.Name, 4) = "xlsx" Or VBA.Right(D.Name, 3) = "xls" Then
   
con.Open " provider=microsoft.ace.oledb.12.0;data source=" & _
D.Path & ";extended properties=""excel 12.0;hdr=no"""
sorgu1 = "select f2,f3,f4,f13,f15,f16,f17,f18,f19 from [Montaj$a6:s300] where f19>0"
sorgu2 = "select f2,f3,f5,f14,f18,f19,f20,f21,f22 from [Plastik Ambalaj$a6:v300] where f22>0"
sorgu3 = "select f2,f3,f4,f13,f15,f16,f17,f18,f19 from [depoj$a6:s300] where f19>0"

rs.Open sorgu1, con, 1, 1: Sayfa2.Range("a65536").End(3)(2, 1).CopyFromRecordset rs: rs.Close
rs.Open sorgu2, con, 1, 1: Sayfa3.Range("a65536").End(3)(2, 1).CopyFromRecordset rs: rs.Close
rs.Open sorgu3, con, 1, 1: Sayfa4.Range("a65536").End(3)(2, 1).CopyFromRecordset rs: rs.Close

End If
End If
Next D
Set rs = Nothing: Set con = Nothing
Set evn = Nothing: Set klasor = Nothing: D = vbNullString
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Kapalı dosyadan veri alma

İleti#28)  muzos80 » 13 Şub 2019 00:07

Teşekkür ederim sorun bazı sayfalarda a sütunu gizlenmiş f20 ve üzeri yazdığımda aktarma yapmıyormuş
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#29)  muzos80 » 13 Şub 2019 10:32

Bir tek sorunum kaldı ada aylık plan yapıldığında sayfa isimlerinde boşluk verebiliyorlar oda çekmemesine neden oluyor bu sorunu nasıl çözerim
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#30)  tasad » 13 Şub 2019 13:51

Sayfa isimlerini kontrol eder,değişiklik varsa kodlarda değiştirirsiniz.Bu kadar zor bir şey değil...
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#31)  muzos80 » 14 Şub 2019 15:56

tasad yazdı:Sayfa isimlerini kontrol eder,değişiklik varsa kodlarda değiştirirsiniz.Bu kadar zor bir şey değil...

Merhaba sizden bir ricam daha var 12 adet excel dosyam var hepsinin sayfa ismi " Hata Kartı Kayıt Alanı " dir ve hepsinin de a5 den Z2500 satırına kadar veri doldurmaları içim ayırdım, açtığım excel dosyasında alt alta tek sayfada vede boşluksuz nasıl verileri getiririm size zahmet aynı kot ile yapamadım
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#32)  tasad » 14 Şub 2019 16:28

12 dosyadan bir tanesini örnek olarak ekleyin.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#33)  muzos80 » 14 Şub 2019 16:45

tasad yazdı:12 dosyadan bir tanesini örnek olarak ekleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#34)  tasad » 14 Şub 2019 18:09

Dosyayı inceleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#35)  muzos80 » 14 Şub 2019 18:14

tasad yazdı:Dosyayı inceleyin.

Çok teşekkür ederim güzel olmuş [TESEKKÜR]
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#36)  muzos80 » 15 Şub 2019 12:42

tasad yazdı:Dosyayı inceleyin.

Merhaba verileri 4 kere aynı verileri alt alta yapıştırma nedeni bulamadım her şeyi ile aynı ama aynı veri 4 tane oluyor kusura bakmayın sizi de uğraştırıyor-um

Private Sub CommandButton1_Click()
On Error Resume Next
Dim con As Object, evn As Object, yol As String
Sayfa2.Range("a3:k65536").ClearContents
Sayfa3.Range("a3:k65536").ClearContents
Sayfa4.Range("a3:k65536").ClearContents
Sayfa5.Range("a3:k65536").ClearContents
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path & "\Veriler")
For Each D In klasor.Files
If D.Name <> ThisWorkbook.Name Then
If VBA.Right(D.Name, 4) = "xlsx" Or VBA.Right(D.Name, 3) = "xls" Then

con.Open " provider=microsoft.ace.oledb.12.0;data source=" & _
D.Path & ";extended properties=""excel 12.0;hdr=no"""

sorgu1 = "select f1,f2,f3,f13,f14,f15,f16,f17,f18 from [Plastik Montaj $b6:s3000] where f13>0" 'Montaj sütun ( f1,f2 sütunları temsil ediyor ve veri çekme alanı
sorgu2 = "select f1,f2,f4,f16,f17,f18,f19,f20,f21 from [Plastik Ambalaj $b6:v3000] where f16>0" 'Ambalaj sütun ( f1,f2 sütunları temsil ediyor ve veri çekme alanı
sorgu3 = "select f1,f2,f3,f13,f16,f17,f18,f19,f20 from [Silgi $a6:t3000] where f13>0" 'Silgi sütun ( f1,f2 sütunları temsil ediyor ve veri çekme alanı
sorgu4 = "select f1,f2,f3,f13,f14,f15,f16,f17,f18 from [Enjeksiyon $a6:r3000] where f13>0" 'Enjeksiyon sütun ( f1,f2 sütunları temsil ediyor ve veri çekme alanı

rs.Open sorgu1, con, 1, 1: Sayfa2.Range("a65536").End(3)(4, 1).CopyFromRecordset rs: rs.Close 'Plastik Montaj Ana dosya kaydetme alanını temsil ediyor
rs.Open sorgu2, con, 1, 1: Sayfa3.Range("a65536").End(3)(4, 1).CopyFromRecordset rs: rs.Close 'Plastik Ambalaj Ana dosya kaydetme alanını temsil ediyor
rs.Open sorgu3, con, 1, 1: Sayfa4.Range("a65536").End(3)(4, 1).CopyFromRecordset rs: rs.Close 'Plastik Silgi Ana dosya kaydetme alanını temsil ediyor
rs.Open sorgu4, con, 1, 1: Sayfa5.Range("a65536").End(3)(4, 1).CopyFromRecordset rs: rs.Close 'Enjeksiyon Ana dosya kaydetme alanını temsil ediyor

End If
End If
Next D
Set rs = Nothing: Set con = Nothing
Set evn = Nothing: Set klasor = Nothing: D = vbNullString
MsgBox "İşlem tamamlandı "

End Sub
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#37)  tasad » 15 Şub 2019 15:10

Örnek dosyalarınızı ekleyin.Ne yapmak istediğiniz pek anlaşılmıyor.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Kapalı dosyadan veri alma

İleti#38)  muzos80 » 15 Şub 2019 15:48

şirket ağına attıktan sonra düzeldi gibi masa üstünden diğer veriler klasöründen demi çekti anlamadım ama şuan sorun yok gibi sağ ol
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#39)  muzos80 » 17 Şub 2019 16:00

tasad yazdı:Örnek dosyalarınızı ekleyin.Ne yapmak istediğiniz pek anlaşılmıyor.


Merhaba tasad bey Aynı dosyaya gene Veriler klasörü içine "Sap Ürün ve Stok" klasörü oluşturdum buraya da sap dan "AMBALAJ ÜRÜN TAKİBİ.xlsx" dosyasının "Sap Ürün stok " sayfasındaki D sütunundaki ana sayfamdaki AMBALAJ PLAN sayfasının J sütununa getirmesini nasıl sağlarım Düşey ara ilave etmek istiyorum kapalı dosyadan bana uygun kendime ayarlayabileceğim bir örnek varmıdır
Kullanıcı avatarı
muzos80
Yeni Başlamış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 45
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Kapalı dosyadan veri alma

İleti#40)  feraz » 17 Şub 2019 16:13

Set klasor = evn.getfolder(ThisWorkbook.Path & "\Veriler")

Excwl dosyalarını veriler klasörüne atın(aranacak excel kitapları) sonra kodu çalıştırın.

Yani kod kısaca veriler klasörünün içindeki excellere bakıyor.
Sonrada o excel dosyasıbda plastik ambalaj sayfası varsa ve arama kriterleri uyarsa bulunanlar alt alta kopyalanıyır.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5696
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

ÖncekiSonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe