Satır'da yazı boyutunun değiştirilmesi hk.

[M.ACAR]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Range("B" & ActiveCell.Row & ":Y" & ActiveCell.Row).Interior.ColorIndex = 44
End Sub

Formülü ile B ve Y satırı arasındaki zemin rengini değiştirebiliyorum,Bu formüle eklenti olarak,B ve Y satırı arasında yazı boyutunun ve yazı tipi stilinin de değiştirilebilmesi için formülde ne gibi değişliklik yapılması gerekmektedir.yardım ederseniz çok işime yarayacaktır.

 

[fedeal]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Range("B" & ActiveCell.Row & ":Y" & ActiveCell.Row).Interior.ColorIndex = 44

With Range("B" & ActiveCell.Row & ":Y" & ActiveCell.Row).Font
.Name = "Arial Rounded MT Bold"
.Size = 12
End With

End Sub

istediginiz bu olabilirmi?

 

[M.ACAR]

Sayın : Emrah ÇANAKKALE verdiğiniz yanıt için çok teşekkür ederim,fakat şöyle bir sıkıntı var,hücrelerde mause ile dolaşırken,yazı boyutu değişikliğinin sadece mause'nin üzerinde olan hücrede olmasını istiyorum,yazı rengide değiştirilebilirmi?

 

[fedeal]

istediginiz seçili hücrede font ve renk değişikliğiyse dosyanız ekte,iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Sn. M.ACAR,

Sayfa üzerinde mouse'nin hareketini kontrol eden bir kod mevcut değildir. Sn. fedeal beyin belirtmiş olduğu gibi hücre seçtiğinizde çalışacak kodlar düzenlenebilir. Yani kodun çalışması için bir hücre seçmelisiniz.

 

[M.ACAR]

Sayın : Fedeal verdiğiniz cevap için çok teşekkürler,sağolun.İstediğimi ben anlatamadım,sanırım,dosyamı ekledim,

Sayın : Korhan bey verdiğiniz kalıcı bilgi için teşekkür ederim.

 

[fedeal]

şimdi anladım,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
With Cells.Font
.Name = "Arial Rounded MT Bold"
.Size = 9
.ColorIndex = 0
End With
If Cells(1, 1) = "." Then Exit Sub
If ActiveCell.Row < 9 Then Exit Sub
Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.ColorIndex = 13
With Range("B" & ActiveCell.Row & ":Y" & ActiveCell.Row).Font
.Name = "Arial Rounded MT Bold"
.Size = 14
.ColorIndex = 2
End With
End Sub

umarım doğrudur iyi çalışmalar.

 

[M.ACAR]

Sayın : Emrah ÇANAKKALE iletişim aksaklığından dolayı size verdiğim zahmet için çok teşekkür ederim,İnşallah bir gün yolunuz İstanbul yada Çorlu'ya düşerse bu emeğin karşılığında bir acı kahvemi içersiniz.Saygılarımla
Mustafa ACAR

 

[fedeal]

Ricaederim ne yaptıkki, inşallah gelirsem tanışmak isterim bende uşağa yolunuz düşerse beklerim.saygılar.