Belli bir hücreden Enter ile alt satır başına gitme !

[zamansal2]

Tablomuzda doldururken O hücresindey ken enter tuşu ile bir alt tuşu ile satır başı na geçe bilirmiyim ?

 

[Ömer BARAN]

Merhaba.

Sanıyorum ANA SAYFA isimli sayfada işlem yapmak istiyorsunuz.

Alt taraftan ANA SAYFA adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında,
sağ tarfta yer alan aşağıdaki kırmızı satırı silip onun yerine mavi olan satırları ekleyince istediğiniz olur.
.

[COLOR="red"]If Intersect(Target, [B3:B999]) Is Nothing Then Exit Sub[/COLOR]

[COLOR="Blue"]If Intersect(Target, Range("B3:B999, O3:O999")) Is Nothing Then Exit Sub
If Target.Column = 15 And Target <> "" Then
    Cells(Target.Row + 1, 1).Activate: Exit Sub: End If[/COLOR]

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Target.Offset(, 1).Select
If Target.Column = 15 Then Target.Offset(1, -14).Select

 

[zamansal2]

İkisinide denedim olmadı sadece enter tuşu ile 1 alt satırın başına geçmek istiyorum şimdiden teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B999]) Is Nothing Then Exit Sub
If sil59 = True Then Exit Sub
If Target <> "" And WorksheetFunction.CountIf(Range("B3:B999"), Target) > 1 Then
MsgBox "Mükerrer kayıt yapılamaz !...": Target = "": Target.Activate
End If
End Sub
Target.Offset(, 1).Select
If Target.Column = 15 Then Target.Offset(1, -14).Select

 

[zamansal2]

Yardım edebilecek varmı ?

 

[Ömer BARAN]

Örnek belgenizden, O sütununa veri yazılıp ENTER tuşuna basıldığında bir alt satır A sütunundaki hücreye gitmek istediğiniz anlaşılıyor.
İsteğinizi netleştirin en iyisi.
Hangi sütunda iken ENTER'a bastığınızda işlem yapılmasını istiyorsunuz?

 

[Seyit Tiken]

Kodu, ilgili sayfanın kod bölümüne yapıştırıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(, 1).Select
If Target.Column = 15 Then Target.Offset(1, -14).Select
End Sub

 

[zamansal2]

Örnek belgenizden, O sütununa veri yazılıp ENTER tuşuna basıldığında bir alt satır A sütunundaki hücreye gitmek istediğiniz anlaşılıyor.
İsteğinizi netleştirin en iyisi.
Hangi sütunda iken ENTER'a bastığınızda işlem yapılmasını istiyorsunuz?

Doğru anlamışınız O hücresinde Enter tuşuna basında Bir alttaki A hücresine gitmek istiyorum ama kodları yapıştırdığımda hatalar alıyorum ?
nerde yanlışvar

 

[zamansal2]

Kodu, ilgili sayfanın kod bölümüne yapıştırıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(, 1).Select
If Target.Column = 15 Then Target.Offset(1, -14).Select
End Sub

o sayfadaki kod görüntüle deyip yapıştırıyorum bu sefer sayfaya hiç birşey yazılmıyor hata veriyor ?

 

[Seyit Tiken]

Dosyayı ekliyorum.

 

[zamansal2]

çok güzel olmuş teşekkür ederim hücre boş iken enter yaptığımızda geçmiyor onun nasıl yapabilirim
yardımlarınız için teşekkür.

 

[Seyit Tiken]

Bunun iki yolunu biliyorum :
1. Tab(sekme) tuşu kullanmak,
2. Şu kod satırını kullanmak,

If Target = 0 Then Target.Offset(, 1).Select

Not : Boş hücreye sıfır(0) yazarsanız sağ yan hücreye imleç geçiş yapar.

 

[zamansal2]

Ekleme yaptım ama tam olarak nasıl yapacağımı bilmiyorum nereye nasıl olcağını söyleye bilirmisiniz ?birde bu uyarı kodu vardı çift kayıtta silinmiş ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B999]) Is Nothing Then Exit Sub
If sil59 = True Then Exit Sub
If Target <> "" And WorksheetFunction.CountIf(Range("B3:B999"), Target) > 1 Then
MsgBox "Mükerrer kayıt yapılamaz !...": Target = "": Target.Activate
End If
End Sub

 

[zamansal2]

Yardım edebilecek biri varmı ?
Enter Tuşuna bastımmı Bir alt satırın başına gidebileceğim bir yol varmı ?

 

[zamansal2]

Yardım bekliyorum !

ekteki excelde Ana sayfaya veri girişi yapıyoruz burda L veya O sütununda Enter tuşunu kullanarak veya içini duldurduktan sonra Enter ile Bir Alt satırın Başına gitmek istiyorum Yardımcı olabilirmisiniz ?
Kod yazarsanız nasıl yapacağımı yazabilirmisiniz.