yinelenen hücre değerlerini kaldırmak

[Cihannalbant]

B sutununda yinelenen hücre değerlerini kaldırmak ve sayfa 2 ye sonucu kopyalamak istiyorum
Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b1:b" & a), Cells(a, "b")) > 1 Then Rows(a).Delete
Next
End Sub

bu vba ile sonuç sayfa 1 e çıkıyor ben sayfa 1 in bozulmasını istemiyorum açılan sayfalarda çalışmak istiyorum yardımcı olur musunuz ?

 

[kulomer46]

Merhaba

Forumumuza va aramıza hoş geldiniz.
Aşağıdaki kodlar işinizi görür.

Selamlar...

Sub sil()

Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy After:=Sheets(1)
  
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b1:b" & a), Cells(a, "b")) > 1 Then Rows(a).Delete
Next

End Sub

 

[Cihannalbant]

Çok teşekkürler

 

[Cihannalbant]

=A2:K20 bir çizelgem var.
burada B sutununda tekrar eden isimler ve farklı olan isimler de var karşılarında farkı farklı değerler (C,D,E,F,G) sütünlarında
etopla formülüyle zor oluyor işlemi sürekli tekrarlamak gerekiyor

isimleri teke indirerek değerleri karşısına toplama işlemi yaparak sonucu yeni sayfa açarak kopyalayabılırmıyız. Bıraz daha doğru anlatım oldu galiba

 

[Korhan Ayhan]

Merhaba,

ÖZET TABLO (PIVOT TABLO) kullanmayı denediniz mi?

Kullanımı pratik ve kolaydır.