Tevfik_Kursun
Altın Üye
- Katılım
- 30 Temmuz 2012
- Mesajlar
- 3,805
- Excel Vers. ve Dili
- Office 2016 Pro - Türkçe 64 Bit
- Altın Üyelik Bitiş Tarihi
- 12-02-2029
Merhaba Arkadaşlar,
Kolay bilgi girişi için Korhan Ayhan Hocamızın yıllar önce hazırladığı imleci ekran ortasında tutan makroda giriş satırını 20 birim yükseklikli, giriş bilgilerini bold, 14 punto ve kırmızı olarak revize etmek mümkün mü? (Bu vesile ile Korhan Ayhan Hocama bir kez daha teşekkür ederim)
Saygılarımla
Kod:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ÜST_SATIR As Long, AKTİF_SATIR As Long, SATIR_SAY As Long
ÜST_SATIR = ActiveWindow.ActivePane.ScrollRow
AKTİF_SATIR = Target.Row
SATIR_SAY = Windows(1).VisibleRange.Rows.Count
If ÜST_SATIR <= AKTİF_SATIR Then
ActiveWindow.SmallScroll Down:=AKTİF_SATIR - ÜST_SATIR - (SATIR_SAY / 2)
End If
End Sub
Saygılarımla
Son düzenleme: