tek commandbuton ile farklı makro çalıştırma

[m.gur]

Merhaba;
Yaptığım çalışma dosyamda 4 farklı makro var. Ana sayfada 1 tane buton mevcut. Seçilen değere göre ilgili makronun çalışmasını nasıl sağlarım.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
If Range("h3").Value = 1 Then
Call Makro1
ElseIf Range("h3").Value = 2 Then
Call Makro2
ElseIf Range("h3").Value = 3 Then
Call Makro3
ElseIf Range("h3").Value = 4 Then
Call Makro4
Else
Exit Sub
End If
End Sub
 
Sub Makro1()
Msgbox "Selam"
End Sub

 

[m.gur]

Sayın Recep İpek;
Çok teşekkür ederim.

 

[Recep İpek]

Rica ederim...

 

[Ayhan Ercan]

Alternatif;

Private Sub CommandButton1_Click()
Select Case Range("H3").Value
    Case Is = 1: makro1
    Case Is = 2: makro2
    Case Is = 3: makro3
    Case Is = 4: makro4
End Select
End Sub

 

[m.gur]

Sayın Ayhan Ercan;
Sizede çok teşekkür ederim. Her ikisi de çalışıyor. Bu arada farklı makro yazılımları öğrenmiş oldum. Sağ olun var olun. Saygılar.

 

[kemalist]

Sub SFIYAT_AZ()

Range("B3:IR252").Select

ActiveWorkbook.Worksheets("SFIYAT").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SFIYAT").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SFIYAT").Sort
.SetRange Range("B3:BA252")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub SFIYAT_ZA()

Range("B3:IR252").Select

ActiveWorkbook.Worksheets("SFIYAT").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SFIYAT").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SFIYAT").Sort
.SetRange Range("B3:BA252")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Yukarıda iki tanede sıralama makrosu var bunları tek butonla nasıl çalıştırabilirim?İlk bastığımda birinci makro tekrar bastığımda ikinci makro çalışacak.

 

[ÖmerBey]

Deneyiniz.

Dim kontrol As Boolean
Sub kod()
If kontrol <> True Then
    Call SFIYAT_AZ
    kontrol = True
Else
    Call SFIYAT_ZA
    kontrol = False
End If
End Sub

 

[kemalist]

Deneyiniz.

Dim kontrol As Boolean
Sub kod()
If kontrol <> True Then
    Call SFIYAT_AZ
    kontrol = True
Else
    Call SFIYAT_ZA
    kontrol = False
End If
End Sub

ikinci makro çalışmıyor

 

[ÖmerBey]

İlk satırın makronun dışında yer alması gerekiyor. Yine de çalışmıyorsa aşağıdaki şekilde deneyiniz.

[COLOR="Red"]Public[/COLOR] kontrol As Boolean
Sub kod()
If kontrol <> True Then
    Call SFIYAT_AZ
    kontrol = True
Else
    Call SFIYAT_ZA
    kontrol = False
End If
End Sub

 

[kemalist]

İlk satırın makronun dışında yer alması gerekiyor. Yine de çalışmıyorsa aşağıdaki şekilde deneyiniz.

[COLOR="Red"]Public[/COLOR] kontrol As Boolean
Sub kod()
If kontrol <> True Then
    Call SFIYAT_AZ
    kontrol = True
Else
    Call SFIYAT_ZA
    kontrol = False
End If
End Sub

köprü makro ile hallettim teşekkürler