Birinci sayfaaki butona bastıgımda ikinci sayfadaki istediğim yere boş satır eklemesi

[cadoli]

Birinci sayfasaki butona bastıgımda, ikinci sayfadaki istediğim satıra boş satır eklemesini istiyorum.
Örneğin bu kod bulunduğum sayfadaki istediğim satıra boş satır ekliyor

For i = 10 To 9 + Sheets("Sayfa2").[A7]
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
[A1].Select


fakat ben baska sayfadaki hücreye eklemesini istiyorum?

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Sayfa ismini değiştirebilirsiniz.

For i = 10 To 9 + Sheets("Sayfa2").[A7]
[COLOR="Red"]Sheets("Sayfa1").[/COLOR]Rows(i).Insert Shift:=xlDown
Next i
[A1].Select

.

 

[cadoli]

Merhaba,

Bu şekilde deneyin. Sayfa ismini değiştirebilirsiniz.

For i = 10 To 9 + Sheets("Sayfa2").[A7]
[COLOR="Red"]Sheets("Sayfa1").[/COLOR]Rows(i).Insert Shift:=xlDown
Next i
[A1].Select

.

Malesef çalışmıyor.

 

[Ömer]

Çalışmıyordan kastınız nedir.
Ben şimdi denedim, çalıştı. Siz nasıl bir hata aldınız.

 

[cadoli]

Çalışmıyordan kastınız nedir.
Ben şimdi denedim, çalıştı. Siz nasıl bir hata aldınız.

Aynı Sayfada calısıyo ben bu kodu SAyfa1 deki butonun Click ine yazıp 2.sayfada boşluk atmasini istiyorum

 

[cadoli]

Private Sub CommandButton1_Click()
For i = 10 To 9 + Sheets("Sayfa1").[A7]
Worksheets("Sayfa2").Select
Worksheets("Sayfa2").Rows(i).Insert Shift:=xlDown
Next i
End Sub


Bu Şekilde Çözdüm Sorunumu Teşekkür ederim İlginiz için.