Aynı no ile belirtilmiş ürünlerin arasında bir satır boşluk verdirme

[izcik]

Merhaba değerli Uzmanlarım.

Yine bir minik soru ile yardımınıza ihtiyacım var.

Sayfa 1 de stok listesinin normal hali,

Sayfa 2 de ise aynı numaralara sahip olan ürünlerin arasına bir boşluk bırakılmış örneği vardır.

listem 65536 satır ve bütün sütunları kapsamaktadır.

Makro düğmesini yapmak için gerekli kodu yazar mısınız?

Teşekkür eder iyi çalışmalar dilerim değerli Uzmanlarım.

 

[Ömer]

Merhaba,

Sub Deneme()
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 3 Step -1
Say = Cells(i, "A") - Cells(i - 1, "A")
    
    If Say <> 0 Then
        Say = Say - 1
        Rows(i & ":" & i + Say).Insert Shift:=xlDown
     End If
Next
Application.ScreenUpdating = True
End Sub

.

 

[izcik]

Teşekkür ederim Ömer uzmanım.

Peki diğer sayfaya aktarma imkanı olabilir mi acaba?

Yoksa böyle de olur uzmanım.

 

[Ömer]

Teşekkür ederim Ömer uzmanım.

Peki diğer sayfaya aktarma imkanı olabilir mi acaba?

Yoksa böyle de olur uzmanım.

Bu şekilde deneyin.

Sub Deneme()
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa2 OLMASI GEREKEN")
S1.Cells.ClearContents
Cells.Copy S1.Range("A1")
S1.DrawingObjects.Delete
 
For i = S1.[A65536].End(3).Row To 3 Step -1
Say = S1.Cells(i, "A") - S1.Cells(i - 1, "A")
 
    If Say <> 0 Then
        Say = Say - 1
        S1.Rows(i & ":" & i + Say).Insert Shift:=xlDown
     End If
Next
Application.ScreenUpdating = True
End Sub

.

 

[izcik]

Elinize sağlık Ömer uzmanım