Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 04-10-2017, 21:54   #1
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan Form denetimleri onay kutusu

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
cem116 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:00   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,037
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Öğ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.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:17   #3
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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
cem116 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:20   #4
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,825
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

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.
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:30   #5
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Ç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?
cem116 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:33   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

İşlem normalde ü harfi koyuyor. Eğer ü harfi varsa değer say şeklinde formülize edebilirsiniz.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:34   #7
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Öğ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.
Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
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
cem116 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:37   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

H hücresine EĞER(A6="ü";G6;"") formülünü ekleyin işleminiz yapılır.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:43   #9
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
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
Ç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 Bu başlık altında destek veren arkadaşlar, hala kestane şekeri teklifim geçerlidir. Hepinize teşekkürler
cem116 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-10-2017, 22:45   #10
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:03


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden