makroyu çoklu sayfada çalıştırmak. ?

[igultekin2000]

iyi günler;
zaman zaman çalışmalarımda aynı makroyu belli sayfalarda çalıştırıyorum. mesela çalışma sayfalarım 2014 - 2015 - 2016 - 2017 - 2018 her sayfanın verileri aynı formatta

Sub birlestir()
sat = 3
For Each alan In Range("H4:I" & Range("I65536").End(3).Row)
If alan <> "" Then
Cells(sat, "I") = Cells(sat, "I") & "-" & Cells(sat, "H")
sat = sat + 1
End If
Next
End Sub

bu kodu her sayfa için tek tek çalıştırmak yerine, tek tıklama ile her sayfa için nasıl çalıştırabilirim. Teşekkürler.

 

[kulomer46]

Aşağıdaki kod işinize yarar... Selamlar..

Sub coklu_birlestir()

For t = 1 To Worksheets.Count
Worksheets(t).Select

sat = 3
For Each alan In Range("H4:I" & Range("I65536").End(3).Row)
If alan <> "" Then
Cells(sat, "I") = Cells(sat, "I") & "-" & Cells(sat, "H")
sat = sat + 1
End If
Next

Next

End Sub

 

[igultekin2000]

Aşağıdaki kod işinize yarar... Selamlar..

Teşekkürler, sorunsuz çalışıyor

 

[kulomer46]

Selamlar..

 

[Necdet]

Merhaba,

Range("I65536").End(3).Row)

yukarıdaki kullanım yerine aşağıdaki gibi kullanmak daha mantıklıdır. Olaki 65536 satırdan büyük verilerde kod yanlış çalışacaktır.

Cells(Rows.Count, "I").End(3).Row

 

[kulomer46]

Bilgi aldım, faydalandım. Teşekkür ediyorum.