Excel 2 girilen tarih arasındaki dogum günleri olan isimleri yazdırma

[furknbugra]

Öncelikle merhaba arkadaşlar Ben YBS 2. sınıf öğrencisiyim. Siteyi yeni keşfettim(keşke daha önce keşfetseydim). Sizlere bol bol excel sorularım olacak.

1. Kullanıcıdan başlangıç tarihi alın.
2. Kullanıcıdan bitiş tarihi alın.
3. B sütununda ki doğum tarihlerine bakarak başlangıç ve bitiş tarihi arasında doğum tarihine sahip olan kişilerin isimlerini D sütünuna yazdırın. her bir isim bir hücreye karşılık gelmeli.
4. Eğer girilen tarihler arasında doğum günü olan kişi yoksa, msgbox ile bu tarihler arasında doğan kişi yoktur uyarı mesajı yazın.

A sütununda 13 tane satır var en üstteki başlıklar var A sutunu isim B sütununda gg/aa/yy formatında tarihler var baslangıc ve bitiş tarihlerini inputla alıp o tarihler arasında kimlerin dogum gunu varsa onların isimleri D sütununa yazılacak yardımcı olabilir misiniz? şimdiden teşekkürler herkese

 

[Mdemir63]

Selamlar
Formumuza hoş geldiniz.
Sorularınızı örnek dosyalarla desteklerseniz yanıt almanız daha kolay olur
Altın üye olmadığınız için aşağıdaki sitelerden birine yükleyip link verebilirsiniz.

Harici dosya yükleme siteleri
https://www.google.com/drive/
https://disk.yandex.com.tr/
https://onedrive.live.com/about/tr-tr/
https://www.dosyaupload.com/
http://dosya.co/
http://s2.dosya.tc/
https://wetransfer.com/
https://www.transfernow.net/tr/

Dosya yükleme hk.

Soru ile ilgili "Örnek" Excel Dosyası Ekleme

Değerli excel.web.tr üyelerimizin dikkatine. Sorularınızın daha kısa sürede ve doğru cevaplandırılması için , bir excel dosyası eklenmesi gerekiyorsa; konu başlığınızda sorunuzla ilgili bilgi verdikten sonra;aşağıda açıklanan şekilde bir "ÖRNEK EXCEL DOSYASI" hazırlayabilirsiniz. ÖRNEK EXCEL...

www.excel.web.tr

FORUM KURALLARI
https://www.excel.web.tr/help/terms/

 

[furknbugra]

Teşekkürler hocam.

 

[furknbugra]

Öncelikle merhaba arkadaşlar Ben YBS 2. sınıf öğrencisiyim. Siteyi yeni keşfettim(keşke daha önce keşfetseydim). Sizlere bol bol excel sorularım olacak.

1. Kullanıcıdan başlangıç tarihi alın.
2. Kullanıcıdan bitiş tarihi alın.
3. B sütununda ki doğum tarihlerine bakarak başlangıç ve bitiş tarihi arasında doğum tarihine sahip olan kişilerin isimlerini D sütünuna yazdırın. her bir isim bir hücreye karşılık gelmeli.
4. Eğer girilen tarihler arasında doğum günü olan kişi yoksa, msgbox ile bu tarihler arasında doğan kişi yoktur uyarı mesajı yazın.

A sütununda 13 tane satır var en üstteki başlıklar var A sutunu isim B sütununda gg/aa/yy formatında tarihler var baslangıc ve bitiş tarihlerini inputla alıp o tarihler arasında kimlerin dogum gunu varsa onların isimleri D sütununa yazılacak yardımcı olabilir misiniz? şimdiden teşekkürler herkese

yapabildiğim kadarıyla yazdım gelişmiş seçeneklerinden yazabildiğim kadarına bakabilirsiniz gerisini getiremedim :/
https://dosya.co/jx9uqiyr4abt/örnek1.xlsm.html

 

[ÖmerFaruk]

Ben şöyle bir örnek hazırlamıştım.
İNDİRME LİNKİ

Kodlar aşağıda.

