İstediğim Hücrede Enter yaptığımda üst sıraga yeni veri girişi açmak

[oboran]

Ekteki örnek çalışmamda açıklamalar hücresine gelip Enter'e bastığımda (Enter yerine Buton'da olabilir) verilerimin bir alt satıra taşınıp üst sırada yeni veri girişi olmasını sağlamak. Makro ile Hücre Ekle ve Satır Ekle biçiminde yaptığımda Grafikte verilerin yerleri değişmekte. Hücre Sırala bölümünüde kullanmak istemiyorum, son yazdığım verileri başka yerlerde de kullanacağım.
Sanırım VBA'da bunun basit bir çözümü vardır.
Siz üstatlardan yardımlarınızı bekliyorum.
Saygı ve Selamlarımla

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[oboran]

Merhabalar,
Sorunumuna yanıt gelmedi, acaba yoğunlukla ilgisi olabilirmi? Yoksa ilgilenmeye değer mi görülmedi?
Saygılarımla

[Bülent Öztürk]

Merhaba Osman Bey.
Sorular bazen gözden kaçabilir, atlanabilir...
Bir süre cevap gelmez ise, konuyu tekrar gündeme getirmek faydalı olabilir.

Enter'e hangi hücrede basacaksınız?
Sadece G15'te mi, yoksa G sütununun herhangi bir satırında mı?
Enter'e bastığınızda Açıklamalar hücresi dolu mu olmalı, yoksa dolu/boş önemli değil mi?
Bir satır boşluk açtığımızda dolu en son satır silinecek mi, yoksa liste aşağı doğru devam edecek mi?
Konuları aydınlatırsanız o doğrultuda yardımcı olmaya çalışırız.

Not: Dosyanızı Excel 2003 versiyonuna uygun kaydedip foruma eklemeniz mümkün ise daha fazla kişi ilgilenebilir.

Saygılarımla.

[oboran]

Bülent bey ilginiz için teşekkürler, dosyayı tekrar Excel 2003 versiyonu ile foruma ekliyorum.
G15 Hücresi dolu veya boş olmaksızın Enter yaptığımda  listenin aşağı doğru devam ederek 15. sıranın boş olmasını ve B15 Hücresi seçili hale gelmesini istiyorum.
Daha öncede belirttiğim gibi Makro ile denedim fakat Grafikte Tarih ve Saat bölümü sorun yarattı. Boşalan 15. sırada girdiğim veri grafikte yer almadı. Aynı zamanda Grafikte verilerin diyelimki ilk 14 satırı yer alsın istiyorum. Makro ile yaptığımda veri yerleri değişiyor.
Sanırım yeterince açıklayabilmişimdir. Anlatamadığım bir konu varsa tekrar açıklayabilirim.
Saygılarımla

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

İlgili sayfanın SelectionChange olayına;

Kod: [Seç]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) <> "G15" Then
    Application.OnKey "~"
    Exit Sub
Else
    Application.OnKey "~", "ExcelceNeOlacak"
End If
End Sub
Bir modüle;

Kod: [Seç]

Sub ExcelceNeOlacak()
Range("B16:G27").Copy Range("B17")
Range("B15:G15").Copy Range("B16")
Application.CutCopyMode = False
End Sub

yazıp deneyin lütfen.

[oboran]

Bülent bey teşekkür ederim. Enter le olmasada olmuştur.
Bir ricam daha olacak, liste aşağıya indiğinde 15. sıranın silinip boş kalması
Saygılarımla

[Bülent Öztürk]

İlgili kodu şuşekilde değiştirin;

Kod: [Seç]

Sub ExcelceNeOlacak()
Range("B16:G27").Copy Range("B17")
Range("B15:G15").Copy Range("B16")
Range("B15:G15").Clearcontents
Application.CutCopyMode = False
End Sub


[oboran]

Bülent bey işlem tamamdır, çok teşekkürler, sizi daha sonra başka konularda rahatsız etmek üzere sağlıcakla kalın.
Saygılarımla

[oboran]

Bülent bey tekrar merhabalar;
Programı sorunsuz kullanırken ne oldu bilemiyorum, hata vermeye başladı. Satır Aç butonuna tıkladığımda yanıt vermiyor.
Çok uzun süre beklememe rağmen dosya açılmıyor.
Sonradan eklediğim kodlar vardı, çakışma yapıyor olasılığı ile hepsini sildim, baştan başladım yine olmadı.
Dosyayı ekliyorum, rica etsem bakabilirmisiniz?
Saygılarımla

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Merhaba Osman Bey.
Dosya bende de açılmadı. 

[oboran]

Bülent bey sorunun kaynağını sanırım buldum;
Yüksek sayıların  kırmızı ile vurgulanması için D,E,K,L Sutunlarda 15. sıradan itibaren "Koşullu Biçimlendirme" var.
"Satır Aç" kodu kopyalayarak indiği için otomatik olarak her hücrede katlayarak koşullu biçimlendirme çoğalıyor.
Bir yere kadar geldikten sonrada çakışma yaşanmaya başladı.
Hoş görüşünüze sığınarak bu konuda işinize karışmış gibi olmadan herhalde bunun çaresi yine VBA da. Koşullu biçimlendirmeyi kaldırıp gerekli sutun ve hücrelerdeki rakamların vurgulanmasını kod ile çözüm sağlamak sanırım.
Saygılarımla