Checkbox Copy

cevatyildiz · 11 Ağustos 2010

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 · 11 Ağustos 2010

Arkadaslar kim yardımcı olabilir?

cevatyildiz · 12 Ağustos 2010

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

mancubus · 12 Ağustos 2010

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 · 12 Ağustos 2010

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

mancubus · 12 Ağustos 2010

mancubus' Alıntı:
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.

Kod:

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 · 12 Ağustos 2010

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.

Kod:

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 · 12 Ağustos 2010

veya sadece

Kod:

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.

Kod:

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 · 12 Ağustos 2010

Tesekkur ederim mancubus

mancubus · 12 Ağustos 2010

cevatyildiz' Alıntı:
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 · 12 Ağustos 2010

Tekrardan teşekkürler

bir ara çalışmadı nedense..

cevatyildiz · 13 Ağustos 2010

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 · 13 Ağustos 2010

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

cevatyildiz · 13 Ağustos 2010

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

mancubus · 13 Ağustos 2010

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 · 13 Ağustos 2010

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...

Checkbox Copy

cevatyildiz

cevatyildiz

cevatyildiz

Ekli dosyalar

mancubus

Destek Ekibi

cevatyildiz

mancubus

Destek Ekibi

mancubus

Destek Ekibi

mancubus

Destek Ekibi

cevatyildiz

mancubus

Destek Ekibi

cevatyildiz

cevatyildiz

cevatyildiz

cevatyildiz

Ekli dosyalar

mancubus

Destek Ekibi

cevatyildiz