İki makro kodunu bir buton ile çalıştırma.

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; bir dosyamda iki kod bunlar aşağıda;

Sub X_BİR()
' Klavye Kısayolu: Ctrl+l
SonSat = Cells(Rows.Count, "B").End(xlUp).Row
Range("G4:AK" & SonSat).Replace "X", "1"
End Sub

Sub BİR_X()
' Klavye Kısayolu: Ctrl+x
SonSat = Cells(Rows.Count, "B").End(xlUp).Row
Range("G4:AK" & SonSat).Replace "1", "X"
End Sub

bu iki kodları bir butona atayım, her bastığımda önce 1. sonra 2. sini çalıştırmak istiyorum, nasıl ekleme yaparım.. Teşekkürler.

 

[kemal turan]

Bu kodu şöyle değiştirin

Sub X_BİR()
' Klavye Kısayolu: Ctrl+l
SonSat = Cells(Rows.Count, "B").End(xlUp).Row
Range("G4:AK" & SonSat).Replace "X", "1"
BİR_X
End Sub

 

[ÖmerBey]

Merhaba,
Ben soruyu biraz farklı anladım, alternatif olsun:
Aşağıdaki kodu boş bir modüle kopyalayıp deneyiniz...

Public kntrl As Boolean
Sub kod()
SonSat = Cells(Rows.Count, "B").End(xlUp).Row
If kntrl = True Then
    Range("G4:AK" & SonSat).Replace "X", "1"
Else
    Range("G4:AK" & SonSat).Replace "1", "X"
End If
kntrl = Not kntrl
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Kemal Turan, size de teşekkür ederim, Ömer hocamın anladığı gibi olacaktı. Sayın Ömer hocam teşekkürler ellerine sağlık dua ile kal....