Satır Eklemek

[sadikd]

Herkese Merhaba,
Satır ekleme fonksiyonunu bilen biri gönderirse sevinirim.

 

[mehmett]

Sorunuzu biraz daha açar mısınız veya örnek dosya ekleyebilir misiniz?

Menülerden satır eklemek işinizi görecekse;

Ekle > Satır komutlarını verin.

 

[sadikd]

Evet biraz kısa bahsetmişim.
Makroda bir koşul yazdım. Yazdığım koşulda sorun yok. O koşul gerçekleştiğinde belirli iki satır arasına bir boş satır eklemek istiyorum.

 

[Kullanıcı_Adı]

C12 hücresine yeni satır açmak için;

Range("C12").EntireRow.Insert


seçili hücrede yeni satır açmak için;

Selection.EntireRow.Insert

 

[sadikd]

Sub SATIREKLE()

For i = 2 To 100
If Cells(i, 1) <> Cells(i + 1, 1) Then
Range("i1").EntireRow.Insert
End If
Next i
End Sub

Şöyle bir makro yazdım ama satır ekleme noktasında hata veriyor. ilk 100 satırı aşağı indiriyor. Ben i. satır ile i+1. satır arsına bir satır açmasını istiyorum.
Teşekkürler...

 

[sadikd]

Yardım edebilecek biri yok mu acaba...

 

[hamitcan]

Birde aşağıdaki şekilde deneyin.
Sub SATIREKLE()

For i = 2 To 100
If Cells(i, 1) <> Cells(i + 1, 1) Then
If Cells(i, 1) = Empty Then i = i + 1

Rows(i + 1).EntireRow.Insert
End If
Next i
End Sub

 

[sadikd]

Sub SATIREKLE()

For i = 2 To 8
If Cells(i, 1) <> Cells(i + 1, 1) Then

Rows(i + 1).EntireRow.Insert
End If
Next i
End Sub

sizin yaptığınızdan esinlenerek şöyle bir şey yaptım. O da sadece 1. satırla 2. satır arasına 7 tane satır ekledi. Yani döngüde ilk if'in sağlandığı yere.

 

[hamitcan]

Aşağıdaki satırı neden kullanmadınız ?

If Cells(i, 1) = Empty Then i = i + 1 :düsün:

 

[sadikd]

O satırı kullandım da olmadı. Başka bir şey denedim oldu. Yardımın için sağol...

Sub SATIREKLE()

For i = 2 To 10000
If Cells(i, 1) <> Empty Then
If Cells(i, 1) <> Cells(i + 1, 1) Then

Rows(i + 1).EntireRow.Insert
End If
End If
Next i
End Sub