onay kutusu

[gunaygergin]

arkadaşlar eklediğim dosyada tek onay kutusundan aynı anda bir çok onay kutusunu işaretleyip işaretini kaldırmak için yardımcı olabilir misiniz?..

 

[mehmett]

Dosyanızda gri renklendirdiğim hücrelere =$G$5 formülü yazılınca istediğiniz oluyor.

 

[gunaygergin]

sn mehmett;

bir problem var !
diğer onay kutularını değiştirince olay bozuluyor. ??

 

[Seyit Tiken]

Yapacağınız çok basittir. İlkin bir Onay Kutusunu çizip hücre adresini yazın ve kopyala-yapıştır yapınız. İstenilen olacaktır.

 

[gunaygergin]

sn seyit Tiken ;

yapmak istediğim mail sayfalarında olduğu gibidir.
yani tek tek işaretleme ve de belirlediğimiz bitanesinden de tümünü seşip kaldırmaktır.

 

[mehmett]

Bu sefer makrolu çözüm ektedir.

Listenize ilave satırlar eklenirse kod sayfasına gidin ve aşağıdaki satıra gerekli ilaveleri yapın.

Range("G6,G8,G10,G12,G14,G16,G18,G20,G22,G24,G26,G28").Select

 

[Recep İpek]

Alternatif olarak,

 

[mehmett]

Bir alternatif daha.

Sub kopyala()
Range("G5").Copy
For x = 6 To 28 Step 2
Range("G" & x).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
Range("G2").Select
End Sub


6 ve 28 değerleri ilk ve son hücreleri belirlemektedir, kendi tablonuza göre değiştirebilirsiniz.

 

[gunaygergin]

sn mehmett ve ripek;

çok teşekkür ederim. iki örnek te güzel sn mehmett in 1. örneği daha hızlı çalışıyor.
her şey için teşekkür ederim.