Farklı bir sıralama ve birleştirme şekli (benim için)

[endezyar]

Acil !!! Farklı bir sıralama ve birleştirme şekli (benim için)

İyi günler ; ekte gönderdiğim excel sayfasında sabit olan ve değiştiğinde nasıl olması gerektiğini bir örnekle açıklamaya çalıştım.Eğer bunu düzenlemesini yapamazsam 2000 satırı değiştirmek zorunda kalacağım.Yardımcı olursanız sevinirim.Şimdiden teşekkürler...

 

[uzmanamele]

merhaba

ek dosyadaki deneme sayfasındaki gibi mi istiyorsunuz?

 

[endezyar]

Öncelikle çok teşekkür ederim.Sorunumun bir tarafı hallonmuş ilk taraf o şekilde kalmış.''193.0,193.1 193.2' önceki sıra ben bu sırayı baştan yani ''1.0,1.1,1.2..) şeklinde değiştirmek istiyorum.

 

[uzmanamele]

merhaba

kodu bu şekilde değiştirerek deneyiniz.

Sub merge()
Call kodla
Application.DisplayAlerts = False
ss = Range("f65536").End(3).Row

For i = ss To 4 Step -1
If Cells(i, "f") = Cells(i - 1, "f") Then
Range(Cells(i, "f"), Cells(i - 1, "f")).merge
Range(Cells(i, "g"), Cells(i - 1, "g")).merge
Range(Cells(i, "h"), Cells(i - 1, "h")).merge
End If
Next
Application.DisplayAlerts = True
End Sub

Sub kodla()
ss = Range("f65536").End(3).Row
kod = 0
For j = 4 To ss
If Cells(j, "f") <> Cells(j - 1, "f") Then kod = kod + 1
Cells(j, "e") = kod + (Application.WorksheetFunction.CountIf(Range(Cells(4, "f"), Cells(j, "f")), Cells(j, "f")) / 10) - 0.1
Next
End Sub

 

[endezyar]

Teşekkürler