Çözüldü İlgili Tarihi bulma ve altındaki değerleri çekme

[SFBYAPIM]

Ekli dosyadaki gibi her ay gelen yemek listesi var. Ben bunu kendi kullanmış olduğum excelde o günün tarihi neyse o gün ki öğlen yemeğini bir hücrede bir alanda görüntülemek istiyorum. Yardımcı olabilecek var mı? Herhangi bir alanda veya sayfada nasıl yapılacağı konusunda yardımcı olursanız eğer ben kendi sayfama uyarlayabilirim

 

[RBozkurt]

Aşağıdaki makroyu ufak bir butona ekleyin;

J1 hücresindeki tarihi arar ve varsa; J2 hücresinden itibaren getirir..

J1 hücresi formülü:

=BUGÜN()

Sub AraVeGetir()
    Dim arananDeger As String
    Dim aralik As Range
    Dim hucre As Range
    Dim satirNumarasi As Long
    Dim i As Integer
    
    arananDeger = Range("J1").Value ' J1 hücresindeki değeri
    Set aralik = Range("A2:G66")
    
    For Each hucre In aralik
        If hucre.Value = arananDeger Then
            satirNumarasi = hucre.Row
            Exit For
        End If
    Next hucre
    
    If satirNumarasi <> 0 Then
        Range(Cells(satirNumarasi + 1, hucre.Column), Cells(satirNumarasi + 6, hucre.Column)).Copy
        Range("J2").PasteSpecial Paste:=xlPasteAll 'J2 hücresine getir
        Application.CutCopyMode = False
    Else
        MsgBox "Aranan değer bulunamadı.", vbExclamation
    End If
End Sub

 

[Korhan Ayhan]

Alternatif...

Boş bir hücreye aşağıdaki formülü uygulayıp 12 satır aşağı sürükleyiniz.

=KAYDIR($A$1;TOPLA.ÇARPIM(($A$2:$G$66=BUGÜN())*SATIR($A$2:$G$66))+SATIR($A1)-1;TOPLA.ÇARPIM(($A$2:$G$66=BUGÜN())*SÜTUN($A$2:$G$66))-1)

 

[SFBYAPIM]

Makrolu ve makrosuz çözüm ikisi de çalışıyor, teşekkürler