hücrenin kenar çizgilerinin kopyalanması

[modoste]

merhaba sayın hocaalrım daha önceden daha karmaşık sorduğum biçim kopyalamak ile ilgili sorumu basit bi seviyede tekrar sormak istiyorum

örneğin benim A1 hücremim altkenarı kalın çizgi ve hücrede 10 verisi bulunuyo
B1 hücresine =A1 yazınca 10 değerini alıyo ama altkenar kalın değil
bunu nasıl yapabilirim.

formülle yada makro ile olmasını istiyorum biçim kopyalayıcı ile çözüm aradığım çözüm değildir.

 

[ExcelF1]

Bu kod işinizi görmüyor mu ?

Sub Makro1()
[A1].Copy
[B1].PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub