• DİKKAT

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

Excel DİĞer Sayfadan Belİrtİlen Şarta Uygun Verİ Alma

Katılım
5 Temmuz 2008
Mesajlar
3
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Arkadaşlar meraba

ekte gönderdiğim dosyada göreceğiniz gibi veri sayfasında yer alan bir tablo var.
arama sayfasında bir hücreye (ör:b3) bir tarih yazdığımda veri sayfasında tablonun o tarihle eşleşen satırlarını arama sayfasına taşımak istiyorum.

Yardımlarınızı bekliyorum.
teşekkürler
 
arkadaşlar konuyla ilgilenen birisi yokmu
lütfen çok acil yardıma ihtiyacım var
teşekkürler...
 
Merhaba,

Makro ile çözüm isterseniz buyrunuz.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
[A6:F1000].ClearContents
Sat = 5
Set s = Sheets("veri")
For i = 2 To s.[A65536].End(3).Row
    If s.Cells(i, "C") = [C2] Then
        Sat = Sat + 1
        Cells(Sat, "A") = s.Cells(i, "A")
        Cells(Sat, "B") = s.Cells(i, "B")
        Cells(Sat, "C") = s.Cells(i, "C")
        Cells(Sat, "D") = s.Cells(i, "D")
        Cells(Sat, "E") = s.Cells(i, "E")
        Cells(Sat, "F") = s.Cells(i, "F")
    End If
Next i
Application.ScreenUpdating = True
End Sub
 
necdet bey çok teşekkür ederim.
ellerinize sağlık...
 
Geri
Üst