onay kutusu problemi

[jonpromiyee]

arkadaşlar bir sayfaya onay kutusu koydum. sonra bu kutuyu yaklaşık 100 hücre aşağıya cektim.

istediğim çektiğim hücrelerin yanına gelen hücreye doğru yada yanlış değeri vermesi. tek tek bağlamadan nasıl yapabilirim.

 

[jonpromiyee]

ekte örnek dosya var.

 

[hamitcan]

Kaynak:http://www.mrexcel.com/forum/showthread.php?t=57339

Sub AddCheckBox()
Dim cell As Range

DelCheckBox  'Do the delete macro
'or delete all checkboxes in the worksheet
' ActiveSheet.CheckBoxes.Delete

For Each cell In Range("A1:A20")
  With ActiveSheet.CheckBoxes.Add(cell.Left, _
     cell.Top, cell.Width, cell.Height)
     .LinkedCell = cell.Offset(, 1).Address(External:=True)
     .Interior.ColorIndex = 12   'or  xlNone or xlAutomatic
     .Caption = ""
     .Border.Weight = xlThin
  End With
Next

With Range("a1:a20")
.Rows.RowHeight = 15
End With
End Sub


Sub DelCheckBox()
For Each cell In Range("a1:a20")
Worksheets("Sayfa1").CheckBoxes.Delete
Next
End Sub

 

[jonpromiyee]

bu makroyu yapıştırdım ama olmadı yada ben yapamadım.

derdimi anlatamadım galiba.

ben A1 hücresine bir tane onay kutusu ekledim. ve A1 hücresini altından tutup aşağıya kadar çektim. lazım olan hücre sayısı kadar.

yapmak istediğim ise ;
A1 hücresinde onay kutusuna tik işareti koyduğumda B1 hücresini doğru yada yanlış değeri vermesi.
A2 hücresinde onay kutusuna tik işareti koyduğumda B2 hücresini doğru yada yanlış değeri vermesi
A3 hücresinde onay kutusuna tik işareti koyduğumda B3 hücresini doğru yada yanlış değeri vermesi

bunun diğer sıra gelen hücreler içinde tekrarlanması.

bunu ben tek tek sağ tık - denetimi biçimlendir - hücre bağlantısına gelip ilgili hücreyi seçmek istemiyorum. çünkü aşağı doğru onay kutusunu yüzlerce çekebilirim.

 

[parametre]

bu makroyu yapıştırdım ama olmadı yada ben yapamadım.

derdimi anlatamadım galiba.

ben A1 hücresine bir tane onay kutusu ekledim. ve A1 hücresini altından tutup aşağıya kadar çektim. lazım olan hücre sayısı kadar.

yapmak istediğim ise ;
A1 hücresinde onay kutusuna tik işareti koyduğumda B1 hücresini doğru yada yanlış değeri vermesi.
A2 hücresinde onay kutusuna tik işareti koyduğumda B2 hücresini doğru yada yanlış değeri vermesi
A3 hücresinde onay kutusuna tik işareti koyduğumda B3 hücresini doğru yada yanlış değeri vermesi

bunun diğer sıra gelen hücreler içinde tekrarlanması.

bunu ben tek tek sağ tık - denetimi biçimlendir - hücre bağlantısına gelip ilgili hücreyi seçmek istemiyorum. çünkü aşağı doğru onay kutusunu yüzlerce çekebilirim.

bu kod dediğini yapıyor

Sub AddCheckBox()
Dim cell As Range

DelCheckBox 'Do the delete macro
'or delete all checkboxes in the worksheet
' ActiveSheet.CheckBoxes.Delete

For Each cell In Range("A1:A20")
With ActiveSheet.CheckBoxes.Add(cell.Left, _
cell.Top, cell.Width, cell.Height)
.LinkedCell = cell.Offset(, 1).Address(External:=True)
.Interior.ColorIndex = 12 'or xlNone or xlAutomatic
.Caption = ""
.Border.Weight = xlThin
End With
Next

With Range("a1:a20")
.Rows.RowHeight = 15
End With
End Sub

buradakide silme işlemini gerceklestiriyor

Sub DelCheckBox()
For Each cell In Range("a1:a20")
Worksheets("Sayfa1").CheckBoxes.Delete
Next
End Sub


sen dogru yanlıs yazmasını istiyorsun o zaman yesil olan kodu calıstıracaksın arkadas dogru yapmıs yani ok

 

[hamitcan]

ben A1 hücresine bir tane onay kutusu ekledim. ve A1 hücresini altından tutup aşağıya kadar çektim. lazım olan hücre sayısı kadar.

Tutup aşağı çekmenize gerek yok. Mevcut kod, A1:A20 hücrelerine, onay kutusu ekliyor.
Kod içindeki 20 sayısını değiştirerek kutu sayısını attırabilirsiniz.

yapmak istediğim ise ;
A1 hücresinde onay kutusuna tik işareti koyduğumda B1 hücresini doğru yada yanlış değeri vermesi.
A2 hücresinde onay kutusuna tik işareti koyduğumda B2 hücresini doğru yada yanlış değeri vermesi
A3 hücresinde onay kutusuna tik işareti koyduğumda B3 hücresini doğru yada yanlış değeri vermesi

bunun diğer sıra gelen hücreler içinde tekrarlanması.

bunu ben tek tek sağ tık - denetimi biçimlendir - hücre bağlantısına gelip ilgili hücreyi seçmek istemiyorum. çünkü aşağı doğru onay kutusunu yüzlerce çekebilirim.

Zaten kod bu şekilde çalışıyor.

 

[jonpromiyee]

öncelikle ilginize çok teşekkürler.

office 2007 yi yeni kurmuştum. sanırım orjinal olmadığından kaynaklanan bi makro problemim var.

yaptığım şu. visual basic'i açıp sayfa 1 e çift tıklayıp kodu yapıştırmak. yanlış yapmıyosam eğer office orjial olmadığından olacak sanırım.

 

[jonpromiyee]

arkadaşlar ben bunu bi türlü yapamadım. visual basic e yapıştırıyorum ama dediğiniz gibi kendisi onay kutusu eklemiyor. rica etsem bunu bir örnek dosyada yapabilir misiniz? yada benim eklemiş olduğum dosyada yapabilir misiniz???

 

[Orion1]

Hamitcan beyin verdiği kodları dosyanıza yaptım.Butona basın öncekşi olanları silip yenilerini koyıuyor
A20 yazan yere istediğiniz sayyı yazarsanız o kadar üretir.
Dosya ektedir.