Checkbox Copy

[cevatyildiz]

Merhaba,

elimde 2 sayfası bulunan bir dosya var. İlk sayfasında Türkçe ikinci sayfasında ingilizce tercümesi var. Türkçe olan sayfada girişleri yaptıgımda ingilizce olan sayfada da bu değişikliklerin otomatik olarak yapılmasını istiyorum.Bag yapıştır diyerek bunu yapabilirim. Fakat checkbox ları nasıl yapabiliriz?

 

[cevatyildiz]

Arkadaslar kim yardımcı olabilir?

 

[cevatyildiz]

Arkadaşlar örnek ekledim, yardımlarınızı bekliyorum.

 

[mancubus]

merhaba.

Bağ Yapıştır da çıkan problem => Turkish sayfasında giriş olmadıgı takdirde 0 gözüksün istemiyorum.

=Turkish!A16
yerine
=IF(Turkish!A16="";"";(Turkish!A16))
kullanabilirsiniz.

aynı durumu tarih (I17) için de yapabilirsiniz.


checkbox konusu beni aşar...

 

[cevatyildiz]

çok teşekkürler dostum, sadece checkbox la ilgili problemim kaldı.

 

[mancubus]

checkbox konusu beni aşar...

google sağolsun

aşağıdaki kodu Alt+F11 ile girerek English sayfasının kod penceresine kopyalayın.

Turkish sayfasında box'lar işaretlendikten sonra English sayfası tıklandığında box'lar otomatik işaretleniyor.

design'dan checkbox noları bulunarak karşılıklı eşleştirilmiştir.

Private Sub Worksheet_Activate()

If Sheets("Turkish").CheckBox21.Value = True Then Sheets("English").CheckBox10.Value = True
If Sheets("Turkish").CheckBox22.Value = True Then Sheets("English").CheckBox11.Value = True
If Sheets("Turkish").CheckBox23.Value = True Then Sheets("English").CheckBox12.Value = True
If Sheets("Turkish").CheckBox24.Value = True Then Sheets("English").CheckBox13.Value = True
If Sheets("Turkish").CheckBox25.Value = True Then Sheets("English").CheckBox14.Value = True
If Sheets("Turkish").CheckBox26.Value = True Then Sheets("English").CheckBox15.Value = True
If Sheets("Turkish").CheckBox27.Value = True Then Sheets("English").CheckBox16.Value = True
If Sheets("Turkish").CheckBox28.Value = True Then Sheets("English").CheckBox17.Value = True
If Sheets("Turkish").CheckBox29.Value = True Then Sheets("English").CheckBox18.Value = True
If Sheets("Turkish").CheckBox30.Value = True Then Sheets("English").CheckBox19.Value = True
If Sheets("Turkish").CheckBox31.Value = True Then Sheets("English").CheckBox20.Value = True
If Sheets("Turkish").CheckBox12.Value = True Then Sheets("English").CheckBox1.Value = True
If Sheets("Turkish").CheckBox13.Value = True Then Sheets("English").CheckBox2.Value = True
If Sheets("Turkish").CheckBox14.Value = True Then Sheets("English").CheckBox3.Value = True
If Sheets("Turkish").CheckBox15.Value = True Then Sheets("English").CheckBox4.Value = True
If Sheets("Turkish").CheckBox16.Value = True Then Sheets("English").CheckBox5.Value = True
If Sheets("Turkish").CheckBox17.Value = True Then Sheets("English").CheckBox6.Value = True
If Sheets("Turkish").CheckBox18.Value = True Then Sheets("English").CheckBox7.Value = True
If Sheets("Turkish").CheckBox19.Value = True Then Sheets("English").CheckBox8.Value = True
If Sheets("Turkish").CheckBox20.Value = True Then Sheets("English").CheckBox9.Value = True


End Sub

 

[mancubus]

Turkish'te işaretler kaldırıldığında English'te de kalkması için...

bir önceki mesajı dikkate almayınız.

daha pratik bir şey olabilir. acemi olarak bu kadarı oldu.

Private Sub Worksheet_Activate()

