Kopyalama dışında hücre değer ve biçimlerini atamak

[osman1309]

Kopyalama işlemi kullanmadan aynı kopyalama işlemi yapılıyormuş gibi bazı hücreleri diğer bir hücreye atayabilirmiyiz...ben bu şekildeyapınca olmuyor

range("a5:b5")=range("a1:b1")

 

[Skorpiyon]

Sayın osman1309,

Hücreleri tek tek eşitleyin. Aşağıdaki gibi.

Range("A5") = Range("A1")
[B5] = [B1]
'iki farklı yazım şekli.

 

[osman1309]

Bu şekilde olmuyor

Bu şelilde olmuyor çünkü sadece hücre değerini taşıyor hücrenin biçimini taşımıyor...

Yinede yardımlarınız için teşekkür ederim...

 

[Skorpiyon]

Sayın osman1309,

Kopyalama işlemi kullanmadan aynı kopyalama işlemi yapılıyormuş gibi bazı hücreleri diğer bir hücreye atayabilirmiyiz...ben bu şekildeyapınca olmuyor

range("a5:b5")=range("a1:b1")

Sorunuzda hücre biçimini aktarmak istiyorum diye bir nokta göremiyorum. İstediğinizi daha açık ve net ifade etmeilisiniz.

Vermiş olduğunuz üstteki örnek de, sadece hücre içindeki değer aktarılmak isteniyormuş izlenimi veriyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Aklıma gelen biçimleri yazdım. Siz farklı eklemeler yaparak kodu geliştirebilirsiniz. Fakat en kısa yol kopyalama yapmaktır.

Option Explicit
 
Sub BİÇİMİYLE_AKTAR()
    With Range("A5:B5")
        Range("A1:B1").Value = .Value
        Range("A1:B1").Font.FontStyle = .Font.FontStyle
        Range("A1:B1").Font.Size = .Font.Size
        Range("A1:B1").Font.Underline = .Font.Underline
        Range("A1:B1").Font.ColorIndex = .Font.ColorIndex
        Range("A1:B1").Interior.ColorIndex = .Interior.ColorIndex
        Range("A1:B1").Interior.ColorIndex = .Interior.ColorIndex
        Range("A1:B1").HorizontalAlignment = .HorizontalAlignment
        Range("A1:B1").VerticalAlignment = .VerticalAlignment
    End With
End Sub

 

[osman1309]

teşekkür ederim.İlginizden dolayı