Makroyu Tek buton ile tüm sayfalarda çalıştırma.

[_GÜRCAN_]

Merhabalar, Excel kitabında bulunan farklı isimlerde tüm sayfalara tek buton ile bu makroyu çalıştıra bilirmiyiz,
desteğinizi rica eder,
iyi çalışmalar dilerim.




Private Sub CommandButton1_Click()


BasTarih = Range("c12").Value
BitTarih = Range("c13").Value
Mim = Range("k12").Value
For i = 15 To 3000
Zaman = Range("B" & i).Value
Mik = Range("G" & i).Value
If BasTarih < Zaman And BitTarih > Zaman And Mik > 0 And Mik < 20 Then
Sayac = Sayac + 1
Toplam = Toplam + Mik
End If
Next i
Range("R8").Value = Sayac
Range("r9").Value = Toplam



End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu bir Module kopyalayarak deneyin.

Private Sub CommandButton1_Click()
    Dim syf As Worksheet
    Dim BasTarih As Variant
    Dim BitTarih As Variant
    Dim Mim As Variant
    Dim Mik As Variant
    Dim Zaman As Variant
    Dim toplam As Variant
    Dim i As Long
    Dim Sayac As Long
    
    For Each syf In ThisWorkbook.Worksheets
        BasTarih = syf.Range("c12").Value
        BitTarih = syf.Range("c13").Value
        Mim = syf.Range("k12").Value
        For i = 15 To 3000
            Zaman = syf.Range("B" & i).Value
            Mik = syf.Range("G" & i).Value
            If BasTarih < Zaman And BitTarih > Zaman And Mik > 0 And Mik < 20 Then
                Sayac = Sayac + 1
                toplam = toplam + Mik
            End If
        Next i
        syf.Range("R8").Value = Sayac
        syf.Range("r9").Value = toplam
    Next
End Sub

 

[_GÜRCAN_]

Merhaba.

Aşağıdaki kodu bir Module kopyalayarak deneyin.

Private Sub CommandButton1_Click()
    Dim syf As Worksheet
    Dim BasTarih As Variant
    Dim BitTarih As Variant
    Dim Mim As Variant
    Dim Mik As Variant
    Dim Zaman As Variant
    Dim toplam As Variant
    Dim i As Long
    Dim Sayac As Long
  
    For Each syf In ThisWorkbook.Worksheets
        BasTarih = syf.Range("c12").Value
        BitTarih = syf.Range("c13").Value
        Mim = syf.Range("k12").Value
        For i = 15 To 3000
            Zaman = syf.Range("B" & i).Value
            Mik = syf.Range("G" & i).Value
            If BasTarih < Zaman And BitTarih > Zaman And Mik > 0 And Mik < 20 Then
                Sayac = Sayac + 1
                toplam = toplam + Mik
            End If
        Next i
        syf.Range("R8").Value = Sayac
        syf.Range("r9").Value = toplam
    Next
End Sub

Çok teşekkür ederim muzaffer Ali bey, iyi çalışmalar dilerim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.