Birleştirmede Hücre Güncellemesi

[excelapachi]

Sa. Ekteki dosyada sayfa 1 ve sayfa 2 de bilgiler mevcut. Birleştirme yaparak Hücre biçimlendirmesi yaptım, ancak verileri güncellerken hemen güncelleme yapmıyor, illaki bir yere tıklayınca güncelleme yapıyor. Veriyi girer girmez güncelleme yapılabilirmi?. Teşk

 

[Ferhat Pazarçevirdi]

Merhabalar

Gerçi bunu formüllerle daha rahat yapabilirdiniz ama siz kodlamayı seçtiğinize göre, bildiğiniz bir şey var ..

Kodunuzda yanlış bir olay seçmişsiniz. Yani kodlarınız anca "seçim değiştiğinde" devreye giriyor. Bu da tabi ki, bahsettiğiniz gibi, anca başka bir hücreye tıkladığınızda hesaplama yapması anlamına geliyor. Oysa ki, siz Selection_Change değil, Calculate olayına aynı kodları yazmış olsaydınız, hücreleri değiştirdiğiniz anda, değer otomatik olarak değişecekti.

Aşağıdaki kodu kullanınız.

Private Sub Worksheet_[COLOR=red][B]Calculate[/B][/COLOR]()
[a1] = [b1] & [c1]
ilk = InStr([a1], [c1])
son = Len([c1])
[a1].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın"
[a1].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False
End Sub

 

[excelapachi]

Saol Private Sub Worksheet_Calculate() komutu makinayı kilitledi, activatele tamam oldu, yordamı değiştirdim.
Teşk.