kopyalama??

[udentr2002]

Merhaba değerli hocalarım ekli dosyada daha detaylı anlatmaya çalıştım Kısacası belirlediğim aralıkalrdaki hücreleri tüm özellikleri ile birlikte ( yani hücre genişliği hücre biçimleri ile birlikte) kopyalayıp aktif olan hücreye yapıştırcaka böyle bi makro nasıl yapabilirim? Şimdiden teşekkür ederim

 

[Kemal Demir]

Aşagıdaki kod a kolonunda geçerlidir.Nedeni ise Satırları(1:7) kopyalayarak ilgili a kolonu herhagibir hücresinde istediğiniz gerçekleşebilir.

daha profosyonel cevap verilebilir dusuncesindeyim.

Umarım size yardımcı olabilirmişimdir.

Rows("1:7").Copy
ActiveCell.PasteSpecial

 

[udentr2002]

rakkas hocam

teşekkürler vakit ayırdığın için ama sanırım tam anlayamadınız yada sorumda ben tam anlatamadım benim istediğim sadece a1 den j7 kolonuna kadar olan hücreleri kopyalayıp yapıştırması tüm satırları değil böyle bir şeyi yapabilmemiz için nasıl bi makro kullanmamız lazım??

 

[udentr2002]

???

cevap verebilecek bi arkadaş varmı acaba???

 

[Kemal Demir]

iyi geceler,

zannedersem sımdıki duzenlemem işinizi görecektir.

iyi Geceler.

 

[udentr2002]

rakkas hocam

teşekkürler saolun çalışıyor
peki bu makronun diğer sayfalarda da aynı çalışması için ne yapabilrim aynı düğmeyi sayfa2 ye kopyalayıp çalıştırdığımda olmuyor diğer sheetlerde de aktif olan hücrede aynı şekilde çalışması için ne yapabiliriz

 

[Kemal Demir]

Sub kopyala()
Sheets("Sayfa1").Range("a1:j7").Copy
ActiveCell.PasteSpecial
ActiveCell.Select
sat = ActiveCell.Row
Rows(sat).RowHeight = Sheets("Sayfa1").Rows("1:1").RowHeight
Rows(sat + 1).RowHeight = Sheets("Sayfa1").Rows("2:2").RowHeight
Rows(sat + 2).RowHeight = Sheets("Sayfa1").Rows("3:3").RowHeight
Rows(sat + 3).RowHeight = Sheets("Sayfa1").Rows("4:4").RowHeight
Rows(sat + 4).RowHeight = Sheets("Sayfa1").Rows("5:5").RowHeight
Rows(sat + 5).RowHeight = Sheets("Sayfa1").Rows("6:6").RowHeight
Rows(sat + 6).RowHeight = Sheets("Sayfa1").Rows("7:7").RowHeight
End Sub

kodu Yukarıdaki gibi değistiriniz.

 

[udentr2002]

rakkas hocam

çok teşekkürler ellerine sağlık tam istediğim gibi oldu Allah razı olsun

 

[Kemal Demir]

Hocam Yapma Valla Utandırdın beni.Allah Hepimizden Razı Olsun.