TEKRARLAYAN SAYILAR

[kardelen79]

A Sütunda bulunan rakamları aynı tekrar edenleri ayırıp b sütununa 1 tanesini yazdırabilirmiyiz .örnegin 10 rakamından 5 tane var ben bunu 1 tanesini b sütununa aktarmak istiyorum eşit olanlar gelmeden sadece 1 tane 10 b sutununda görmek istiyorum daha sonra ise C sütununa is b sütunun 10 rakamını karşısına A Sütunun da kaç tane 10 rakamının olduğunu yazmasını istiyorum birde satır sayıları değişken A SÜTUNUNDA bu 100 tane de olabiliyor 10000 tanede olabiliyor

 

[Orion1]

Örnek dosya yollarsanız daha çabuk yanıt alabilirsiniz.

 

[kardelen79]

İnşallah olur

 

[Orion1]

Dosya üzerinde elle manüel yapın 3-4 satır.
Böyle anlaşılmıyor.

 

[kardelen79]

ABİ inşallah anlatabiliyorumdur burdayım bi problem olursa hemen cevap verebilirim

 

[kardelen79]

birde satır sayısı bu yolladığım örnek biraz daha fazla

 

[Orion1]

G5 te 1,08 nedir.Bir eşleşme göremedim.
C sütunu diyorsunuz ama C sütununda öyle bir değer yok.

 

[YUSUF44]

Dosyaya bakamadım ancak özet tablo raporuyla yapılabilir gibi görünüyor. Denediniz mi?

 

[kardelen79]

Abim hemen bakıyorum rakamlar olsun değince öylesine yazdım bende

 

[kardelen79]

işte o G sütununa C sütunundaki rakamlar gelecek küçüge büyüge ama aynı olan rakamların 1 tanesi yazılacak ve H sütununa ise sütununa ise g sütununda ki rakamı baz alarak C sütununda örnegin 1,10 rakamı kaçtane olgunu gösterecek

 

[Orion1]

C sütununda yok yazdıklarınız.D sütununda var.
Öteki de 1 sütun ötesi.
Dosya ektedir.

Sub sirala_59()
Dim sonsat As Long, i As Long, sat1 As Long, sat2 As Long
Range("G5:J" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sat1 = 5
sat2 = 5
Application.ScreenUpdating = False
For i = 5 To sonsat
    If WorksheetFunction.CountIf(Range("D5:D" & i), Cells(i, "D").Value) = 1 Then
        Cells(sat1, "G").Value = Cells(i, "D").Value
        Cells(sat1, "H").Value = WorksheetFunction.CountIf(Range("D5:D" & sonsat), Cells(i, "D").Value)
        sat1 = sat1 + 1
    End If
    If WorksheetFunction.CountIf(Range("E5:E" & i), Cells(i, "E").Value) = 1 Then
        Cells(sat2, "I").Value = Cells(i, "E").Value
        Cells(sat2, "J").Value = WorksheetFunction.CountIf(Range("E5:E" & sonsat), Cells(i, "E").Value)
        sat2 = sat2 + 1
    End If
Next i
Range("G5:H" & sonsat).Sort key1:=Range("G5"), _
        order1:=xlAscending, key2:=Range("H5"), order2:=xlAscending
Range("I5:J" & sonsat).Sort key1:=Range("I5"), _
        order1:=xlAscending, key2:=Range("J5"), order2:=xlAscending
Application.ScreenUpdating = True
MsgBox "İşlem Bitti."
End Sub

 

[Orion1]

Yine eve gittiniz herhalde.

 

[kardelen79]

Evet abi baktim excel web den ciktiniz.bende sizde çıktınız sandim

 

[kardelen79]

abim burdamısın