makroyu c kolonuna uyarlama hk.

[ugurakin]

merhaba,

aşağıda oluşturduğum makronun sadece C kolonunda çalışmasını istiyorum.
makroya eklemem gereken nedir?
teşekkür ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range

If Target.Font.Size = 12 Then
EskiHucre.Font.Size = 10
Exit Sub

ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Font.Size = 10
End If

Target.Font.Size = 12
Set EskiHucre = Target
End Sub

 

[Korhan Ayhan]

Selamlar,

Kodlarınızın ikinci satırına (yani başlıktan sonraki satırına) aşağıdaki kodu yazıp denermisiniz.

If Target.Column<>3 Then Exit Sub

 

[hamitcan]

Kodu aşağıdaki ile değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Column<>3 then Exit Sub 'Bu satırı ekledim

If Target.Font.Size = 12 Then
EskiHucre.Font.Size = 10
Exit Sub

ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Font.Size = 10
End If

Target.Font.Size = 12
Set EskiHucre = Target
End Sub

 

[ugurakin]

bir sorun var, C kolonundan D yada B kolonundaki hücrelere geçmek istendiğinde C kolonundaki biçim son haliyle kalıyor. (font size = 12)
C Kolonundan çıktıktan sonra hücrenin (font size = 10) haline dönmesini istiyorum.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
Columns("C").Font.Size = 10
Target.Font.Size = 12
Else
Columns("C").Font.Size = 10
End If
End Sub

 

[ugurakin]

farklı bir sorun devam ediyor, C kolonu içinde gezinirken hücrelerin font büyüklüğü 12 de sabitleniyor.
hücreden çıktığınızda fontun büyüklüğünü 10 a düşürmüyor. ancak ve ancak C kolonu dışındaki herhangi bir hücreye geldiğinizde sayfanın tamamı 10 a dönüşüyor. makroda c kolonundaki herhangi bir hücreden çıktıktan sonra ( c kolonunda gezinirken ) 10 a düşürmesini istiyorum.

 

[hamitcan]

Yukarıdaki kodu güncelledim.

 

[ugurakin]

teşekkür ederim sn.hamitcan,
sorun yok.