ToggleButton hücre değeri yükleme

[Yesilyurtlu]

ToggleButton1 düğmesine her tıklamam da
1. tıklamam da tanımlar sayfasında ki E3 deki değeri Sayfa2 de ki Z20 hücresine
2. tıklamam da tanımlar sayfasında ki E4 deki değeri Sayfa2 de ki Z20 hücresine
3. tıklamam da tanımlar sayfasında ki E5 deki değeri Sayfa2 de ki Z20 hücresine sırası ile nasıl yazdırabilirim.
4. tıklamam da da Sayfa2 de ki Z20 hücresini boş bırakacak.

Bu konuda yardımcı olabilir misiniz?

 

[Orion1]

Benim bildiğim toggle buttonun iki tane değeri var.True ve false.
4 tane yok diye biliyorum.

 

[Yesilyurtlu]

Evren Abi ;
Başka nasıl yapılabilir?
Mesala Çift tık ile yapılabilinir mi?

"1. tıklamam da tanımlar sayfasında ki E3 deki değeri Sayfa2 de ki Z20 hücresine
2. tıklamam da tanımlar sayfasında ki E4 deki değeri Sayfa2 de ki Z20 hücresine
3. tıklamam da tanımlar sayfasında ki E5 deki değeri Sayfa2 de ki Z20 hücresine
4. tıklamam da da Sayfa2 de ki Z20 hücresini boş bırakacak."

Eğer mümkünse yardımcı olabilir misiniz?
Saygılarımla

 

[uzmanamele]

Evren Abi ;
Başka nasıl yapılabilir?
Mesala Çift tık ile yapılabilinir mi?

"1. tıklamam da tanımlar sayfasında ki E3 deki değeri Sayfa2 de ki Z20 hücresine
2. tıklamam da tanımlar sayfasında ki E4 deki değeri Sayfa2 de ki Z20 hücresine
3. tıklamam da tanımlar sayfasında ki E5 deki değeri Sayfa2 de ki Z20 hücresine
4. tıklamam da da Sayfa2 de ki Z20 hücresini boş bırakacak."

Eğer mümkünse yardımcı olabilir misiniz?
Saygılarımla

merhaba
normal kopcayla bunu yapabilirsiniz.
mesela

public as x integer

sub deneme
if x büyük 4 then exit sub 
if x=1 then
...
end if
if x=2 then
...
end jf
if x=3 then
...
end if
if x=4 then
...
end if
x=x+1
end sub

not:
klavyen bozuk tam olarak yazamamış olabilirim

 

[Orion1]

Togglebuttondeğilde normal buton için
Standart bir modüle aşağıdaki kodu yazın.
Bu kodu bir normal butona atayın.

Dim say As Byte
Sub aktar_59()
If say = 0 Then say = 1
If say = 1 Then
    Sheets("Sayfa2").Cells(20, "Z").Value = Sheets("tanımlar").Range("E3").Value
    say = say + 1
    ElseIf say = 2 Then
    Sheets("Sayfa2").Cells(20, "Z").Value = Sheets("tanımlar").Range("E4").Value
    say = say + 1
    ElseIf say = 3 Then
    Sheets("Sayfa2").Cells(20, "Z").Value = Sheets("tanımlar").Range("E5").Value
    say = say + 1
    ElseIf say = 4 Then
    Sheets("Sayfa2").Cells(20, "Z").Value = ""
    say = 1
End If
End Sub

 

[Yesilyurtlu]

uzmanamele üstadım;

tanımlar sayfasında ki E3, E4, E5 de üç kişiye ait ad ve soyad yazılı
çift tıklama ile
tanımlar sayfasında ki E3, E4, E5 de üç kişiye ait ad ve soyadları Sayfa2 de ki Z20 hücresine yazdırmak istiyorum.

 

[Yesilyurtlu]

Evren Abi ;
İşlem Tamam. Teşekkür Ederim. Allah Razı Olsun

 

[Orion1]

Evren Abi ;
İşlem Tamam. Teşekkür Ederim. Allah Razı Olsun

Rica ederim.
İyi çalışmalar.