Hücreler arası Enter ile geçiş

[k0081]

Merhaba arkadaşlar;

B3:E500 aralığında bir tablom var..

Yapmak istediğim :

B3 hücresine değer girdikten sonra Enter bastığımda D3 konumlansın. D3 e değer girdiğimde (değer : sayı) 10 ile çarpsın D3 yazsın., akabinde E3 geçsin. E3 e değer girdikten sonra enter a bastığımda B4 konumlansın.. bunu nasıl yapabilirim ?

yardımcı arkadaşlara şimdiden teşekkürler..

 

[doganbaris]

örnek dosya lütfen

 

[k0081]

örnek dosya lütfen

Dosya ektedir hocam.

Ekli dosyayı görüntüle metraj liste.xlsm

 

[doganbaris]

örneğin D3 e ben 10 yazdığımda, d3 100 mü olacak , yanlış mı anlıyorum ?

yani millet santim girsin, ben milimetreye çevireyim dersiniz, bu mudur ?

 

[k0081]

örneğin D3 e ben 10 yazdığımda, d3 100 mü olacak , yanlış mı anlıyorum ?

yani millet santim girsin, ben milimetreye çevireyim dersiniz, bu mudur ?

aynen doğru anlıyorsunuz hocam. cm gireceğiz, mm çevirilecek..

 

[doganbaris]

C kolonunun bir anlamı var mı sizin için ? BCD olarak kullansak mevcut C yi silip ?

 

[k0081]

C kolonunun bir anlamı var mı sizin için ? BCD olarak kullansak mevcut C yi silip ?

Hocam şöyle, aslında var.. üst kısımda bulunan başka bir tablonun ( : ) ayıraç bölümleri var orda.. bende o yüzden bu şekilde verdim tabloyu..

 

[doganbaris]

Acil şehir dışına çıkmam gerekti , cuma günü yardımcı olabilirim ancak
kusura bakmayın geç bilgi için

 

[Korhan Ayhan]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("B3:E" & Rows.Count)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target <> "" Then
        Select Case Target.Column
            Case 2
                Target.Next.Next.Select
                
            Case 4
                Target = Target * 10
                Target.Next.Select
            Case 5
                Target.Offset(1, -3).Select
        End Select
    End If
10  Application.EnableEvents = True
End Sub

 

[k0081]

doganbaris;
önemli değil,, tamam hocam , bilgilendirme için teşekkürler..

***********************************
Korhan Ayhan;

Hocam çok teşekkür ediyorum, tamamdır.. saygılar..

 

[k0081]

Aşağıdaki kodu deneyin.

Hocam merhaba; bu göndermiş olduğunuz kod başka bir sayfa da gerekli oldu, fakat bir türlü uyarlayamadım..


Sütunlar
**********
C : yazı
D : yazı
E : atla
F : rakam

daha sonra alt satır.. F de rakam mevcut ( para birimi) herhangi bir çarpma işlemide yok hocam. önceki kodda çarpma işlemi mevcuttu.

sayfada worksheet kısmında şu kodlar da mevcut hocam ;

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Cells(Target.Row, "E") = Format(Now, "dd.mm.yyyy")
If Not Intersect(Target, [I1:I65536]) Is Nothing Then Cells(Target.Row, "H") = Format(Now, "dd.mm.yyyy")