muzos80
Yeni Üye
- Katılım
- 6 Şub 2019
- Mesajlar
- 23
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 51
- Konum
- Kartal
- Ad Soyad
- Mustafa Boğa
- Office Vers.
- 2013
Merhaba aşağıdaki gibi yaptığım çokeğersay makrosu ile bir dosyadan veri alıyorum ama aynı dosyalardan farklı klasörlerde aynı verilerim var aşağıdaki makroyu klasör seçmeli nasıl yapabilirim
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
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