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
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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.