Ektekİ Şekİl Nasil Verİlİr

[koala_x]

ekteki dosyadaki sıralamayı nasıl yapabilirim.??


dosyada veriler ve istenen şeklin örneklemesi mevcut,

 

[alpi]

gönderdiğiniz dosyada bir açıklama mevcut değil ama siz herhalde bir sutündaki benzesiz verileri almak istiyorsunuz bunun için

Veri/filitre uygula/gelişmiş filitre menüsünü seçiniz

açılan formda

1- başka bir yere kopyala -seçiniz
2-Liste aralığına tıklatıp listenizin bulunduğu sutünu seçiniz
3-Yanlızca benzersiz kayıtları seçiniz
4-Hedefi seçip benzersiz kayıtların nereye yapıştırılmasını istiyorsanız sayfasnızdan seçiniz.

işlem bu kadar

 

[koala_x]

cevabın için teşekkürler . benim istediğim
445 - 1
445 - 2
445 - 1
445 - 0
bu dört satırın başka bir çalışma sayfasında sadece

445- 1-2-1-0 şeklinde görünmesi... filtreleme yapınca yine alt alta görünüm var. ben yanyana sıralamaya çalışıyorum.

 

[alpi]

Sayfa adını sağ tıklatıp kod görüntüleyi seçiniz aşağıdaki kodu kod editörüne yapıştırınız. F5 tuşuna basarak makroyu çalıştırınız.

Sub VerileriDüzenle()
Dim r As Range
Dim bakılan As String
Dim YazSu As Integer
Dim YazSa As Integer
YazSa = 1
YazSu = 4
For Each r In Range("A2:A65500")
If r.Value = "" Then
Exit Sub
ElseIf bakılan = r.Value Then
YazSu = YazSu + 1
Else
bakılan = r.Value
Cells(YazSa + 1, 4) = bakılan
YazSa = YazSa + 1
YazSu = 5
End If
Cells(YazSa, YazSu).Value = Cells(r.Row, 2).Value
Next
End Sub

 

[koala_x]

hocam budur ya süpersin teşekkürler...

 

[alpi]

hoca (eğitmen) olmayı çok isterdim am amaalesef değilim sorununuzun çözülmesine sevindim

iyi çalışmalar

 

[koala_x]

valla kanımca iki kelime fazla bilgisi olanlar dahi yaş gözetmeksizin ilgili olduğumuz alanlarda laf söylemeye haizdir ve konuyla ilgili öğretici(hoca) sayılır. Söyleminizi mütevazilik olarak saydım. Tekrar teşekkürler... iyi çalışmalar...