Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-01-2017, 00:02   #1
ugurabi
Altın Üye
 
Giriş: 18/09/2014
Şehir: İstanbul
Mesaj: 39
Excel Vers. ve Dili:
2013 türkçe
Varsayılan İlk satır hep boş kalsın?

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.
ugurabi Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-01-2017, 00:18   #2
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Range değerini kendinize göre ayarlayın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub satir_ekle()
    Range("A1:D1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-01-2017, 00:32   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,483
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

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.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target.Address = "$1:$1" Then Exit Sub
If Target <> "" Then
    Rows("1:1").Insert Shift:=xlDown: [A1].Activate: End If
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-01-2017, 10:50   #4
ugurabi
Altın Üye
 
Giriş: 18/09/2014
Şehir: İstanbul
Mesaj: 39
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
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.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target.Address = "$1:$1" Then Exit Sub
If Target <> "" Then
    Rows("1:1").Insert Shift:=xlDown: [A1].Activate: End If
End Sub
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
ugurabi Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:31


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden