[Yardım]  Kapalı dosyadan veri alma

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

Kapalı dosyadan veri alma

İleti#1)  muzos80 » 09 Şub 2019 12:10

Merhaba kolay gelsin bir xlsm dosyama Veriler klasöründeki xlsx dosyasının Mustafa isimli sayfasındaki B - C - R - S - T - U - V Sütunlarının 6 satırdan 300 üncü satıra kadar olanları xlsm dosyamdaki A sütundan başlayarak sırayla veriyi çekmesini sağlamak istiyorum ama bir türlü beceremedim yardım eder misiniz.
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#2)  Ali ÖZ » 09 Şub 2019 14:09

Merhaba,
Veriler klasörü nerede ? çalışma kitabı nerede olacak ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9627
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#3)  muzos80 » 09 Şub 2019 15:50

Ali ÖZ yazdı:Merhaba,
Veriler klasörü nerede ? çalışma kitabı nerede olacak ?

Bir klasör de veri çekeceğim excel xlsm dosyası aynı dosya içinde veri klasörü var orada da veri çekeceğim xlsx dosyam var
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#4)  muzos80 » 09 Şub 2019 15:54

yani iç içe klasör tam anlatamadım diye düşündüm bir klasör dosyamda verileri çektireceğim xlsm excelim aynı klasör içinde veri klasörüm var onun içindede xlsx excel dosyasından veri alacağı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

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

Cevap: Kapalı dosyadan veri alma

İleti#5)  muzos80 » 09 Şub 2019 16:33

Birde benim öğrenmem açısından her yazılan makronun sonuna ne işlem yaptığını da yaza bilirseniz çok sevinirim öğrenmek istiyorum
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#6)  muzos80 » 09 Şub 2019 18:39

Aşağıdaki kodu denedim ama hata alıyorum galiba yanlış

Sub auto_open()
Sayfa2.Range("a2:f65536").ClearContents
Dim con As Object, evn As Object, yol As String
yol = "\Veriler"
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path & yol)
For Each xlsm In klasor.Files
If UCase(VBA.Right(xlsm.Name, 3)) = "XLSX" Then
Set con = CreateObject("adodb.connection")
con.Open " provider=microsoft.ace.oledb.12.0;data source=" & xlsx.Path & ";extended properties=""excel 12.0;hdr=no"""
Range("b65536").End(3)(1, 1).Value = con.Execute("select * from [sayfa2$N6:N300,O6:O300,P6:P300,Q6:Q300,R6:R300]").Fields(0).Value
End If
Next xlsm
con.Close: yol = vbNullString
Set rs = Nothing: Set con = Nothing
Set evn = Nothing: Set klasor = Nothing: Set xls = Nothing
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

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kapalı dosyadan veri alma

İleti#7)  tasad » 09 Şub 2019 19:15

Örnek dosyalar ekleyin.Böyle hayali anlatımlarla çözüm bulunmaz.
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#8)  muzos80 » 09 Şub 2019 19:34

Dosya ektedir
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#9)  WOLFY51 » 09 Şub 2019 22:35

me kullanımı ile ilgili bilgi (ne işe yarar, nasıl kullanılır) ya da forumda nerde açıklandı?
Kullanıcı avatarı
WOLFY51
 
Adı Soyadı:MURTAZA ÖZKURT
Kayıt: 17 Mar 2010 22:53
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: RİZE

Cevap: Kapalı dosyadan veri alma

İleti#10)  tasad » 10 Şub 2019 19:05

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#11)  muzos80 » 10 Şub 2019 19:45

tasad yazdı:Dosyayı inceleyin.

Güzel olmuş tam istediğim gibi çok teşekkür ederim, bir ricam var veri çekeceği sayfa da süzme var ama süzülmemiş gibi alıyor onuda halledebilir miyiz
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#12)  ertugrul1956 » 10 Şub 2019 19:48

Merhaba ekte çalışmayı yaptım temennim istediğin gibidir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ertugrul1956
Siteye Alışmış
 
Adı Soyadı:ertuğrul şengün
Kayıt: 01 May 2014 19:05
Konum: istanbul/pendik
Meslek: emekli
Yaş: 62
İleti: 118
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/pendik

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#13)  muzos80 » 10 Şub 2019 20:41

ertugrul1956 yazdı:Merhaba ekte çalışmayı yaptım temennim istediğin gibidir

Merhaba ertugrul1956 beyin çalışması işime yaradı fakat süzülmüş verilerin gelmemesi gerekiyordu bir tek o sorunum kaldı ilginiz için teşekkürler.
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: Cevap: Kapalı dosyadan veri alma

İleti#14)  muzos80 » 10 Şub 2019 20:51

muzos80 yazdı:
ertugrul1956 yazdı:Merhaba ekte çalışmayı yaptım temennim istediğin gibidir

Merhaba ertugrul1956 beyin çalışması işime yaradı fakat süzülmüş verilerin gelmemesi gerekiyordu bir tek o sorunum kaldı ilginiz için teşekkürler.

Özür diliyorum tasad Beyin
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#15)  ertugrul1956 » 10 Şub 2019 21:01

Merhabalar
r,s,t,u,v sütunları nereye yazılacak belirtmemişsiniz
Kullanıcı avatarı
ertugrul1956
Siteye Alışmış
 
Adı Soyadı:ertuğrul şengün
Kayıt: 01 May 2014 19:05
Konum: istanbul/pendik
Meslek: emekli
Yaş: 62
İleti: 118
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/pendik

Cevap: Cevap: Kapalı dosyadan veri alma

İleti#16)  muzos80 » 10 Şub 2019 21:05

tasad yazdı:Dosyayı inceleyin.

Verilerdeki ambalaj sayfasını da aynı yerdeki butonla aynı anda ana dosyadaki verilere taşıya biliyormuyuz
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#17)  şahin » 10 Şub 2019 21:13

Ekte

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

Cevap: Cevap: Kapalı dosyadan veri alma

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

şahin yazdı:Ekte

deneme.rar

Anlatım güzel ve anlaşılır bu da işime yaradı ama veri alınacak alanda süzme var süzülmüş hali ile nasıl alırız aynı şekilde çünkü planlamanın gösterdikleri haricinde görünmemesi gerekiyor
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#19)  muzos80 » 10 Şub 2019 23:01

tasad yazdı:Dosyayı inceleyin.

Aynı makroyu planda bulunan ambalajı ana dosyada ambalaj plan sayfasına aktarmaya da çalışıyorum 2 side aynı buton ile yapabilir ise süper olacak uyarladık dan sonra denedim çalışmıyor ve ayrı butonla da denedim gene olmuyor sebebi ne olabilir ?
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#20)  muzos80 » 11 Şub 2019 11:43

Merhaba aşağıdaki kotlardan neyi değiştirir isem Plastik Ambalaj sayfasından veri alırım bir türlü beceremedim karşılıklarına ne demek ne görev yapıyor size zahmet bilgi bekliyorum

Sub Ambalaj()
On Error Resume Next
Dim con As Object, evn As Object, yol As String
Sayfa3.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"""
sorgu = "select f1,f2,f4,f13,f17,f18,f19,f20,f21 from [Plastik Ambalaj$b6:t300]" ' Kopyalacacak sütünlar f1 sütun1 anlamında
rs.Open sorgu, con, 1, 1
Sayfa3.Range("a65536").End(3)(2, 1).CopyFromRecordset rs
rs.Close
con.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

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 3 misafir

Bumerang - Yazarkafe