Bir listeden başka sayfaya veri aktarmak hk.

[gokhantopuz]

Merhaba,

A sayfasında AB sütunundaki "Gelen faturalar" listemi B sayfasındaki AB sütununa dinamik olarak ve aynı numaralı faturaları yinelemeden aktarmak istiyorum. Epey arandım ancak beceremedim. Yol gösterebilirseniz memnun olurum. Şimdiden teşekkürler.

 

[YUSUF44]

"Dinamik olarak"tan kastınız nedir, örnek dosyayla gösterir misiniz?

 

[gokhantopuz]

Yusuf bey, link https://s4.dosya.tc/server10/ioikzq/FATURA.xlsx.html
Teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları A sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) kopyalayın. B:I aralığındaki tüm hücreler doluysa ve aynı sağlayıcı, aynı tarih ve ayn fatura nosu B sayfasında yoksa o faturanın E f ve G hücrelerini B sayfasına aktarır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:I10000]) Is Nothing Then Exit Sub
a = Target.Row
If WorksheetFunction.CountBlank(Range("B" & a & ":I" & a)) = 0 Then
    son = Sheets("B").Cells(Rows.Count, "E").End(3).Row
    If WorksheetFunction.CountIfs(Sheets("B").Range("E3:E" & son), Cells(a, "E"), _
        Sheets("B").Range("F3:F" & son), Cells(a, "F"), Sheets("B").Range("G3:G" & son), Cells(a, "G")) = 0 Then
        Range("E" & a & ":G" & a).Copy Sheets("B").Cells(son + 1, "E")
        Application.CutCopyMode = False
        Target.Select
    End If
End If
End Sub

 

[gokhantopuz]

Teşekkürler , deneyeceğim.