Tüm sayfalara Bir sütundaki verileri kopyalamak

[hadromer]

Merhaba,
bir excel dosyası içerisinde çok sayıda sayfa mevcut.
ilk sayfada H sütununda formüllü H sütunu var. H sütununu tüm sayfalara yine H sütununa kopyalamak istiyorum.
Bununla ilgili yardımcı olur musunuz ?
teşekkür ederim.

 

[DoğanD]

Merhaba,

Aşağıdaki kodu dener misiniz?

Sub dd()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Sheets(1).Columns(8).Copy ws.Columns(8)
Next
End Sub

 

[hadromer]

Merhaba,

Aşağıdaki kodu dener misiniz?

Sub dd()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Sheets(1).Columns(8).Copy ws.Columns(8)
Next
End Sub

Merhaba,
Çok teşekkür ederim istediğim gibi çalıştı.
ilerde değiştirmem gerekirse diye buradan sormak istedim. Bu kod sadece h sütunu için. H-I-J gibi kopyalamak istediğim sütunu artırmak istesem


Sheets(1).Columns(8).Copy ws.Columns(8)

kısmını nasıl değiştirmem gerekiyor ? 8 rakamı H sütunu için. yanına nasıl ekleme yapmalıyım ?

Teşekkür ederinm

 

[DoğanD]

Kodu aşağıdaki gibi değiştirebilirsiniz. Tüm sütun kullanılmayacaksa yine Range işlevini satır bazlı da kullanabilirsiniz.

Sheets(1).Range("H:J").Copy ws.Columns(8)

 

[hadromer]

çok teşekkür ederim