Büyük harf seçimi

[Ledaer]

merhabalar,

excelde genelde küçük harf kullanıyorum ama bir sayfada büyüük harf kulanılması gerkmekte. acaba sadece o sayfada küçük harf seçiliyken orada büyük harf kullanımını nasıl yapabilirim?
birde sayfada çalışırken enter bastığınız zaman örneğin imleç a3 de ise enter sonrası b3 inmekte bunada bir yön belirlenebilirmi, örneğin başlama hücresi a3 enter sonrası b1 sonrası b4 gibi.

teşekkürler.

 

[ozgretmen]

merhabalar,

excelde genelde küçük harf kullanıyorum ama bir sayfada büyüük harf kulanılması gerkmekte. acaba sadece o sayfada küçük harf seçiliyken orada büyük harf kullanımını nasıl yapabilirim?
birde sayfada çalışırken enter bastığınız zaman örneğin imleç a3 de ise enter sonrası b3 inmekte bunada bir yön belirlenebilirmi, örneğin başlama hücresi a3 enter sonrası b1 sonrası b4 gibi.

teşekkürler.

Dosya ekte...

 

[ersoyalan]

Merhaba,

Enter tuşuna bastığınız zaman a3 yerine b3 hücresine geçmesini istiyorsanız.

Options / Edit seçeneğini seçin Direction kısmını Right yapın.

İyi çalışmalar.

E.ALAN

 

[ozgretmen]

merhabalar,
örneğin başlama hücresi a3 enter sonrası b1 sonrası b4 gibi.
teşekkürler.

Dosyayı güncelledim.

 

[Ledaer]

teşekkür ederim.

yalnız hücre gitme yönü değişken olmalı, örneğin a3 - b1 - c5 - c6 gibi. bunu bir kodla belirlenebilirmi?

 

[ozgretmen]

teşekkür ederim.
yalnız hücre gitme yönü değişken olmalı, örneğin a3 - b1 - c5 - c6 gibi. bunu bir kodla belirlenebilirmi?

Dosyadaki sayfa1 içinde yer alan kodlama kendine göre değişiklik yaparak gidiş yollarını belirleyebilirsin.

 

[Ledaer]

Range("A5").Select
ActiveCell.FormulaR1C1 = "=ADDRESS(5,1)"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=ADDRESS(5,1)"
Range("A6").Select


buradaki mantık nasıldır, ben yeni uyarlama nasıl yapabilirim?

tekrar teşekkürler.

 

[ozgretmen]

Dosyadaki Sayfa1 de bulunan aşağıdk kodlara ilave yaparak işinizi halledebilirisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Address = "$A$4" Then
[b1].Select
End If
If ActiveCell.Address = "$B$2" Then
[b4].Select
End If
End Sub

 

[Ledaer]

teşekkür ederim.

 

[ozgretmen]

teşekkür ederim.

Rica ederin...