• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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ş
50
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: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ş
50
Konum
Kartal
Ad Soyad
Mustafa Boğa
Office Vers.
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