Form denetimleri onay kutusu

Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
iyi akşamlar, bir öğrenci takip sistemi oluşturuyorum ancak puanlanması gereken kriterler var ve bunlar için form denetimlerinden onay kutusunu kullandım. Fakat bu durumda dosyada farklı 10 sayfada toplamda 10.000 i geçen bir onay kutusu kullanmış oldum. Bu durumda da dosyanın ebatı 10 MB ye kadar yükseldi. Bu boyutları düşürme şansım ya da onay kutusunu kullanmadan istediğim şeyi yapma şansım var mı ? Şimdiden teşekkürler :(
 

antonio

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,163
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
Öğrenci bilgilerinin bulunduğu sütun aralıkları ile onay kutularınızı örnek bir sayfa üzerinde gösterirseniz, çözüm için daha iyi fikir oluşabilir.
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Dosya ekleyemiyorum, daha doğrusu mesaj kısmında öyle bir seçenek bulamadım. Üyelik statümle mi ilgili bir durum acaba? aslında dosyayı gönderebilsem bir inceleseniz çok daha iyi olur dediğiniz gibi
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,219
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
If süt = 1 And sat >= 2 And sat <= 20 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If
If süt = 3 And sat >= 5 And sat <= 15 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If

End Sub

Kodlarını yerleştirerek 1. sütunda 2 ile 20. satır aralığında , 3. sütunda 5 ile 15. satır aralığında çift tıklayın. (ilk çift tıklamada onay işareti koyar , ikinci çift tıklamada onayı kaldırır.)

İyi çalışmalar.
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Çok teşekkürler, bu harika oldu. Peki şimdi onay kutusunda olduğu gibi burada da eğersay ile tik işaretine göre ilgili hücreye tıklanmışsa başka bir hücreye istediğim değeri yazdırabilir miyim acaba?
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
İşlem normalde ü harfi koyuyor. Eğer ü harfi varsa değer say şeklinde formülize edebilirsiniz.
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Öğrenci bilgilerinin bulunduğu sütun aralıkları ile onay kutularınızı örnek bir sayfa üzerinde gösterirseniz, çözüm için daha iyi fikir oluşabilir.
Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
If süt = 1 And sat >= 2 And sat <= 20 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If
If süt = 3 And sat >= 5 And sat <= 15 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If

End Sub

Kodlarını yerleştirerek 1. sütunda 2 ile 20. satır aralığında , 3. sütunda 5 ile 15. satır aralığında çift tıklayın. (ilk çift tıklamada onay işareti koyar , ikinci çift tıklamada onayı kaldırır.)

İyi çalışmalar.
Hocam ne kadar teşekkür etsem azdır. Ama bir sorum daha var. Benim için bu tik koymak kadar önemli olan diğer işlev de diyelim A1 e tik attık, G1 e de örneğin 3 yazdık bu tik işaretinin karşıladığı kriterin puanı olarak. eğer a1 de tik varsa g1 deki değeri h1 e yazsın mesala. yani özetle o tik atılan hücrelerin puansal bir karşılığı olacak ve onları hesaplayacağım. Bunu da çözersek samimi söylüyorum şu destek olan arkadaşlar özelden atsınlar adreslerini yarın kestane şekerlerini kargolayayım :)
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
H hücresine EĞER(A6="ü";G6;"") formülünü ekleyin işleminiz yapılır.
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
H hücresine EĞER(A6="ü";G6;"") formülünü ekleyin işleminiz yapılır.
Ya ben kaç defa denedim bu formülün aynısını biliyor musun :) Ama artık sıyırma noktasına geldiğim bir konuda çözüme ulaşmış olmanın verdiği heyecanla sürekli "ü" yazacağıma tırnak işaretleri olmadan ü yazıyorum. Nerede hata var diye de kafayı yiyorum :D :D :D
Çok teşekkür ederim. Şimdi saat kaça kadar sürerse sürsün şu dosyayı yapmaya başlayacağım. Ve tek ümidim istediğim ebatta ve işlevde bir dosya ile geceyi tamamlamak :D Bu başlık altında destek veren arkadaşlar, hala kestane şekeri teklifim geçerlidir. Hepinize teşekkürler:D
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Makro ile de. (G sütunu 2 ile 20 satırlar arasına veri girdiğinizde 1. veya 3 sütunda ü harfi (OK işareti) varsa H sütununa değeri atıyor ve H1 e toplamı alıyor.)
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If süt = 7 And sat >= 2 And sat <= 20 Then
    If Cells(Target.Row, 1) = "ü" Or Cells(Target.Row, 3) = "ü" Then
        Cells(Target.Row, 8) = Cells(Target.Row, 7)
    End If
End If
Cells(1, 8).Value = WorksheetFunction.Sum(Range(Cells(2, 8), Cells(20, 8)))
End Sub
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Dosyanızı takıldığınız yerde dosyanızı burdan ya da özelden atarsanız cevap veririm. Tabi ki artık sabahleyin.
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,219
Excel Vers. ve Dili
Excel-2003 Türkçe
Çift tıklamanın gücü :)
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
If süt = 1 And sat >= 2 And sat <= 20 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If
If süt = 3 And sat >= 5 And sat <= 15 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If

