hücre atlama

[omar1977]

ekte gönderdiğim dosyada açıklamayı yazıp entıra bastığımda 108 01 visa sutununa gitmesini istiyorum çünkü bu sütün çok kullanılıyor diğerleri çok seyrek çıktığı için direkt ona gitmesini nasıl sağlayabilirim yanıtınız için şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod sayfasına kopyalayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Target.Offset(0, 6).Select
End Sub

 

[omar1977]

Yanitiniz İÇİn Çok TeŞekkÜrler Benİ Hizlandiracak Zaman Kazandiracak GerÇekten Bu Sİte Çok GÜzel Ben Yenİ KeŞfettİm Yardim Eden BÜtÜn ArkadaŞlardan Allah Razi Olsun

 

[Necdet]

Hoşgeldiniz Sayın omar1977,

Düzenli izlerseniz forumu çok yararlı bilgilere erişebilirsiniz. Önerim Excel Dersanesinden başlamanızdır.

 

[omar1977]

Necdet Bey Şİmdİ ÇaliŞirken Aklima Geldİ AÇiklamayi Yazinca Vİsa SÜtununa Gİdİyorda Rakami Yazinca Tekrar Tarİh Gelse Çok Daha İyİ Olacak Bunuda Yazabİlİrsenİz Benİm İÇİn Çok Daha İyİ Olur

 

[Necdet]

Merhaba,

I kolonunda entera basılınca bir alt satır ve tarih (A sütununa gider)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [C:C, I:I]) Is Nothing Then Exit Sub
If Target <> "" And Target.Column = 3 Then Target.Offset(0, 6).Select
If Target <> "" And Target.Column = 9 Then Target.Offset(1, -8).Select
End Sub

 

[omar1977]

TeŞekkÜr Ederİm BÖyle Çok Daha İyİ Oldu