[Yardım]  Makro ile başka excel dosyasından veri çekme

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

Makro ile başka excel dosyasından veri çekme

İleti#1)  missdılek » 17 Haz 2018 02:25

Merhaba arkadaşlar,
Stok listesi ve fiyat listesi adında iki farklı excel dosyam var. Stok listesinde bulunan "A" sütunundaki kodlara göre fiyat listesinden o kodun karşılığına denk gelen fiyatı çekerek stok listesindeki fiyat sütununa yazdırmam gerekiyor. Dosyalarımın satır sayıları da birbirine eşit değil. Örneğin stok listesindeki veriler 670. satırda sonlanırken fiyat listesindeki veriler 700. satırda sonlanmaktadır. Bunu makro ile nasıl yapabilirim yardımcı olabilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
missdılek
 
Kayıt: 01 Oca 2017 21:56
Meslek: öğrenci
Yaş: 22
İleti: 4
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: samsun

Cevap: Makro ile başka excel dosyasından veri çekme

İleti#2)  tasad » 17 Haz 2018 11:13

Stok listesi dosyasında boş bir modüle kaydedin.

Kod: Tümünü seç
Sub fiyat_çek()
Dim Kd As String
Dim Yol As Worksheet
Dim İsim As String
Dim a As Workbook
Set TW = CreateObject("Excel.Application")

Application.ScreenUpdating = False
İsim = ActiveWorkbook.Name
Kd = ThisWorkbook.Path & "\"
Set a = TW.Workbooks.Open(Kd & "fiyat listesi.xlsx")
Set Yol = a.Sheets("Sayfa1")
satır = 4
son = Yol.Range("A" & Rows.Count).End(xlUp).Row
For k = 4 To son
If Range("a" & k).Value <> "" Then Range("d" & satır).Value = WorksheetFunction.VLookup(Range("a" & k), Yol.Range("A4:c30000"), 3, 0)
satır = satır + 1
Next
a.Close
Application.ScreenUpdating = True
MsgBox "İşleminiz Tamamlandı."
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 333
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Makro ile başka excel dosyasından veri çekme

İleti#3)  missdılek » 18 Haz 2018 11:14

Öncelikle yardımınız için teşekkür ederim. Ben biraz kodda değişiklik yaptım ve çalıştırdım. İşleminiz tamamlandı uyarısı verdi sadece ilk sütunun değerini yazdırdı ve sonra aşağıdaki kodda Range komutunda hata verdi.
"Range("d" & k).Value = WorksheetFunction.VLookup(Range("a" & k), YOL.Range("A4:c30000"), 3, 0)"
Nasıl düzeltebilirim bir türlü bulamadım. Yardımcı olabilir misiniz? Şimdiden teşekkür ederim.

Kodun son hali:
Sub fiyat_cek()

Dim Kd As String
Dim YOL As Worksheet
Dim İsim As String
Dim a As Workbook
Dim TW As Excel.Application

Dim son As String
Dim k As Variant


Set TW = CreateObject("Excel.Application")

Application.ScreenUpdating = False
İsim = ActiveWorkbook.Name
Kd = ThisWorkbook.Path & "\"
Set a = TW.Workbooks.Open(Kd & "fiyat listesi.xlsx")
Set YOL = a.Sheets("Sayfa1")
son = YOL.Range("A" & Rows.Count).End(xlUp).Row
For k = 4 To son
If Range("a" & k).Value <> "" Then

Range("d" & k).Value = WorksheetFunction.VLookup(Range("a" & k), YOL.Range("A4:c30000"), 3, 0)
k = k + 1


End If
a.Close
Application.ScreenUpdating = True
MsgBox "İşleminiz Tamamlandı."
Next

End Sub
Kullanıcı avatarı
missdılek
 
Kayıt: 01 Oca 2017 21:56
Meslek: öğrenci
Yaş: 22
İleti: 4
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: samsun

Cevap: Makro ile başka excel dosyasından veri çekme

İleti#4)  tasad » 18 Haz 2018 12:41

Sizin yüklediğiniz fiyat dosyasında fiyat kısmı c sütununda . orjinal dosyada da aynı mı?
Yülediğiniz örnek dosyalarda deneme yaptım hata vermedi.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 333
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

Cevap: Makro ile başka excel dosyasından veri çekme

İleti#5)  missdılek » 18 Haz 2018 15:02

Evet orjinal dosyada da aynı. Bende sizin attığınız kodu örnek dosyada çalıştırmayı denedim, olmamıştı ama size sorunu bildirdikten sonra tekrar denedim ve çalıştı. Kodları orjinal dosyaya aktardığımda ise sadece iki sütunun değerini yazdırdı ve tekrar aynı komutta sorun vermeye başladı.
Kullanıcı avatarı
missdılek
 
Kayıt: 01 Oca 2017 21:56
Meslek: öğrenci
Yaş: 22
İleti: 4
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: samsun

Cevap: Makro ile başka excel dosyasından veri çekme

İleti#6)  tasad » 18 Haz 2018 15:15

Orjinal dosyanın ilk 10 satırını örnek olarak ekleyebilir misin?
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 333
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe