[Yardım]  Seçilen Optionbutona Göre Excel Hücresine Değer Atama

Seçenek düğmesi

Seçilen Optionbutona Göre Excel Hücresine Değer Atama

İleti#1)  teknisyen7777 » 29 Eyl 2014 18:19

Merhaba,
Ekte gönderdiğim dosyadaki UserForm2'de ayın günlerine göre puantaj için hazırladığım optionbutonlar var.
Hergün için 6 buton var. Örnek: Userform2 de, ayın 1. gününde 1. butonu seçtiğimde sayfa 2'de C5 hücresine "1" değeri gelmeli, 2. butonu seçtiğimde "A" değeri gelmeli, 3. butonu seçtiğimde "B" ve aynı şekilde 6 buton için de C5 hücresine "1", "A", "B", "C", "D", "E" değerleri gelmeli. Umarım anlatabilmişimdir. Bu mümkün mü?
Kullanıcı avatarı
teknisyen7777
Yeni Başlamış
 
Kayıt: 26 Eyl 2014 17:18
Meslek: kamu
Yaş: 41
İleti: 62
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Seçilen Optionbutona Göre Excel Hücresine Değer Atama

İleti#2)  teknisyen7777 » 29 Eyl 2014 18:21

dosyayı eklemeyi unutmuşum. ekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
teknisyen7777
Yeni Başlamış
 
Kayıt: 26 Eyl 2014 17:18
Meslek: kamu
Yaş: 41
İleti: 62
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Seçilen Optionbutona Göre Excel Hücresine Değer Atama

İleti#3)  Ali ÖZ » 29 Eyl 2014 18:34

Merhaba,
Bu kodları butonlara yazabilirsiniz.Ya da butonlar için de döngü yapılabilir.Çıkmaz gerektiğinden fazla bakamıyorum.

Kod: Tümünü seç
Private Sub OptionButton1_Click()
Set s2 = Sheets("sayfa2")
For i = 3 To 33
If Me.Frame1.Caption = s2.Cells(4, i) Then
Cells(5, i) = 1
End If
Next

End Sub

Private Sub OptionButton2_Click()
Set s2 = Sheets("sayfa2")
For i = 3 To 33
If Me.Frame1.Caption = s2.Cells(4, i) Then
Cells(5, i) = "A"
End If
Next
End Sub
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Seçilen Optionbutona Göre Excel Hücresine Değer Atama

İleti#4)  teknisyen7777 » 29 Eyl 2014 19:14

Bu işlemi hergün için yapmam gerekiyor. Userform2 de 30 günlük bir tablo var. Hergün için 6 OptionButton var (işe geldi, gelmedi, haftalık izin, yıllık izin vs. gibi) Hangi butonu seçersem, ona karşılık Sayfa2 de ilgili hücreye (Userformda ayın kaçındaki buton işaretlenmişse o güne ait hücre) istediğim değerin gelmesini istiyorum (işe geldi butonu işaretlenirse "1" gelmedi işaretlenirse "A" vd.) Ve kaydedip kapamak tabii.
Kullanıcı avatarı
teknisyen7777
Yeni Başlamış
 
Kayıt: 26 Eyl 2014 17:18
Meslek: kamu
Yaş: 41
İleti: 62
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe