Satir BoŞluĞu Birakamiyorum,yardim Edermİsİnİz?

[es-es]

satırlar arası boşluk vermek nasıl yapılır!! acil yardım. lütfen!!

arkadaşlar elimde örneğin A1 HÜCRESİNDEN A50 HÜCRESİNE KADAR SAYILARIM VAR.istediğim A1 HÜCRESİNDEN SONRA A2 HÜCRESİ BOŞ OLSUN.
A3 DOLU A4 BOŞ YANİ BİR DOLU BİR BOŞ OLSUN..NASIL YAPABİLİRİM EN KISA YOLDAN..YARDIMCI OLURSANIZ SEVİNİRİM...
A50'YE KADAR OLAN KISIM BİR DOLU BİR BOŞ A100'E GELSİN..

 

[es-es]

ArkadaŞalar Öncelİkle Bu Forum İle İlgİlene Herkese Çko TeŞekkÜr Edİyorum...

Sorunum Şu A1 HÜcresİ İle A50 HÜcresİ Arasi DeĞerler Var.bunlarin Bİrer BoŞlukla A1 Dolu;a2 BoŞ ;a3 Dolu Şeklİnde BoŞluk Vererek OluŞamsini İstİyorum,yardimci Olursaniz Çok Makbule GeÇer...

 

[Necdet]

Merhaba,

Neden aynı mesajı 2 kere tekrarlıyorsunuz?

Aşağıdaki kodlar size örnek oluşturabilir.

Sub SatirAc()
Application.ScreenUpdating = False
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For i = [A65536].End(3).Row To 2 Step -1
    Rows(i).Insert Shift:=xlDown
Next i
End Sub

 

[Skorpiyon]

Sayın es-es,

Alternatif olsun. Ek'li dosyayı inceleyiniz.

 

[Necdet]

2 yanıt verilmiş ama yorum yok, oldu mu olmadı mı?

 

[uzmanamele]

merhaba
bazı sitelerde, site içindeki linki görüntülemek veya dosyayı indirmek için teşekkür edilmesi zorunluluğu var.
eften püften sitelerde eften püften şeyler için teşekkür ederler ama bizim gibi elinden gelen yardımı esirgemeyen sitelerde sorunun çözüldüğüne dair geri dönüş yapmazlar.
teşekkür ederseniz bizde size teşekkür ederiz, etmezseniz canınız sağ olsun. ama sorun halloldu deseniz bile yeterli.

 

[EGZELL]

sayın uzmanamele,Necdet Yeşertener, Şaban sertkaya hocalarım,
hergün bu siteden sizin sayenizde ve ismini yazamadığım diğer arkadaşlarım sayesinde bir çok şey öğreniyorum. bu da öğrendiğim başka bir bilgi oldu.
her türlü bilgi paylaşımınız için teşekkür ederim.