istenilen sütunlarda dolaşma

[masuk500]

merhaba arkadaşlar
benim sorunum 20 sütunlu bir tablom var ve bazı sütunlara bilgileri başka yerlerden getiriyorum.bilgi getirdiğim sütunlar aktif olmasın istiyorum.örneğin a ve b sütununa elle bilgi girişi yapacağım c d e f g sütunlarına veri otomatik geliyor.bu sütunları atlayıp h sütununa direk gelmek istiyorum.buradanda k sütununa kadar veri girişi el ile olacak.sonra tekrar a sütununa bir alt satıra dönecek.bu işlem böylece devam edecek.

 

[mami68]

Merhabalar,

örnek verilerilerle bir dosya gönderebilirmisiniz.

 

[masuk500]

örnek dosya ektedir

 

[mami68]

Ben bu açıklamadan hiç bir şey çıkaramadım.

 

[masuk500]

a2 hücresine girdiğim veriye göre b2 ve c2 hücrelerine veri geliyor.d2 ve e2 deki verilere göre f2 matematiksel işlem yapıyor.burada istenen şudur:a2 hücresine el ile giriş yaptıktan sonra b2 ve c2 yi atlayarak d2 nin ardından e2 nin aktif olmasını daha sonra ise a3 hücresinin aktif olmasını istiyorum.

 

[halit3]

a2 hücresine girdiğim veriye göre b2 ve c2 hücrelerine veri geliyor.d2 ve e2 deki verilere göre f2 matematiksel işlem yapıyor.burada istenen şudur:a2 hücresine el ile giriş yaptıktan sonra b2 ve c2 yi atlayarak d2 nin ardından e2 nin aktif olmasını daha sonra ise a3 hücresinin aktif olmasını istiyorum.

keşke örnek dosya gönderseydiniz.

bu kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
sat = [a65536].End(3).Row
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "A") Then
Worksheets(ActiveSheet.Name).Cells(sat, "D").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "D") Then
Worksheets(ActiveSheet.Name).Cells(sat, "E").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "E") Then
Worksheets(ActiveSheet.Name).Cells(sat + 1, "A").Select
End If
End Sub

 

[masuk500]

örnek dosya ektedir

sayın halit3 dosyayı daha sonraki mesajımda eklemiştim herhalde farketmediniz.
sizin yazmış olduğunuz koda gelince ya kod çalışmıyor ya da ben yapamadım kod da name kısmına sayfa adı yazılacak herhalde değil mi?ama sayfa adını yazdığım halde çalışmadı.

ben yinede ne istediğimi tekrar anlatayım.
örneğin a ve b sütunlarında sabit bilgi var içerikleri değişmeyecek.c sütunundaki hücreye veri girdiğimde d,e,f,g,h sütunlarına bilgiler diğer sayfalardan geliyor.ı,j ve k sütunlarına tekrara el ile veri girişi yapıyorum.
can alıcı nokta buradan sonra başlıyor.çalışma kitabını açınca a ve b sütununa hiç bir şekilde müdahale yapamadan direk c sütununa veri girecem ve enter'a bastığımda d,e,f,g,h sütunlarını atlayarak ı sütununda ki hücre seçilsin ve burada da veri girişinden sonra c sütununda bir alt satıra dönsün

 

[halit3]

dosyan ekte ancak 5. mesajınla 7. mesajın birbirinden farklı
her ikisinide yaptım

 

[masuk500]

dosyan ekte ancak 5. mesajınla 7. mesajın birbirinden farklı
her ikisinide yaptım

sayın halit3
ilgilendiğiniz için teşekkürler ama ben gene çalıştıramadım.ayrıca 5. ve 7. mesajlarımın farklı olması önemli değil.sadece bir örnek olursa elimdeki excel dosyasına uyarlayacağım.şimdi
örneğe geri geleyim.
diyelim ki c5 hücresindeyim enter dediğimde d5 ve e5 'i atlayarak direk f5 hücresine gelmek istiyorum.burdan sonra f5 ve g5'e veri giriyorum ve tekrar enter dediğimde c6 hücresine atlıyorum.bu işlem bu şekilde devam edecek.
aşağıdaki kod ile belirli bir alandan dışarı çıkamıyorum


Sub auto_open()
Sheets("sayfa2").ScrollArea = "c1:h1503"

Application.MoveAfterReturnDirection = xlToRight
End Sub

 

[halit3]

göndermiş olduğum dosyada hücreye değer girince entere tıklayınca bu işlemi yapıyor

 

[masuk500]

sayın halit3 evet o şekilde işlem oluyor.benim yapamadım dediğim ise arada veri girişi yapılan hiçbir hücreye kesinlikle müdahale edilemesin.yani sınırlı alanlarda veri girişi yapılabilsin.9. mesajımda belirtmiş olduğum kod gibi yani.ben o kodun gelişmiş şeklini arıyorum.yani

Sub auto_open()
Sheets("sayfa2").ScrollArea = "c1:h1503"
Sheets("sayfa2").ScrollArea = "k11503"
Sheets("sayfa2").ScrollArea = "s1:v1503"
Application.MoveAfterReturnDirection = xlToRight
End Sub

böyle birşey istiyorum.bu kodada sadece

Sheets("sayfa2").ScrollArea = "s1:v1503"

satırı çalışıyor

 

[halit3]

sayın halit3 evet o şekilde işlem oluyor.benim yapamadım dediğim ise arada veri girişi yapılan hiçbir hücreye kesinlikle müdahale edilemesin.yani sınırlı alanlarda veri girişi yapılabilsin.9. mesajımda belirtmiş olduğum kod gibi yani.ben o kodun gelişmiş şeklini arıyorum.yani

Sub auto_open()
Sheets("sayfa2").ScrollArea = "c1:h1503"
Sheets("sayfa2").ScrollArea = "k11503"
Sheets("sayfa2").ScrollArea = "s1:v1503"
Application.MoveAfterReturnDirection = xlToRight
End Sub

böyle birşey istiyorum.bu kodada sadece

Sheets("sayfa2").ScrollArea = "s1:v1503"

satırı çalışıyor

o zaman şöyle bir şey yapınız giriş yapılacak sutunların dışındaki diğer sütünları kapatınız ve sayfa koruması ile koruyunuz.

 

[masuk500]

merhaba sayın halit3
onu nasıl yapacağımı bulamadım.yol gösterirseniz sevinirim.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[masuk500]

sayın seyit tiken
teşekkürler
tam istediğim gibi ama kodları açamadım veya nasıl yaptıysanız anlatabilirmisiniz?

 

[Seyit Tiken]

Kod kullanmadan da yapabilirsiniz.

Private Sub ToggleButton1_Click()
If Sayfa1.ToggleButton1 Then
Sayfa1.ToggleButton1.Caption = "Hücreler Açık"
Sayfa1.Unprotect
Else
Sayfa1.ToggleButton1.Caption = "Hücreler Kapalı"
Sayfa1.Protect
End If
End Sub