İlk satır hep boş kalsın?

[ugurabi]

Merhaba,

Satırların aşağı doğru kaymasını sağlayan bir ayar var mıdır?
Yani ben hep ilk satıra yazayım ve Enter'a basınca satır aşağı kaysın, ilk satır boşalsın gibi.

 

[vardar07]

Range değerini kendinize göre ayarlayın.

Sub satir_ekle()
    Range("A1:D1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[Ömer BARAN]

Merhaba.

Sorunuz bence ucu açık ve net olmayan bir soru.

Hep ilk satıra yazayım.... cümlesinden anlaşılan o ki;
birinci satırda birden fazla hücreye veri gireceksiniz.

Veri girişi yapılan hücre adeti diyelim üç adet; bunlardan biri boşsa ne olacak vs gibi netleşmesi gereken hususlar var bence.
İsterseniz isteğinizi detaylandırarak bir örnek belge hazırlayın ve cevabımın altındaki açıklamalar doğrultusunda yükleyin ki sorunuz netleşsin.

Eğer tek bir hücreden bahsediyorsak (ben A1 hücresi diye düşündüm);
--alt taraftan uygulama istediğiniz sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.

A1 hücresine veri yazıp;
-- ENTER tuşuna bastığınızda
-- veya OK tuşlarını kullanarak
-- ya da fareyle başka bir hücreyi seçerek
A1 hücresinden ayrıldığınızda, istediğiniz husus gerçekleşir.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target.Address = "$1:$1" Then Exit Sub
If Target <> "" Then
    Rows("1:1").Insert Shift:=xlDown: [[B][COLOR="Blue"]A1[/COLOR][/B]].Activate: End If
[B]End Sub[/B][/FONT]

 

[ugurabi]

Merhaba.

Sorunuz bence ucu açık ve net olmayan bir soru.

Hep ilk satıra yazayım.... cümlesinden anlaşılan o ki;
birinci satırda birden fazla hücreye veri gireceksiniz.

Veri girişi yapılan hücre adeti diyelim üç adet; bunlardan biri boşsa ne olacak vs gibi netleşmesi gereken hususlar var bence.
İsterseniz isteğinizi detaylandırarak bir örnek belge hazırlayın ve cevabımın altındaki açıklamalar doğrultusunda yükleyin ki sorunuz netleşsin.

Eğer tek bir hücreden bahsediyorsak (ben A1 hücresi diye düşündüm);
--alt taraftan uygulama istediğiniz sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.

A1 hücresine veri yazıp;
-- ENTER tuşuna bastığınızda
-- veya OK tuşlarını kullanarak
-- ya da fareyle başka bir hücreyi seçerek
A1 hücresinden ayrıldığınızda, istediğiniz husus gerçekleşir.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target.Address = "$1:$1" Then Exit Sub
If Target <> "" Then
    Rows("1:1").Insert Shift:=xlDown: [[B][COLOR="Blue"]A1[/COLOR][/B]].Activate: End If
[B]End Sub[/B][/FONT]

Merhaba Ömer BARAN Hocam,

Yeni öğrenmeye başlayan biri olarak aklıma gelmeyen ya da öngöremediğim
durumları yazdığınız ve çözüm öneriniz için çok teşekkür ediyorum.
İsminizin altında yazan "Uzman" boş bir tanım değilmiş.
Öte yandan Öğretmen ile öğrenci arasındaki fark budur işte.

Yapmaya çalıştığım senaryoya ilişkin hazırladığım örnek dosyayı gönderdim.
(xlsm dosyası yüklemek yasakmış, o yüzden zip olarak gönderdim.) Sizin
öneriniz ile yaptığım örnek istediğim gibi çalışıyor ancak b, c, d, e
sütunlarının boş olması halinde de satır aşağı kayıyor. Gerekliliği konusunda
karar veremedim. Bir de ilk satırı başlık satırı olarak renklendirmiştim, yeni
satır eklendiğinde renkli olarak ekleniyor.

http://s8.dosya.tc/server3/8tz2mw/ornek.zip.html