Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-01-2018, 20:48   #1
tekkral.cihan
 
Giriş: 25/02/2014
Şehir: izmir
Mesaj: 45
Excel Vers. ve Dili:
Excel Vers. ve Dili: OFFICE 2013
Varsayılan CheckBox ile ilgili yardım.

CheckBox tıkladığımda E7 hücresinden E46 hücresine kadar 1 rakamını yazdıra bilirmiyiz yardımcı olursanız sevinirim
tekkral.cihan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2018, 20:58   #2
saban20152015
 
Giriş: 06/07/2015
Mesaj: 571
Excel Vers. ve Dili:
2003
Varsayılan

if checkbox1 = true then
For a = 7 to 46
Cells(a,5) = 1
Next a
End if
__________________
İnsanlık, para karşısında bugün de değer kaybetti.
saban20152015 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2018, 21:14   #3
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,304
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Seçiliyken "1", değilken "0" yazmak için de Şaban Beyin kodunda şöyle ufak bir değişiklik uygun olabilir ...
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
    For a = 7 To 46
        Cells(a, 5) = Abs(CheckBox1 + 0)
    Next a
__________________
Kod anlatılmaz,yazılır ! 🇹🇷
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 22:20   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alternatif.
Kodlar checkboxın click olayına yazıldı.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("E7:E46").Value = 1
If CheckBox1.Value = False Then Range("E7:E46").Value = 0
End Sub
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 22:27   #5
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,304
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Ben Şaban Beyin kodunu esas almıştım.

İşin şovunu yapacaksak, bu daha kısa çözüm olur ...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CheckBox1_Click()
    Range("E7:E46").Value = Abs(CheckBox1)
End Sub
__________________
Kod anlatılmaz,yazılır ! 🇹🇷
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 22:35   #6
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
Haluk tarafından gönderildi Mesajı Görüntüle
Ben Şaban Beyin kodunu esas almıştım.

İşin şovunu yapacaksak, bu daha kısa çözüm olur ...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CheckBox1_Click()
    Range("E7:E46").Value = Abs(CheckBox1)
End Sub
Estafurullah hocam.
Siz daha iyisini bilirsiniz.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 22:54   #7
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,304
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Evren Bey;

Benim 3. mesajı yazarken amacım; Şaban Beyin 2. mesajındaki koda ufak bir ilave yaparak, orjinal soruyu soran arkadaşın daha sonra gelip de .... "Peki .... CheckBox seçili olmadığında bu kez 1 yerine 0 yazabilirmiyiz?" ihtimaline karşılık, Şaban Beyi de kırmayacak şekilde bir cevap yazmaktı.

Ben Excel'i kimseden daha iyi bildiğimi bugüne kadar iddaa etmedim, zaten değilim de .....

Sadece, bana göre çözüme kavuşturulmuş bir konuda kimseye atıfta bulunulmadan yazılmış olan mesajınıza bir refleks ile yazdım 5. mesajı.

Eğer benim 3. mesajımdan sonra, soruyu soran arkadaş herhangi bir düzeltme veya ilave istemiş olsaydı o zaman bu iilave isteğe cevap yazmak herkesin kendi bileceği bir şey olacaktı.

Umarım yazarak kendimi ifade edebilmişimdir ..... yazdığım kodlarda bile, anlatmak bana zor geldiği için veya anlatmaya kalktığımda anlaşılamadığım için mesajlarımın altındaki "imza" metnini kullanıyorum.
__________________
Kod anlatılmaz,yazılır ! 🇹🇷
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 22:58   #8
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Anladım ,hocam.
Bir yanlışlık yaptıysam affola.
Sizden çok şey öğrendim bu forumda.
Halada öğrenmeye devam ediyorum.
Yazdığınız son kodu arşivime aldım.
İyi geceler.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 23:02   #9
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,304
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Evren Bey, benden de size sevgi ve saygılar ...

.
__________________
Kod anlatılmaz,yazılır ! 🇹🇷
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 23:08   #10
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
Haluk tarafından gönderildi Mesajı Görüntüle
Evren Bey, benden de size sevgi ve saygılar ...

.
Bilmukabele hocam.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Ç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 15:42


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- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden