Makro ile kopyala yapıştır yardım

[Uzunkol]

Merhaba arkadaşlar ben e1:q1 hücre aralığındaki verilerin aynısını çalışma kitabındaki bütün e1:q1 hücrelerine yapıştırmak istiyorum. 240 sayfalık bir çalışma kitabı var haliyle normal kopyala yapıştır zor oluyor. bunun için makro yazabilir misiniz.

 

[Mustafa MUTLU]

Şunu denermisiniz

Sub Duzenle()
Range("E1:Q1").Select
Selection.Copy
For x1 = 1 To Sheets.Count
Sheets(x1).Select
Range("E1:Q1").Select
ActiveSheet.Paste
Next x1
End Sub

 

[Uzunkol]

İşimi gördü hocam. Son bir sorum daha olacak eğer mümkünse a2 hücresi hariç A sütunlarındaki verileri silebilecek bir formül var mı bütün çalışma kitabı için

 

[Mustafa MUTLU]

Tüm Sayfalarda
A 2 silinmeyecek
A 3 de A 65536 ya kadar silinecek doğru mu ?

 

[Uzunkol]

evet hocam ayrıca b c d hücrelerindeki veriler 65536ya kadar silinecek

 

[Uzunkol]

hatta olabilirse bcd sütunları komple ortadan kalksın sağ taraftaki veriler sola sürüklensin tabi mümkünse

 

[Mustafa MUTLU]

Sonraki isteklerin için

Sub Silecek()
For x = 1 To Sheets.Count
Sheets(x).Select
Range("A3:A65536").ClearContents
[A1] = ""
Columns("B:D").Select
Selection.Delete Shift:=xlToLeft
Next x
End Sub

Bunu denermisiniz.

 

[Uzunkol]

Hocam Allah Razı Olsun Tam istediğim gibi. Hemşeriymişiz bu arada

 

[Mustafa MUTLU]

İşine yaradı ise ne güzel.
İkamet Kayseri mi

 

[Uzunkol]

Evet ikametimde Kayseri. Ne işle meşgulsünüz

 

[Mustafa MUTLU]

Evet ikametimde Kayseri. Ne işle meşgulsünüz

Memur
Siz ne işle meşgulsünüz.
Hangi mahallede oturuyorsunuz..

Bu arada A2 nin de silinmesini istersen

Range("A3:A65536").ClearContents
[A1] = ""

satırlarını

Range("A1:A65536").ClearContents

Olarak değiştirebilirsin..