Hücredeki Değişkene Göre Satır Kopyalama

[yildirimi]

Merhaba Arkadaşlar,

Şimdiye kadar epey yardımlarınızı aldım, hepsi için ayrı ayrı teşekkür ederim. Şuan şöyle bir sıkıntım var;

Verileri topladığım sayfanın adı "Liste"

Ağustos , Eylül , Ekim , Kasım , Aralık adında verileri süzdüğüm sayfalar var.

Ağustos ayındaki takvimde ben ayın 15'ini tıkladığımda "GunlukPlan" sayfasına "Liste" sayfasından 15.08.2014 tarihine ait bütün satırları çekmesini istiyorum.

Ayrıca daha sonra takvimden farklı bir tarih tıklandığında "GunlukPlan" sayfasını temizleyip yeni verileri çekmesi gerekiyor.

Günleri belirttiğim her hücreye tıkladığımda aynı işlemi yapabilir miyiz?

Yardımlarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Ağustos için dosyanızın derlenmiş hâli ektedir.
Köprüler hata verdiği için kaldırdım.
Eylül ve diğer aylardaki tarihler hatalı, hepsinde ağustos tarihleri var.

Kodları tüm aylar sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [C5:I5,C8:I8,C11:I11,C14:I14,C17:I17]) Is Nothing Then Exit Sub
    If Selection.Value = "" Then Exit Sub
    
    tarih = "=" & Selection.Value
    Sheets("GunlukPlan").Range("A2:O65536").Clear
    
    With Sheets("Liste")
        If Not .AutoFilterMode Then
            .Range("A2:O65536").AutoFilter
        Else
            .ShowAllData
        End If
        
        .Range("A2:O65536").AutoFilter Field:=1, Criteria1:=tarih
        
        .Rows("3:3").EntireRow.Hidden = False
        .AutoFilter.Range.Copy Sheets("GunlukPlan").Range("A2")
        
        .AutoFilterMode = False
    End With
End Sub

 

[yildirimi]

Merhaba Sayın Hüseyin Çoban,

Makro gayet güzel çalışıyor teşekkür ederim. Bu makroya; Tarihlerin yazılı olduğu hücreye tıklayınca "GunlukPlan" sayfasına nasıl yönlendirebiliriz?

Tarihlerin yazılı olduğu hücrelere köprü atıyorum ama bu sefer gerekli olan verileri çekmiyor maalesef.

 

[Emir Hüseyin Çoban]

. . .

End Sub satırından önce şu satırı ilave edin.

Sheets("GunlukPlan").Select

. . .

 

[yildirimi]

Sayın Hüseyin Çoban,

Çok teşekkür ederim bu ekleme ile şuan için harika çalışıyor.