satır sütun sınırlama

[alfaoz]

bir makro kullanarak satır ve sütunları sınırılamak istiyorum. makroyu çalıştırdığım zaman bana hangi sütunlar arasında çalışmak istediğimi sorsun ve sadece o sütunlar içinde işlem yapabileyim. aslında bunu koruma yöntemiyle yapabiliyorum ancak satır ekleme silme yapmam gerektiği her seferinde korumayı kaldırıp yeniden koruma altına almam gerekiyor. ayrıca bazen çalıştığım sütun aralığını değiştirmem gerektiğinde de tüm bu işlemleri tekrar yapmam gerekiyor. yani makro benim çalıştığım sütunları belirlerken sayfa üzerinde ekleme silme gibi hücre biçimlendirme gibi işlemlere izin vermeli. bir isteğim de mesela B:E sütunlarında çalışmayı sınırlandırdığımı varsayarsak TAB ile sağa gittiğimde E sütununa geldikten sonra tekrar TABa bastığımda bir alt satırın b sütununa gelsin.

 

[dEdE]

Merhaba,
Sayfanın koduna yazıp dener misiniz?

Private Sub Worksheet_Activate()
    ActiveSheet.ScrollArea = "B:E"
End Sub

 

[alfaoz]

malesef olmadı. bir de ben B:E sütun aralığını afaki verdim. hangi araalıkta çalışacağımı da ben seçmek isatiyorum esasen. aynı sayfada çalışırken bu aralığı kısayol tuşuyla değiştirebileyim mesela. birde aktif son sütuna geldiğinde TABa bastığımda yana gidemeyeceğinden bir alt satırın aktif ilk sütununa gitsin istiyorum. örnek dosyada taba bastığımda imlecin nasıl ilerleyeceğini tarif etmeye çalıştım.

 

[alfaoz]

bu istediğimi yapabilecek yok mu?

 

[dEdE]

Merhaba,
Biraz geç oldu ama....

ThisWorkbook a yazılacak kod:

Private Sub Workbook_Open()
ActiveSheet.ScrollArea = ""
Sheets("Sayfa1").CommandButton1.Caption = "Seçili Alanı Sınırla"
End Sub

Sayfa1 in kod bölümüne yazılacak kod:

Private Sub CommandButton1_Click()
If Sheets("Sayfa1").CommandButton1.Caption = "Sınırlamayı Kaldır" Then
    ActiveSheet.ScrollArea = ""
    Sheets("Sayfa1").CommandButton1.Caption = "Seçili Alanı Sınırla"
Else
    ActiveSheet.ScrollArea = Selection.Address
    Sheets("Sayfa1").CommandButton1.Caption = "Sınırlamayı Kaldır"
End If
End Sub

 

[alfaoz]

biraz geç oldu ama ellerinize sağlık tam istediğimin biraz fazlası gerçekten tekrar teşekkürler.

 

[dEdE]

...tam istediğimin biraz fazlası ...

O kadar kusur kadı kızında da bulunur.
Fazla kod göz çıkarmaz...
Güle güle kullanın.

 

[alfaoz]

daha azına razıyken istediğimden fazlasını yapmanız beni çok sevindirdi. şuan kullanıyorum ve çok memnunum gerçekten. umarım bu kusurunuz devamlı olur. İyi günler dilerim...