F5 Hücresinden Enter Tuşu ile A1 Hücresine Geçiş ve 2. Sorum

[k.guclu]

İyi günler arkadaşlar,

Size danışacağım vve içinde çıkamadığım 2 sorum var. Yardımcı olursanız çok memnun olurum.

1. Yapmaya çalıştığım bir hesap programından değerleri düzenli girebilmek için
ve sürekli yön tuşları ve mause kullanarak gitmemek için.

2. Combobox ve command butonuyla oluşan bir form hazırladım. ve 546 adet il ve ilçe değerlerini girdim.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim sehiradi
sehiradi = iller.Text
Select Case sehiradi
Case "Acıpayam": Range("B4")= -6: Range("D4")= "":Range("N4")= sehiradi
.
.
.
.
546 adet il ve ilçe

Bu şekil yaptığım zaman bana "procedure too large"( Uzun Prosedür)
Uyarısı geliyor.
Bu konuda bilgi sahibi olan var mı?

Tüm yardım ve çabalarınız için şimdiden teşekkür ederim. Çalışmalarınızda başarılar dilerim.

Saygılarımla
K.GUCLU

 

[Necdet]

Merhaba,

Belki yararlı olabilir. Ekteki örnekte A-B-C sütunlarına bilgi girişi yapılıyor. C sütununda giriş yapıldığında bir sonraki satır ve A sütununa geçer.

Örneği inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
If Target.Column = 3 Then
    Target.Offset(1, -2).Select
Else
    Target.Offset(0, 1).Select
End If
Son:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Target.Column > 3 Then Cells(Target.Row + 1, "A").Select
Son:
End Sub

 

[k.guclu]

Arkadaş çok teşekkür ederim fakat. o şekil f hücresine değer giremiyorum. ben değer girdikten sonra geçmesini istiyorum.

 

[k.guclu]

Arkadaşlar 2. soruma cevap verebilecek kimse yok mu.

 

[Shymshec]

Bu hata ile ilgili aşağıdaki linkten bilgi alabilirsin.

http://www.excel.web.tr/f50/excel-kullan-labilir-kaynaklar-ile-bu-gorevleri-tamamlayam-t52238.html

 

[k.guclu]

Saol üstat ilginden ve yardımından dolayı çok teşekkür ederim.