Private Sub CommandButton1_Click()
Dim TarihInput As String, Tarih1 As Date, Tarih2 As Date
Dim i As Integer
Dim k As Integer

    Range("D2:D" & Range("D1").End(xlDown).Row).ClearContents
    TarihInput = Application.InputBox("Başlangıç Tarihi Girin : ")
    If IsDate(TarihInput) Then
        Tarih1 = DateValue(TarihInput)
    Else
        MsgBox "Hatalı Tarih Formatı"
        Exit Sub
    End If
    TarihInput = Application.InputBox("Başlangıç Tarihi Girin : ")
    If IsDate(TarihInput) Then
        Tarih2 = DateValue(TarihInput)
    Else
        MsgBox "Hatalı Tarih Formatı"
        Exit Sub
    End If
    k = 1
    For i = 2 To 13
        If Range("B" & i) >= DateSerial(Year(Range("B" & i)), Month(Tarih1), Day(Tarih1)) And Range("B" & i) <= DateSerial(Year(Range("B" & i)), Month(Tarih2), Day(Tarih2)) Then
            k = k + 1
            Range("D" & k) = Range("A" & i)
        End If
Next i
End Sub

 

[furknbugra]

Ben şöyle bir örnek hazırlamıştım.
İNDİRME LİNKİ

Kodlar aşağıda.

Private Sub CommandButton1_Click()
Dim TarihInput As String, Tarih1 As Date, Tarih2 As Date
Dim i As Integer
Dim k As Integer

    Range("D2:D" & Range("D1").End(xlDown).Row).ClearContents
    TarihInput = Application.InputBox("Başlangıç Tarihi Girin : ")
    If IsDate(TarihInput) Then
        Tarih1 = DateValue(TarihInput)
    Else
        MsgBox "Hatalı Tarih Formatı"
        Exit Sub
    End If
    TarihInput = Application.InputBox("Başlangıç Tarihi Girin : ")
    If IsDate(TarihInput) Then
        Tarih2 = DateValue(TarihInput)
    Else
        MsgBox "Hatalı Tarih Formatı"
        Exit Sub
    End If
    k = 1
    For i = 2 To 13
        If Range("B" & i) >= DateSerial(Year(Range("B" & i)), Month(Tarih1), Day(Tarih1)) And Range("B" & i) <= DateSerial(Year(Range("B" & i)), Month(Tarih2), Day(Tarih2)) Then
            k = k + 1
            Range("D" & k) = Range("A" & i)
        End If
Next i
End Sub

ilginiz için çok teşekkürler hocam fakat tarihler girildikten sonra bir etkileşim gerçekleşmedi bende neden olabilir?

 

[ÖmerFaruk]

Butona bastınız mı ve InputBox çıkmadımı ?
ve benim yolladığım excel kitabı için mi soruyorsunuz?

 

[furknbugra]

Butona bastınız mı ve InputBox çıkmadımı ?
ve benim yolladığım excel kitabı için mi soruyorsunuz?

buton çalışıyor önce kendi dosyam üzerinde yazdım tarihleri girdikten sonra ınputbox üzerinden ardından bir etkileşim gerçekleşmedi ve ardından direkt olarak sizin dosyayı açtım sizin dosya üzerinden deneme gerçekleştirdim yine olmadı butona bastığımda inputbox cıkıyor tarihleri giriyorum fakat 2 tarih arasında olan oradaki tarihleri D sütununa aktarmıyor sorunumuz bu hocam umarım anlatabilmişimdir.

 

[ÖmerFaruk]

Aynı dosyayı halen açıyorum. Tarihleri giriyorum. Hata vermiyor ve isimleri listeliyor.

 

[furknbugra]

Aynı dosyayı halen açıyorum. Tarihleri giriyorum. Hata vermiyor ve isimleri listeliyor.

hocam özele bakma imkanınız var mı acaba? rica etsem

 

[Mdemir63]

Selamlar

Linkdeki dosyayı inceleyiniz.
@NextLevel hocamın kodlarında aşağıdaki kısmı değiştirdim.

 If Range("B" & i) >= DateSerial(Year(Range("B" & i)), Month(Tarih1), Day(Tarih1)) And Range("B" & i) <= DateSerial(Year(Range("B" & i)), Month(Tarih2), Day(Tarih2)) Then

İndir DoğumGünü Örnek

Dosyayı indir DoğumGünü Örnek

dosya.co