Formüllü hücre içeriğini biçimlendirme

[ikikan]

Arkadaşlar A1 hücersinde örnek " Azami Ağırlık (1)" yazıyor,
formüle bunu C5 hücresine taşıdık taşıdıgımız bu veriyi
"Azami Ağırlık "üst simge (1)" Ağırlık yazan yeride renkli yapmaız mümkünmü?

 

[Murat OSMA]

Örnek dosya görebilir miyiz ?

 

[ikikan]

Örnek dosya ektedir

Örnek dosya ektedir

 

[Murat OSMA]

Şı kodu sayfanın kod kısmına yazıp, A29 hücresine ilave bir şeyler yazın;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A29" Then Exit Sub
    Range("A7:T27").UnMerge
    Target.Copy Range("A7")
    Range("A7:T27").Merge
End Sub

 

[ikikan]

Öncelikle teşekürler fakat kod kopyala yapıştır yapıyor,
sizce bu işlemi farklı hücrelerde tekrarlarsak kasma olmazmı? Murat bey.

 

[Murat OSMA]

Olmaz merak etmeyin. Sadece hücre kopyalama yapıyoruz.

 

[ikikan]

Olmaz merak etmeyin. Sadece hücre kopyalama yapıyoruz.

Murat bey bu kod fonksiyon olarak yapılabilirmi bu şekilde 50 yakın tablo ve 13 rapor sayfası var, direk istediğimiz yere bağlıya bilirmiyiz.
Neden derseniz her veri için ayrı ayrı yazmamız gerekiyor.

 

[ikikan]

Murat bey; Veya sütun ve satır genişliklerinide kopyala yapıştır yaparsa diğer sorudaki seçenek iptal olur!.

 

[Murat OSMA]

Dosyanızı eklerseniz bakarım...

 

[ikikan]

Dosyanızı eklerseniz bakarım...

Murat bey örnek dosya ektedir.

 

[Murat OSMA]

A73 için de şu şekilde ilave edebilirsiniz....

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A29" Then
        Range("A7:T27").UnMerge
        Target.Copy Range("A7")
        Range("A7:T27").Merge
    End If
    
    If Target.Address(0, 0) = "A73" Then
        Range("A51:T71").UnMerge
        Target.Copy Range("A51")
        Range("A51:T71").Merge
    End If
End Sub

Yalnız şu an için daha fazla yardımcı olamayacağım.

İyi günler.

 

[ikikan]

Kopyala yapıştır

Murat beyin göndermiş olduğu bu makro da;
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A29" Then
Range("A7:T27").UnMerge
Target.Copy Range("A7")
Range("A7:T27").Merge
End If
End Sub

Bulunan başvurular "A29" , ("A7:T27"), ("A7") değişken olabilirmi,

Örnek:Foksiyona kona bilirmi? veya başka bir yolla?
Public Function GONDER(ByVal KOPYALA As Range, YAPIŞTIR) As Variant
Application.Volatile
End Function

Şimdiden teşekürle.

 

[Korhan Ayhan]

Merhaba,

Formülle biçim aktaramazsınız. Bu sebeple farklı bir çözüm önerebilirim. Tabi ne kadar işinize yarar bilemem.

Her satırın yanındaki boş bir alana hangi sayfaya aktarılanı belirtin. Daha sonra bir buton yardımıyla verileri tek seferde ilgili sayfalara aktarın. Bu şekilde daha pratik bir şekilde işlemlerinizi kontrol edebilirsiniz.

 

[ikikan]

Merhaba,

Formülle biçim aktaramazsınız. Bu sebeple farklı bir çözüm önerebilirim. Tabi ne kadar işinize yarar bilemem.

Her satırın yanındaki boş bir alana hangi sayfaya aktarılanı belirtin. Daha sonra bir buton yardımıyla verileri tek seferde ilgili sayfalara aktarın. Bu şekilde daha pratik bir şekilde işlemlerinizi kontrol edebilirsiniz.

Aslında işime yarar Korhan bey fakat nasıl yapılacak
istediğim sayfadaki istediğim satıra ve sütüna aktarma?
Bir örnek varmıdır?

 

[Korhan Ayhan]

Merhaba,

Siz diğer sayfalarda verileri nasıl görmek istediğiniz gösteren bir dosya ekleyin. Mutlaka bir arkadaşımız yardımcı olacaktır. Ayrıca forumda sayfalara+aktarım ifadesi ile arama yaparsanız örneklerede ulaşabilirsiniz. Ya da benzer kelimelerle arama yapın konulara ulaşabilirsiniz.