• DİKKAT

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

Sadece belli verileri süzüp , başka sayfada raporlama

Katılım
6 Aralık 2004
Mesajlar
3
Merhaba
A3-A6 hücrelerinde bazı carilerimin kodları var.
D3 hücresinden başlayarakta birçok carinin bilgileri var.
istediğim şu d3 hücresindeki carilerden bana sadece benim ihtiyacım olanları (a sütunundakiler ) alıp örneğin sayfa 2 deki a1 hücresine diğer bilgilerinide alarak (cari ismi , adres , telefon) kopyalaması.

çok teşekkür ederim.
 

Ekli dosyalar

Aşağıdaki kodları deneyiniz.
Kod:
Sub Listele()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:e5000").ClearContents
For i = 3 To s1.[a65536].End(3).Row
    For j = 3 To s1.[d65536].End(3).Row
        If s1.Cells(i, "a").Value = s1.Cells(j, "d").Value Then
            sat = s2.[a65536].End(3).Row + 1
            s2.Cells(sat, "a").Value = sat - 1
            s2.Cells(sat, "b").Value = s1.Cells(j, "d").Value
            s2.Cells(sat, "c").Value = s1.Cells(j, "e").Value
            s2.Cells(sat, "d").Value = s1.Cells(j, "f").Value
            s2.Cells(sat, "e").Value = s1.Cells(j, "g").Value
        End If
    Next j
Next i
MsgBox "Bitti"
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub
 

Ekli dosyalar

Geri
Üst