End Sub

Kodlarını yerleştirerek 1. sütunda 2 ile 20. satır aralığında , 3. sütunda 5 ile 15. satır aralığında çift tıklayın. (ilk çift tıklamada onay işareti koyar , ikinci çift tıklamada onayı kaldırır.)

İyi çalışmalar.
Hocam fazla oluyorum biliyorum ama son bir şey sorsam. Şimdi benim bu şekilde doldurmam gereken aralıklar C3 ile L132 arası, yani 10 sütün ve 132 satır. Cden itibaren. Bazı sayfalarda ise öğrenci sayısı az olduğu için daha az sütuna ihtiyacım olacak. Ama satır sayısı hep sabit. Sizin gönderdiğiniz kodu her satır için ayrı ayrı kopyalayıp düzenleyecek miyim yoksa bahsettiğim aralıkları tek bir kodla yazabilir misiniz?
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Hocam fazla oluyorum biliyorum ama son bir şey sorsam. Şimdi benim bu şekilde doldurmam gereken aralıklar C3 ile L132 arası, yani 10 sütün ve 132 satır. Cden itibaren. Bazı sayfalarda ise öğrenci sayısı az olduğu için daha az sütuna ihtiyacım olacak. Ama satır sayısı hep sabit. Muygun un gönderdiği kodu her satır için ayrı ayrı kopyalayıp düzenleyecek miyim yoksa bahsettiğim aralıkları tek bir kodla yazmak mümkün mü ?
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Hocam iyi günler, artık sabah dört gözle yazacağınız cevabı beklemek üzere son bir mesaj daha atıyorum. Şöyle ki bahsi geçen tik işaretlerini 24 kişilik sınıflarda 24 sütun ve 132 satıra, 10 kişilik sınıflarda ise 10 sütun ve 132 satıra koyacağız. Dolayısıyla bize örneğin C2 den L132 ye ya da biraz daha geniş bir aralık gerekiyor. Bu durumda bu aralıkları tek bir makroyla nasıl seçebiliriz. Ayrıca excel kitabının yaklaşık 12 sayfası var, her sayfada da bu kodun aynen çalışması gerekiyor. Başka sorum yok, buna vereceğiniz cevap zannediyorum bu sefer gerçekten bu dosya ile olan işimizi sonlandırmış olacak. Şimdiden teşekkürler :)
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Dosyanızı takıldığınız yerde dosyanızı burdan ya da özelden atarsanız cevap veririm. Tabi ki artık sabahleyin.
Hocam iyi geceler, eğer hala uyanıksanız şimdi,ama değilseniz mecburen artık sabah dört gözle yazacağınız cevabı beklemek üzere son bir mesaj daha atıyorum. Şöyle ki bahsi geçen tik işaretlerini 24 kişilik sınıflarda 24 sütun ve 132 satıra, 10 kişilik sınıflarda ise 10 sütun ve 132 satıra koyacağız. Dolayısıyla bize örneğin C2 den L132 ye ya da biraz daha geniş bir aralık gerekiyor. Bu durumda bu aralıkları tek bir makroyla nasıl seçebiliriz. Ayrıca excel kitabının yaklaşık 12 sayfası var, her sayfada da bu kodun aynen çalışması gerekiyor. Başka sorum yok, buna vereceğiniz cevap zannediyorum bu sefer gerçekten bu dosya ile olan işimizi sonlandırmış olacak. Şimdiden teşekkürler
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,219
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
If süt >= 3 And süt <= 12 And sat >= 3 And sat <= 132 Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End If
End Sub


Bu kodlar C3 : L132 aralığında işlem yapar.

İyi çalışmalar.
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
Çok teşekkür ediyorum, ellerinize sağlık :) iyi geceler :)
 
Katılım
12 Kasım 2010
Mesajlar
195
Excel Vers. ve Dili
2007 türkçe
Altın Üyelik Bitiş Tarihi
14-07-2022
İyi geceler. Öncelikle hepinize teşekkürler tekrar :) Fakat tabi bir şeyler yaptıkça yeni durumlar söz konusu oluyor. Benim sizlerin engin bilgilerine danışacağım bir husus daha var yaptığım dosya ile ilgili. Şöyle ki, dosyada makroları çalıştırmak için şekil ekleden bazı şekiller ekledim. Bu şekillere de kaydettiğim makroları atadım. Ancak dosyaya girenlerin bu şekillere sağ tıklamasını dolayısıyla değişiklik yapmalarını nasıl engelleyebilirim? Sayfada genel olarak sağ tıklanmasını engelleyecek bir makro kullandım ama bu makro sayfadaki hücrelerde işe yarıyor fakat bahsettiğim şekilleri seçmeyi engellemiyor maalesef. Buna nasıl bir çözüm bulabilirim ?
 
Üst