Çözüldü iki tarih arası makro veri alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

muzos80

Yeni Üye
Katılım
6 Şub 2019
Mesajlar
23
En iyi yanıt
0
Puanları
1
Yaş
47
Konum
Kartal
Ad Soyad
Mustafa Boğa
Office Versiyon
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:D230").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
 

muzos80

Yeni Üye
Katılım
6 Şub 2019
Mesajlar
23
En iyi yanıt
0
Puanları
1
Yaş
47
Konum
Kartal
Ad Soyad
Mustafa Boğa
Office Versiyon
2013
Tamam sorunu aşağıdaki gibi yaparak çözdüm
=">="&AB73
="<="&AB74
Kapatabilirsiniz
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt