Onay Kutusu Tiki otomatik kaldırma

[Kavinsky]

Merhabalar Bende yoklama listesi var isimlerin yanına onay kutusu koydum ve onay kutularını hücreye bağladım.Onay kutusu işaretlenince geldi olarak yazıyor hücreye , işaretli olmayınca ise gelmedi. Benim isteğim yaklaşık 50 adet olan onay kutusu var makro ile hepsinin tiklerini kaldırmak ve yoklama almaya hazır hale getirmek. Tek tek uğraşıyorum hepsi ile. Bununla ilgili yardımlarınızı rica ediyorum. Acaba böyle bir imkan var mı ? Ya da yoklama konusunda farklı fikirlerede açığım.

 

[halit3]

Merhabalar Bende yoklama listesi var isimlerin yanına onay kutusu koydum ve onay kutularını hücreye bağladım.Onay kutusu işaretlenince geldi olarak yazıyor hücreye , işaretli olmayınca ise gelmedi. Benim isteğim yaklaşık 50 adet olan onay kutusu var makro ile hepsinin tiklerini kaldırmak ve yoklama almaya hazır hale getirmek. Tek tek uğraşıyorum hepsi ile. Bununla ilgili yardımlarınızı rica ediyorum. Acaba böyle bir imkan var mı ? Ya da yoklama konusunda farklı fikirlerede açığım.

Örnek dosya ekleyin bir bakalım

Belki bu kod işinizi görür

Sub secimlerikaldır()
On Error Resume Next
Dim Picture As Object
Set s1 = Sheets(ActiveSheet.Name)
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "CheckBox" Then
s1.Shapes(Picture.Name).OLEFormat.Object.Value = xlOff
End If
Next Picture
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub

 

[Merhum İdris SERDAR]

.


Onay Kutuları, Z sütununda bağlantılı ise;

Z:Z'yi kendinize göre uyarlayın.

Sub YENILE()
    Range("Z:Z").ClearContents
    Range("A1").Select
End Sub

.

 

[assenucler]

Sayın Kavinsky,


İsimler farklılaştırılarak, dosyanızı ekleyebilir misiniz? Üstatların çözüm önerileri ile bizler de yeni bir konuyu öğrenebiliriz, diye düşünüyorum.

Takdir tabii ki, sizin.

Sevgi ve saygılar.

 

[Kavinsky]

http://s3.dosya.tc/server7/wpj7oi/YOKLAMA.xlsx.html

Dosya linki budur üstatlar , farklı fikirlerede açığım yoklama alma konusunda.
Birde dosyada üstte tarih var onu aslında kutucuğa bağlama imkanı varmı. Normalde otomatik güncelleniyor tarih ama , yoklama alındı kutusuna bağlasak yoklama alındı işaretlenirse güncellenmesi gibi bir imkan var mıdır acaba ,?

 

[Kavinsky]

Örnek dosya ekleyin bir bakalım

Belki bu kod işinizi görür

Sub secimlerikaldır()
On Error Resume Next
Dim Picture As Object
Set s1 = Sheets(ActiveSheet.Name)
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "CheckBox" Then
s1.Shapes(Picture.Name).OLEFormat.Object.Value = xlOff
End If
Next Picture
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub

Teşekkür ederim hocam kodlar işimi gördü.

 

[Merhum İdris SERDAR]

.

Verdiğim kodu beğenmediniz herhalde. Kod kalabalık olunca daha itibarlı oluyor.

Yukarıda verdiğim kod dosyanıza uyarlanırsa, şu şekilde olmalıdır:

Sub YENILE()
   
    Range("I2:I50, K2:K50, M2:M50, O2:O50").ClearContents
   
End Sub

.

 

[Kavinsky]

.

Verdiğim kodu beğenmediniz herhalde. Kod kalabalık olunca daha itibarlı oluyor.

Yukarıda verdiğim kod dosyanıza uyarlanırsa, şu şekilde olmalıdır:

Sub YENILE()
   
    Range("I2:I50, K2:K50, M2:M50, O2:O50").ClearContents
   
End Sub

.

Saygı değer İdris hocam , istemeden hata ettiysem af ola.İşyerindeki yoğunluktan dolayı gözümden kaçtı.Saygılar , şimdi deniyorum kodu.