Listeden , Özet liste oluşturma

[zafer]

Listeden , Ã?zet liste oluşturma

Merhaba

Aşağıdaki ekli dosyamda Data sayfasındaki iki sütundaki bilgilerimden, özet adlı sayfaya aynı olan verileri aktarmak istiyorum.

Bunu özet tablo olarak değilde makro yolu ile yapmak istiyorum.

Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:55db692dd8]Sub listele()
For a = 2 To Cells(65536, 1).End(xlUp).Row
Cells(a, 256) = Cells(a, 1) & Cells(a, 2)
Next
For b = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("IV2:IV" & b), Cells(b, 256)) = 1 Then
c = c + 1
Sheets("ozet").Cells(c + 1, 1) = Cells(b, 1).Value
Sheets("ozet").Cells(c + 1, 2) = Cells(b, 2).Value
End If
Next
Columns(256).ClearContents
End Sub
[/vb:1:55db692dd8]

 

[zafer]

Sayın Leventm

Çok Teşekkür ederim, Ellerinize sağlık


Saygılarımla