Iki sayfa arasında bağlantı yapmak

[ERD-40]

Gönderdiğim ekte 1'inci sayfada günlere göre kim ne satmış listesi var 2 'nci sayfadada satılan ürünleri kim ne zaman satmış bu konuda bana yardımcı olursanınız sevinirim

 

[Mustafa MUTLU]

Konuyu tam açıklamamışın.
2. sayfaya Ürünlere göre satış yapan kişi ismi gelecek sanırım.
Ama satış tarihlerini de istemen lazım sanırım.
2. sayfanın B1 Hücresine bügün tarihi var
Bu gün kimin ne sattığını mı istiyorsun.
Biraz daha açık yazarsan yardımcı olmaya çalışayım..

 

[ERD-40]

hangi tarihte kim ne satmış onu öğrenmek istiyorum teşşekkürler

 

[ERD-40]

2'inci sayfadaki meyveleri yukarıdaki tarihe göre kim satmış

 

[Ömer]

2'inci sayfadaki meyveleri yukarıdaki tarihe göre kim satmış

Merhaba,

Module kopyalayıp çalıştırınız.

Sub BulListele()
 
    Dim c As Range, son As Long, i As Long
 
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
 
    Range("A2:B" & Rows.Count).ClearContents
    With Sheets("Sayfa1")
    Set c = .Rows(1).Find([B1], , xlValues, xlWhole)
        If Not c Is Nothing Then
            son = .Cells(Rows.Count, c.Column).End(xlUp).Row
            .Range(.Cells(2, c.Column), .Cells(son, c.Column)). _
                Copy Range("A2")
            .Range("A2:A" & son).Copy Range("B2")
        End If
    End With
 
    Range("A2:B" & Rows.Count).Sort Range("A2")
    Cells.EntireColumn.AutoFit
 
[COLOR=blue]    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row[/COLOR]
[COLOR=blue]        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then[/COLOR]
[COLOR=blue]            Cells(i, "A").ClearContents[/COLOR]
[COLOR=blue]        End If[/COLOR]
[COLOR=blue]    Next i[/COLOR]
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[ERD-40]

Teşekkürler

 

[Mustafa MUTLU]

Ömer Bey in Kodları çok güzel olmuş..
Yalnız bir eksikliği fark ettim Ömer Bey
Aynı gün aynı Meyve den iki kişi satış yapmış ise
İkinci kişinin karşılığı (Meyve Adı) boş görünüyor.

 

[Ömer]

Ömer Bey in Kodları çok güzel olmuş..
Yalnız bir eksikliği fark ettim Ömer Bey
Aynı gün aynı Meyve den iki kişi satış yapmış ise
İkinci kişinin karşılığı (Meyve Adı) boş görünüyor.

Mustafa bey,

Kodlardaki mavi işaretli bölgeyi bunun için yaptım. Sayın ERD-40 eklediği dosyada raporlamada ürünler tek olduğu için bu şekilde yaptım. Bir nevi süzme görüntüsü gibi.

Eğer boş gözükmesi istenmiyorsa kodlardaki mavi bölüm silinebilir.

.

 

[Mustafa MUTLU]

Teşekkürler..
Ömer Bey..
Elinize Sağlık..