• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan izcik
  • Başlangıç tarihi Başlangıç tarihi
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
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.
 

Ekli dosyalar

Son düzenleme:
Merhaba,

Kod:
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

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

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

Yoksa böyle de olur uzmanım.
 
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.

Kod:
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
.
 
Elinize sağlık Ömer uzmanım
 
Geri
Üst