biçimlendirme makrosu???

[udentr2002]

ekli dpaydada anlatmaya çalıştım. Makro ile belirli bi alanı seçip aktif olan hücreye yapıştırıyorum buraya kadar sorun yok.
yamlız benim yapmak istediğim o kodda belirlediğim kopyalanacak alandaki hücrelerin boyutları yükseklikleri yani tüm hücrelerin biçimleri ile birlikte aktif olan hücreye kopyalanması ekli dosyayı incelerseniz dediğimi daha net anlayabilrsiniz. Şimdiden teşekkür ederim

 

[udentr2002]

çözdüm

arkadaşlar biraz kurcalayınca çözdüm yinede belki ben gbi bir aceminin daha işine yarar diye kodları gönderiyorum hepinize teşekkürler

Sub Makro4()

Rows("1:7").Copy
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

 

[hermestr]

Sub kopya()
Rows("1:7").Select
Selection.Copy

'sütun genişlikleri kopyalanıyor
Rows("15:21").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

'biçim kopyalanıyor

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

'içerik kopyalanıyor
Selection.PasteSpecial Paste:=xlPasteformulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
End Sub