Tüm sayfalarda aynı hücreye yazı yazdırma

[sakoz]

Üstadlarım Merhaba ,

Bir konuda yardımlarınıza ihtiyacım var. Şimdi bir dosyamız var ve bu dosyadaki tüm sayfalarda F1 hücresine STOK KODU yazdırmak istiyoruz.

Ben aşağıdaki kodu yazdım ama tüm sayfalar için ayrı ayrı yazmam gerekiyor. Epeyde bir sayfa olunca Bunun kısa yolunu araştırdım fakat bulamadım.
Bununla ilgili bana yardımcı olursanız çok sevinirim.
Şimdiden teşekkür ederim.

If [SIRKULER_BINEK!F1] = "" Then
[SIRKULER_BINEK!F1] = "STOK KODU"
End If

 

[Orion1]

Buyurun.

Sub sayfalarayaz59()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Range("F1").Value = "" Then sh.Range("F1").Value = "STOK KODU"
Next
MsgBox "F1 sütunlarına Stok kodu yazıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[sakoz]

Buyurun.

Sub sayfalarayaz59()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Range("F1").Value = "" Then sh.Range("F1").Value = "STOK KODU"
Next
MsgBox "F1 sütunlarına Stok kodu yazıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Evren Hocam ellerin dert görmesin , sağolasın.

Hocam affınıza sığınarak birde şöyle bir sorum olacaktı ?

C;D;E sütunlarında veriler var. Parça kodu olarak geçiyor.
Bu 3 sütunun birleşmiş halini F sütununda görmek istiyoruz.

Ayrıca N,O,P sütunlarındada aynı şekilde veriler var. Parça kodu olarak geçiyor.
Bunlarında birleşmiş halini Q sütununda görmek istiyoruz.

Satır sayıları 100,000 in üzerinde ve epey bir sayfa var. Bunu yapacak bir makroya ihtiyacımız var.

Yalnız bu hücrelerdeki verilerin sonunda boşluklar var onların silinmesi gerekiyor.

Şimdiden teşekkür ederim.

http://s2.dosya.tc/server5/tk9cli/ornek.xlsx.html