özel yapıştır sadece yazı kalınlığı

[ozpoli]

arkadaşlar ben bir hücre yada hücreler topluluğu kopyalayıp başka bir yere özel yapıştırıken biçim olarak yapıştırcam fakat sadece yazının kalınlığını yapıştırmasını istiyorum bunun için ne yapabilirim

 

[hamitcan]

Makro ile yapılabilir diye düşünüyorum. Bir örnek ile açıklarsanız, çözüme daha çabuk ulaşılabilir.

 

[ozpoli]

ankara yazısı formulle kalın yapılmış ben bunu başka yere deger olarak yapıştırmak istiyorum fakat yazının kalınlığınıda almasını istiyorum

 

[ozpoli]

yok mu yardım arkadaşlarrr

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub KoyuDeger()
    Dim adrC As String
    Dim adrP As String
    adrC = InputBox("Kopyalanacak Hücre Adresini Girin")
    adrP = InputBox("Yapıştıracağınız Hücre Adresini Girin")
    If Range(adrC).Font.Bold Then
        Range(adrP) = Range(adrC).Value
        Range(adrP).Font.Bold = True
    Else
        Range(adrP) = Range(adrC).Value
    End If
End Sub

 

[ozpoli]

Bır sayfadakı coklu alanı secıp başka sayfadakı alana yapmak ıstıyorum boyle nasıl olabılır acaba

 

[hamitcan]

Dosyanızı ekleyin.

 

[hamitcan]

Sub KoyuDeger2()
    Dim adrC As String
    Dim adrP As String
    adrC = InputBox("Kopyalanacak Hücre Aralığını Girin")
    adrP = InputBox("Yapıştıracağınız Hücre Adresini Girin")
    For Each hcr In Range(adrC)
    If hcr.Font.Bold Then
        Cells(hcr.Row, Range(adrP).Column) = hcr.Value
        Cells(hcr.Row, Range(adrP).Column).Font.Bold = True
    Else
        Cells(hcr.Row, Range(adrP).Column) = hcr.Value
    End If
    Next
End Sub

 

[ozpoli]

düşey arayla bir hücredeki bilgiyi getirince onun kalınlık bold halinide getirecek bir makro varmı arkadaşlar yukardaki ile istediğimi yapamadımda bana düşey arayla lazım lütfen yardım