Soru makro çalışması hakkında

[muzos80]

Merhaba sizden öğrenebilmem için yardıma ihtiyacım var eklediğim dosyada kapalı dosyadan veri çekme makrosu var bana adım adım hangi kodun ne görevi olduğunu sağ tarafına yazabilir misiniz ve birde buna bende kapalı dosyalardan çokeğersay işlemi nasıl yapabilirim onun içinde açıklamalı makro yapabilir misiniz öğrenebilmem için desteğinize ihtiyacım var

 

[Korhan Ayhan]

Burada harika bir kaynak var.

https://www.excel.web.tr/threads/excel-ado-kapali-dosyalarla-calisma-egitimi-uecretsiz-youtubeda.190769/#post-1062179

 

[muzos80]

Merhaba Ayhan bey maalesef çok acemiyim o yüzden desteğinize ihtiyacım var kapalı dosyalardan konum seçmeli bir makro örnek lazım yani açıklamalı olmalı ki anlayabileyim nasıl çalıştığını
birde kapalı dosyalardan çokeğersay ile örnek 6 adet kapalı dosyadan farklı alanlardan saydırarak her kapalı dosyadan aldğı veriyi belirlediğim ayrı ayrı yerlere yapıştırmasını yapmam gerekiyor ama açıklama olamadığından çözemiyorum kısacası desteğinize ihtiyacım var

 

[Korhan Ayhan]

Açıklama olmadığından derken..

Zaten verdiğim linkte videolar var. Yani görsel anlatım yapılıyor. Gayet sade bir dille anlatılmış.

 

[muzos80]

kusura bakmayın videoları şimdi farkettim

 

[muzos80]

Merhaba aşağıdaki kottan çokeğersay yöntemi ile veri alıyorum ama ben bunu klasör içindeki xlsm uzantılı tüm dosyalardan veri alacak şekille nasıl getirebilirim beceremedim aşağıdaki kottan sadece 1 dosyadan veri alabiliyorum

Sub kapaliExcelİslem()
Range("B515").ClearContents

yol = "C:\Users\MUSTAFA\Desktop\çalışma\"


Set exel1 = Workbooks.Open(yol & "Tüm Üniteler Hata Kartı 2020 (1).xlsm")

ThisWorkbook.Sheets("sayfa1").Range("B7") = exel1.Application.WorksheetFunction.CountIfs(Range("d5:d1000"), "Kırmızı", Range("a5:a1000"), "Ambalaj")
ThisWorkbook.Sheets("sayfa1").Range("c7") = exel1.Application.WorksheetFunction.CountIfs(Range("d5:d1000"), "Beyaz", Range("a5:a1000"), "Ambalaj")
ThisWorkbook.Sheets("sayfa1").Range("d7") = exel1.Application.WorksheetFunction.CountIfs(Range("d5:d1000"), "Yeşil", Range("a5:a1000"), "Ambalaj")
ThisWorkbook.Sheets("sayfa1").Range("B8") = exel1.Application.WorksheetFunction.CountIfs(Range("d5:d1000"), "Kırmızı", Range("a5:a1000"), "Boyama")
ThisWorkbook.Sheets("sayfa1").Range("c8") = exel1.Application.WorksheetFunction.CountIfs(Range("d5:d1000"), "Beyaz", Range("a5:a1000"), "Boyama")
ThisWorkbook.Sheets("sayfa1").Range("d8") = exel1.Application.WorksheetFunction.CountIfs(Range("d5:d1000"), "Yeşil", Range("a5:a1000"), "Boyama")
exel1.Close True

Set exel1 = Nothing



End Sub