If Sheets("Turkish").CheckBox21.Value = True Then Sheets("English").CheckBox10.Value = True
If Sheets("Turkish").CheckBox22.Value = True Then Sheets("English").CheckBox11.Value = True
If Sheets("Turkish").CheckBox23.Value = True Then Sheets("English").CheckBox12.Value = True
If Sheets("Turkish").CheckBox24.Value = True Then Sheets("English").CheckBox13.Value = True
If Sheets("Turkish").CheckBox25.Value = True Then Sheets("English").CheckBox14.Value = True
If Sheets("Turkish").CheckBox26.Value = True Then Sheets("English").CheckBox15.Value = True
If Sheets("Turkish").CheckBox27.Value = True Then Sheets("English").CheckBox16.Value = True
If Sheets("Turkish").CheckBox28.Value = True Then Sheets("English").CheckBox17.Value = True
If Sheets("Turkish").CheckBox29.Value = True Then Sheets("English").CheckBox18.Value = True
If Sheets("Turkish").CheckBox30.Value = True Then Sheets("English").CheckBox19.Value = True
If Sheets("Turkish").CheckBox31.Value = True Then Sheets("English").CheckBox20.Value = True
If Sheets("Turkish").CheckBox12.Value = True Then Sheets("English").CheckBox1.Value = True
If Sheets("Turkish").CheckBox13.Value = True Then Sheets("English").CheckBox2.Value = True
If Sheets("Turkish").CheckBox14.Value = True Then Sheets("English").CheckBox3.Value = True
If Sheets("Turkish").CheckBox15.Value = True Then Sheets("English").CheckBox4.Value = True
If Sheets("Turkish").CheckBox16.Value = True Then Sheets("English").CheckBox5.Value = True
If Sheets("Turkish").CheckBox17.Value = True Then Sheets("English").CheckBox6.Value = True
If Sheets("Turkish").CheckBox18.Value = True Then Sheets("English").CheckBox7.Value = True
If Sheets("Turkish").CheckBox19.Value = True Then Sheets("English").CheckBox8.Value = True
If Sheets("Turkish").CheckBox20.Value = True Then Sheets("English").CheckBox9.Value = True


If Sheets("Turkish").CheckBox21.Value = False Then Sheets("English").CheckBox10.Value = False
If Sheets("Turkish").CheckBox22.Value = False Then Sheets("English").CheckBox11.Value = False
If Sheets("Turkish").CheckBox23.Value = False Then Sheets("English").CheckBox12.Value = False
If Sheets("Turkish").CheckBox24.Value = False Then Sheets("English").CheckBox13.Value = False
If Sheets("Turkish").CheckBox25.Value = False Then Sheets("English").CheckBox14.Value = False
If Sheets("Turkish").CheckBox26.Value = False Then Sheets("English").CheckBox15.Value = False
If Sheets("Turkish").CheckBox27.Value = False Then Sheets("English").CheckBox16.Value = False
If Sheets("Turkish").CheckBox28.Value = False Then Sheets("English").CheckBox17.Value = False
If Sheets("Turkish").CheckBox29.Value = False Then Sheets("English").CheckBox18.Value = False
If Sheets("Turkish").CheckBox30.Value = False Then Sheets("English").CheckBox19.Value = False
If Sheets("Turkish").CheckBox31.Value = False Then Sheets("English").CheckBox20.Value = False
If Sheets("Turkish").CheckBox12.Value = False Then Sheets("English").CheckBox1.Value = False
If Sheets("Turkish").CheckBox13.Value = False Then Sheets("English").CheckBox2.Value = False
If Sheets("Turkish").CheckBox14.Value = False Then Sheets("English").CheckBox3.Value = False
If Sheets("Turkish").CheckBox15.Value = False Then Sheets("English").CheckBox4.Value = False
If Sheets("Turkish").CheckBox16.Value = False Then Sheets("English").CheckBox5.Value = False
If Sheets("Turkish").CheckBox17.Value = False Then Sheets("English").CheckBox6.Value = False
If Sheets("Turkish").CheckBox18.Value = False Then Sheets("English").CheckBox7.Value = False
If Sheets("Turkish").CheckBox19.Value = False Then Sheets("English").CheckBox8.Value = False
If Sheets("Turkish").CheckBox20.Value = False Then Sheets("English").CheckBox9.Value = False

