muzos80
Yeni Üye
- Katılım
- 6 Şub 2019
- Mesajlar
- 23
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 52
- Konum
- Kartal
- Ad Soyad
- Mustafa Boğa
- Office Vers.
- 2013
merhaba aşağıdaki kotla çözdüm deneme yanılma yöntemi ile ama iki tarih arasını çekemiyorum bir eklenti yapmam lazım araştırdıklarımı denedim ama olmadı yardım edebilir misiniz kod aşağıdaki gibi
Sub Bkişi()
'
ThisWorkbook.Sheets("BOG").Range("D226
230").ClearContents
yol = ThisWorkbook.Sheets("BOG").Range("AB76") & "\" 'Dosyanın adresi
Set exel1 = Workbooks.Open(yol & ThisWorkbook.Sheets("BOG").Range("AB77")) ' Dosya isminin adı uzantı ile birlikte
ThisWorkbook.Sheets("BOG").Range("D226") = exel1.Application.WorksheetFunction.CountIfs(Range("C3:C30000"), "" >= "" & ThisWorkbook.Sheets("BOG").Range("AB73"), Range("C3:C30000"), "" <= "" & ThisWorkbook.Sheets("BOG").Range("AB74"), Range("M3:M30000"), "ahmetl")
exel1.Close True
Set exel1 = Nothing
End Sub
Sub Bkişi()
'
ThisWorkbook.Sheets("BOG").Range("D226
yol = ThisWorkbook.Sheets("BOG").Range("AB76") & "\" 'Dosyanın adresi
Set exel1 = Workbooks.Open(yol & ThisWorkbook.Sheets("BOG").Range("AB77")) ' Dosya isminin adı uzantı ile birlikte
ThisWorkbook.Sheets("BOG").Range("D226") = exel1.Application.WorksheetFunction.CountIfs(Range("C3:C30000"), "" >= "" & ThisWorkbook.Sheets("BOG").Range("AB73"), Range("C3:C30000"), "" <= "" & ThisWorkbook.Sheets("BOG").Range("AB74"), Range("M3:M30000"), "ahmetl")
exel1.Close True
Set exel1 = Nothing
End Sub