Kalın(bolt) yazım formülü

[biziz01]

Bir hücredeki yazıyı kalınlaştırdığım zaman kendiliğinden önceden belirlediğim hücredeki yazının da kalın(bolt) olmasın istiyorum. Var mıdır bunun bir yolu.

 

[hamitcan]

Sayfa olayı olarak düşünüyorsanız, böyle bir olay yok.

 

[uzmanamele]

merhaba

formül ile olmaz, makro kısmen işe yarayabilir.

bu işinizi görür mü?
A1 hücre kalın yazıldığında B1 hücre kalın yazı olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1").Font.Bold = True Then
Range("b1").Font.Bold = True
End If
End Sub

not:
sorularınızı örnek dosya ile destekleyiniz.

 

[biziz01]

merhaba

formül ile olmaz, makro kısmen işe yarayabilir.

bu işinizi görür mü?
A1 hücre kalın yazıldığında B1 hücre kalın yazı olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1").Font.Bold = True Then
Range("b1").Font.Bold = True
End If
End Sub

not:
sorularınızı örnek dosya ile destekleyiniz.

İstediğim tam olarak bu sizin makro kodlarını yazmış olduğunuz işlem, fakat ben uygulayamadım. Aşağıda uygulamayı düşündüğüm dosya mevcut. H2 hücresindeki yazıyı Kalın yazı haline getirdiğim zaman S2 hücresinin kendiliğinden kalın yazı haline gelmesini istemekteyim. Aynı şeyi I2 hücresinde yaptığım zaman T2 hücresinde olmasını isemekteyim. Yardımcı olabilirseniz sevinirim. İlginiz için şimdiden teşekkürler.

Ekli dosyayı görüntüle Konaklama_Asıl.xlsx

 

[İhsan Tank]

İstediğim tam olarak bu sizin makro kodlarını yazmış olduğunuz işlem, fakat ben uygulayamadım. Aşağıda uygulamayı düşündüğüm dosya mevcut. H2 hücresindeki yazıyı Kalın yazı haline getirdiğim zaman S2 hücresinin kendiliğinden kalın yazı haline gelmesini istemekteyim. Aynı şeyi I2 hücresinde yaptığım zaman T2 hücresinde olmasını isemekteyim. Yardımcı olabilirseniz sevinirim. İlginiz için şimdiden teşekkürler.

Ekli dosyayı görüntüle 108394

merhaba
sorunuz Hocama sorulmuş ama ben yanıt vereyim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H2").Font.Bold = True Then
Range("S2").Font.Bold = True
If Range("I2").Font.Bold = True Then
Range("T2").Font.Bold = True
End If
End If
End Sub

bu işinizi görür sanırım

 

[biziz01]

Kodu uygulamak istediğim de "Aşağıdaki özellikler makro içermeyen çalışma kitaplarına kaydedilemez" uyarısı almaktayım. Ne yapmam lazım?

 

[İhsan Tank]

Kodu uygulamak istediğim de "Aşağıdaki özellikler makro içermeyen çalışma kitaplarına kaydedilemez" uyarısı almaktayım. Ne yapmam lazım?

merhaba
bu link işinizi görür sanırım lütfen tıklayın

 

[biziz01]

merhaba
bu link işinizi görür sanırım lütfen tıklayın

Teşekkürler, verdiğiniz bağlntı sorunumu çözdü.

 

[biziz01]

Kodu çift taraflı - yani bir hücreyi kalın yaptığım zaman hedef hücre kalın olacak, normal yaptığım zamansa hedef hücre de normal olacak- şekilde düzenlemeye çalıştım ama tabii ki beceremedim. Utanarak tekrar yardım istemekteyim.

 

[Korhan Ayhan]

Selamlar,

Bence bu işlem için en uygun olay sayfanın çift tıklama olayıdır. Aşağıdaki kodu uyguladığınızda ilgili hücreleri bolt yapıp üzerinde çift tıkladığınızda diğer alandaki hücrelerde ona göre tepki verecektir.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("H2:I65536")) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Font.Bold = True Then
        Target.Offset(0, 11).Font.Bold = True
    Else
        Target.Offset(0, 11).Font.Bold = False
    End If
End Sub

 

[biziz01]

Teşekkürler, kalından normal yazıya geçerken çift tıklıyorum ve istediğim oluyor, sağolun. gene de tıklama olmadan bir yolunu bilen varsa ona da hayır demem

Yardımcı olan, olmaya çalışan herkese çok teşekkürler.

 

[l.demirel]

merhaba arkadaşlar kalın yazmayı excel deki =büyükharf gibi fonksiyon olarak yazabilirmiyiz