Makroları Birleştirmek

[dream10]

Merhaba,

Çalıştığım daha önceden yapılan ve 40 sheetten oluşan bir çalışma var ve her sheette aynı makro yazılmış durumda, makrolar commandbutton a atanmış her sayfada bir button mevcut.

Bunları yeni açacağım bir sheet üzerinden tek button ile çalıştırmak istiyorum.

Bütün makrolar şu şekilde başlıyor

Private Sub CommandButton1_Click()
Dim Hedef As String
Dim sutun As Integer
Hedef = ActiveSheet.Name
sutun = 0

For iii = 527 To 527
Sheets(Hedef).Cells(iii, 4).Value = 0
.
.
.
.

Bunları call makro1 şeklinde çalıştıramıyorum bu yüzden, her birinde button1 olarak yazıldığı için call button1 de yapamıyorum.

Makro konusunda yeniyim, yardımlarınızı rica ediyorum.

Teşekkürler.

 

[Ömer]

Merhaba,

Tam olarak yapmak istediğinizi anlamadım. Fakat aşağıdak gibi bir yapı kurabilirsiniz.

Kodları standart bir module kopyalayın.

Sub Deneme()
 
    Dim Hedef As String
    Dim sutun As Integer
   [COLOR=red] Dim j As Integer
[/COLOR]    
    sutun = 0
    
    [COLOR=red]For j = 1 To Worksheets.Count
[/COLOR]        For iii = 527 To 527
            Sheets([COLOR=red]j[/COLOR]).Cells(iii, 4).Value = 0
        Next iii
    [COLOR=red]Next j[/COLOR]
 
End Sub

.