Değişen hücre

[muratgunay48]

Arkadaşlar, sayın hocalarım, tek hücre olursa yapabiliyorum ama çok olunca yapamadım.
Bir arkadaşıma CV hazırlayacağım. 3 dilde olacak.
Butona her basınca hücre içerikleri değişecek.
CommandButton ile nasıl yapabilirim.
Teşekkür ederim.
Saygılarımla.

 

[Tevfik_Kursun]

Merhaba,

Private Sub CommandButton1_Click()
    If CommandButton5.Caption = "TÜRKÇE" Then
        Call Makro1
        CommandButton1.Caption = "İNGİLİZCE"
        CommandButton1.BackColor = &HFFC0FF
    Else
        If CommandButton1.Caption = "İNGİLİZCE" Then
            Call Makro2      
            CommandButton1.Caption = "FRANSIZCA"
            CommandButton1.BackColor = &HFFFFC0
            Else
                If CommandButton1.Caption = "FRANSIZCA" Then
                Call Makro3
                CommandButton1.Caption = "TÜRKÇE"
                CommandButton1.BackColor = &HC0E0FF
            End If
        End If
End Sub

Bunu mu, demek istediniz?
İyi çalışmalar

 

[Muzaffer Ali]

Merhaba.

Alternatif.
Fikir vermesi açısından küçük bir örnek hazırladım.

 

[muratgunay48]

Merhaba.

Alternatif.
Fikir vermesi açısından küçük bir örnek hazırladım.

Hocam çok teşekkür ederim. Emeğinize sağlık.
Geç cevap yazdığım için mazur görün lütfen. Gece çalışıyorum gündüz uyuyorum.