satır atlama

[1903emre34@gmail.com]

Merhaba arkadaşlar

b2 hücresinde başlayıp sıra numarası devam edip farklı numara olunca eski ve yeni numara arasına iki satır oluşacak şekilde nasıl kod yapabiliriz

 

[turist]

Aşağıdaki Kodu kullanabilirsiniz.

Sub AralıkAç()
Dim R As Long
Application.ScreenUpdating = False
On Error Resume Next
Range("B2:b65500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For R = Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
If Cells(R, "B") <> Cells(R - 1, "B") Then
Cells(R, "B").EntireRow.Insert Shift:=xlUp
Cells(R, "B").EntireRow.Insert Shift:=xlUp
End If
Next R
Application.ScreenUpdating = True
End Sub

 

[ozmarkopasa]

Bir sorum olacak cevap alabilir miyim

 

[1903emre34@gmail.com]

teşekkürler