Hücre İçinde Farklı Puntolar Kodda Revize

[iplikci_80]

EK'te ki çalışmanın Sayfa2 kod bölümünde B10 hücresindeki verileri farklı puntolarda yazmayı sağlayan bir kod mevcut. Sarı boyalı B2 ve C2 hücrelerindeki verileri Sayfa1 den formül yardımıyla almaktayım, Sayfa2 deki mevcut kodu revize ederek B2 ve C2 hücrelerindeki veriler değiştikçe B10 hücresinin de değişmesini sağlamak istiyorum. Bu hususta yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Calculate()
    With Range("B10")
        .Value = Range("B2").Value & "     (" & Range("C2").Value & ")"
        .Characters(Len(Split(.Value, "(")(0)) + 1, Len(.Value)).Font.Size = 9
    End With
End Sub

 

[iplikci_80]

Korhan bey cevap kodu orijinal belgenin "CEVAP" sayfasında denedim fakat çalışma kitabını donduruyor ve çalışma kitabını kapatıyor yeni bir çalışma kitabı açıyor. Cevap kodu uygulamadan orijinal belgeyi ekledim yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Son paylaştığınız dosyada neresi değişince nerenin puntosu değişecek? Açıklarsanız yardımcı olabiliriz.

 

[iplikci_80]

Cevap3 Kitap 1.xlsm belgesi "Ö N E L" sayfası W3 X3 hücreleri değişince, "CEVAP" sayfası W7 X7 hücreleri değişiyor. "CEVAP" sayfası P22 hücresinin puntolarını ayarlamaya çalışıyorum.

 

[Korhan Ayhan]

Kodu "Ö N E L" sayfasının kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("W3,X3")) Is Nothing Then
        With Sheets("CEVAP")
            .Range("P22").Value = .Range("W7") & "     (" & .Range("X7") & ")"
            .Range("P22").Characters(Len(Split(.Range("P22").Value, "(")(0)) + 1, Len(.Range("P22").Value)).Font.Size = 9
        End With
    End If
End Sub

 

[iplikci_80]

Korhan Bey çok teşekkür ederim.