End Sub

 

[mancubus]

veya sadece

Private Sub Worksheet_Activate()

Sheets("English").CheckBox11.Value = Sheets("Turkish").CheckBox22.Value
Sheets("English").CheckBox12.Value = Sheets("Turkish").CheckBox23.Value
Sheets("English").CheckBox13.Value = Sheets("Turkish").CheckBox24.Value
Sheets("English").CheckBox14.Value = Sheets("Turkish").CheckBox25.Value
Sheets("English").CheckBox15.Value = Sheets("Turkish").CheckBox26.Value
Sheets("English").CheckBox16.Value = Sheets("Turkish").CheckBox27.Value
Sheets("English").CheckBox17.Value = Sheets("Turkish").CheckBox28.Value
Sheets("English").CheckBox18.Value = Sheets("Turkish").CheckBox29.Value
Sheets("English").CheckBox19.Value = Sheets("Turkish").CheckBox30.Value
Sheets("English").CheckBox20.Value = Sheets("Turkish").CheckBox31.Value
Sheets("English").CheckBox1.Value = Sheets("Turkish").CheckBox12.Value
Sheets("English").CheckBox2.Value = Sheets("Turkish").CheckBox13.Value
Sheets("English").CheckBox3.Value = Sheets("Turkish").CheckBox14.Value
Sheets("English").CheckBox4.Value = Sheets("Turkish").CheckBox15.Value
Sheets("English").CheckBox5.Value = Sheets("Turkish").CheckBox16.Value
Sheets("English").CheckBox6.Value = Sheets("Turkish").CheckBox17.Value
Sheets("English").CheckBox7.Value = Sheets("Turkish").CheckBox18.Value
Sheets("English").CheckBox8.Value = Sheets("Turkish").CheckBox19.Value
Sheets("English").CheckBox9.Value = Sheets("Turkish").CheckBox20.Value

End Sub

tüm sayfalarda bulunan tüm checkbox'lardaki işaretleri kaldırmak için de şöyle bir kod buldum:
VBA'de iken insert - module ile standart modül ekleyerek bu modülün kod penceresine kopyalayınız.

Sub ClearChkBoxes()

Dim ctl As OLEObject, sht As Worksheet

For Each sht In Worksheets
   For Each ctl In sht.OLEObjects
       If TypeOf ctl.Object Is MSForms.CheckBox Then
       ctl.Object.Value = False
       End If
   Next ctl
Next sht

End Sub

 

[cevatyildiz]

Tesekkur ederim mancubus

 

[mancubus]

Tesekkur ederim mancubus

rica ederim.

bir mail bekliyorum, bir türlü gelmedi.
beklerken konuyu araştırma imkanı oldu. benim de işime yarayabilir.

 

[cevatyildiz]

Tekrardan teşekkürler bir ara çalışmadı nedense..

 

[cevatyildiz]

Peki bir başka soru. Rectangle ın içerisinde ki x deerini başka bir sayfada ki rectangle ın içerisine geçirmek istiyorum. Nasıl değerini alıp atayabilirim?

 

[cevatyildiz]

Sheets("English").Shapes("Rectangle 46").TextFrame.Characters.Text = Sheets("Turkish").Shapes("Rectangle 79").TextFrame.Characters.Text

 

[cevatyildiz]

ekteki hatayı alıyorum, ne o bilmeden virüs mü yazıyoruz

 

[mancubus]

hata mesajı alıyorsunuz.
kodu hatalı olduğunu gösteriyor.

yalnız bu husus checkbox tan farklı.

konuyu forumda aramanız, yanıt bulamazsanız ayrı bir konu açmanız önerilir.

 

[cevatyildiz]

Rectangle la ilgili satırları yazmadan önce de bu hatayı alıyordum. Checkbox ların bazılarına bağlı bir hata değil, farklı denemelerimde bunun genel bir hata oldugunu anladım.

ama bu hata her zaman çıkmıyor bazen çıkıyor bazen çıkmıyor...