İki hücre arasını boş geçmek

[ÆSir]

İyi akşamlar,

Satırlar bir birinden ayrı dursun diye 2 hücre arasına boş bir satır bıraktım ama bu defa da M20 hücresine bir değer yazıp alt satıra inmek istediğimde 2 defa enter yapmak zorunda kalıyorum ve bu alışkanlığın dışında olduğu için sık sık hata yapıyorum. Her ne kadar arada 21-23-25. satırlar olsa da bunları yok saymak mümkün mü?
Ve çalışma sayfası kilitlemek gibi formüllerin olduğu ve boş olan hücrelere bir şey yazılmaması için hücre bazlı kilit atabilir miyiz?

 

[Necdet]

Merhaba,
Ben olsam hiç böyle atraksiyonlu işlere girişmem, dediğiniz gibi sıkıntıllarla karşılaşıyor insan.

 

[Korhan Ayhan]

Necdet beye katılıyorum. Böyle görsel işlemler göze hoş görünsede kullanımda zorluklar çıkarıyor.

Yinede sayfa koruma yöntemine örnek olması açısından revize dosyanızı paylaşıyorum.

Bu yöntem kullanışsız gelirse veri girişi sayfasını ayrı tutabilirsiniz. Normal bir tablo düzeni olur. Verileri alt alta girersiniz. Oradan da teklif sayfasına sıra numarasına göre DÜŞEYARA formülü ile verileri aktarabilirsiniz. Böylece görsel olarak yine aynı sonuca ulaşmış olursunuz. Sadece sayfa sayısı artmış olur.

 

[ÆSir]

Necdet beye katılıyorum. Böyle görsel işlemler göze hoş görünsede kullanımda zorluklar çıkarıyor.

Yinede sayfa koruma yöntemine örnek olması açısından revize dosyanızı paylaşıyorum.

Bu yöntem kullanışsız gelirse veri girişi sayfasını ayrı tutabilirsiniz. Normal bir tablo düzeni olur. Verileri alt alta girersiniz. Oradan da teklif sayfasına sıra numarasına göre DÜŞEYARA formülü ile verileri aktarabilirsiniz. Böylece görsel olarak yine aynı sonuca ulaşmış olursunuz. Sadece sayfa sayısı artmış olur.

Bende olmasını istediğim gibi bir şey olmuş. Teşekkür ederim, bunu nasıl yaptınız? Biraz baktım ama çözemedim. Yazılacak bazı yerler de kilitlenmiş, o kısımları açarım bende.

Merhaba,
Ben olsam hiç böyle atraksiyonlu işlere girişmem, dediğiniz gibi sıkıntıllarla karşılaşıyor insan.

Ama başka alternatifim bulunmuyor.

 

[Korhan Ayhan]

Veri girebileceğiniz hücreleri seçerek hücre biçimlendirme seçeneklerinden "KİLİTLİ" seçeneğini pasif yaparak sayfayı korumaya aldım.

 

[Necdet]

Alternatif olarak aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Kodlarda sayfa1 de cursor hareketinin Enterdan sonra sağa gitmesi için önce başka bir sayfaya geçip, tekrar sayfa1 e dönerseniz, sıkıntı olmaz.

Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 20 Or Target.Row > 58 Then Exit Sub
If Target.Column = 8 Or Target.Column = 10 Or Target.Column = 12 Then Target.Offset(0, 1).Activate
If Target.Column > 13 Then Target.Offset(2, -10).Activate
End Sub