userformdaki bitir butonuna basarak çalışma sayfalarına makroyu uygulatmak

[emre1979]

Arkadaşlar yapmak istediğim deneme1 dosyasında kayıtlı olan düzenle makrosunu
ilk üç hariç tüm çalışma sayfalarına userformdaki bitir butonuna basarak uygulamak
yardımcı olursanız çok sevinirim

 

[Mahmut Kök]

Arkadaşlar yapmak istediğim deneme1 dosyasında kayıtlı olan düzenle makrosunu
ilk üç hariç tüm çalışma sayfalarına userformdaki bitir butonuna basarak uygulamak
yardımcı olursanız çok sevinirim

Kendi kodlarınızı aşağıdakilerle değiştirip deneyiniz.

Private Sub [B]CommandButton3_Click[/B]()
 For a = 4 To ThisWorkbook.Worksheets.Count
Set s1 = Sheets(a)
If s1.[a65536].End(3).Row < 3 Then GoTo 6
s1.Select
    s1.Range("B3:B1000").Select
    s1.Range("A3:G1000").Sort Key1:=s1.Range("B3"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    s1.Range("B2").Select
    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
6
Next
End Sub