• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
12 Ocak 2017
Mesajlar
39
Excel Vers. ve Dili
Türkçe 2010
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
 

Ekli dosyalar

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ü:
C++:
=BUGÜN()

C++:
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

254170
 
Alternatif...

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

C++:
=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)
 
Makrolu ve makrosuz çözüm ikisi de çalışıyor, teşekkürler
 
Geri
Üst