excel'de satır açmak

[vassago1974]

selamlar
sorum şöyle;
a1 hücresinden a20000 hücresine kadar tüm satırlar dolu
ve ben macro veya başka bir yöntemle bunların arasına bir veya iki satırı aynı anda açmak istiyorum
yardımlarınız için teşekkürler

 

[Necdet]

Sayın vassago1974,
Satır numaralarının gösterildiği yerde kaç satır açacaksınız seçin (3 satır açacaksınız 3 satırı seçin) fare ile sağ tık ve ekle(insert) deyin seçtiğiniz kadar satır açılacaktır.

 

[vassago1974]

Sayın vassago1974,
Satır numaralarının gösterildiği yerde kaç satır açacaksınız seçin (3 satır açacaksınız 3 satırı seçin) fare ile sağ tık ve ekle(insert) deyin seçtiğiniz kadar satır açılacaktır.

sadece ilk satıra değil tüm satırlara aynı anda açmak istiyorum şöyleki
asdfsfr
cdfgfgf
sdfgfgr
bu şekilde a20000 hücresine kadar dolu ve tek bir seferde bunların arasına bir veya iki satırı aynı anda açmak istiyorum
teşekkürler
:kafa:

 

[Necdet]

Nasıl Yani? Ã?rnekleme yaparsanız sanırım herkes anlar.

 

[vassago1974]

a1 hücresi asdfaslfsf
a2 hücresi adfldsflgds
a3 hücresi asşdlfmkaş
a4 hücresi aşdflkaşsfdkg bu şekilde a20000 hücresine kadar dolu
bunların arasına bir veya iki satırı aynı anda açmak istiyorum

a1 hücresi asdfaslfsf

a2 hücresi adfldsflgds

a3 hücresi asşdlfmkaş gibi.... :yardim:

 

[Necdet]

Siz araya satır açmak değil satırın yüksekliğini mi açmak istiyorsunuz?

 

[danersin]

Bazen 1 , bazen 2 tanımınız pek yardımcı olmuyor çünkü ne zaman bir ne zaman 2 olacak muğlak.. aşağıdaki kod tüm sayfada dolu satırların arasına bir satır açar.

Sub Makro2()
Application.ScreenUpdating = False
sonsat = Cells(65536, 1).End(xlUp).Row + 1
For i = sonsat To 1 Step -1
Rows(i).Insert Shift:=xlDown
Next i
End Sub

 

[vassago1974]

sayın Necdet_Yesertener araya satır açmak istiyordum....

sayın danersin
yardımınız için çok teşekkür ederim :mutlu:
peki iki satır açmak isteseydim ?

 

[danersin]

Rows(i).Insert Shift:=xlDown

bu satırı iki defa yazın

 

[vassago1974]

arkadaşlar yardımlarınız için çok teşekkür ederim !

kolay gelsin