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 19-05-2017, 10:28   #1
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 668
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan Kodda Düzenleme

Herkese merhaba,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
If ComboBox2 = "" Or ComboBox1 = "" Then Exit Sub
Set S = Sheets(ComboBox1.Value)
kişi = S.Cells(ComboBox2.ListIndex + 4, 2).Value
kişisat = ComboBox2.ListIndex + 4
If ComboBox1.Value = "DAVRANIŞ" Then
    sutsayısı = 42
Else
    sutsayısı = WorksheetFunction.Match("TOPLAM", S.Range("3:3"), 0) - 3
End If

For lbl = 1 To sutsayısı
    a = (lbl - 1) * 3 + 1: aa = (lbl - 1) * 3 + 3
            If UserForm20.Controls("OptionButton" & a) = False And _
            UserForm20.Controls("OptionButton" & a + 1) = False And _
            UserForm20.Controls("OptionButton" & a + 2) = False Then
            
            cevap = 0
        Else
            With UserForm20
                If .Controls("OptionButton" & a) = True Then cevap = 1
                If .Controls("OptionButton" & a + 1) = True Then cevap = 2
                If .Controls("OptionButton" & a + 2) = True Then cevap = 3
            End With
        End If
S.Cells(kişisat, lbl + 2) = cevap
Next
ComboBox2 = ""
For opt = 1 To sutsayısı * 3
  
    With UserForm20
      
        .Controls("Optionbutton" & opt) = False
    End With
Next

MsgBox "Seçilen " & ComboBox1.Value & " dersi için;" & vbLf & _
        kişi & " satırına notlar kaydedildi." & vbLf & vbLf & _
        "Yeni bir öğrenci seçerek işleme devam edebilirsiniz.."
End Sub
Bu kodlar ile aşağıdaki ekteki Userform üzerinde bulunan optionbuttonlar ile veri kaydediyorum.İstediğim ComboBox2 seçimini de ilgili sayfaya (B Sütununa aktarmak).Bu kodda veri aktarımı 4.satır 2.sütundan sonra başlıyor, yeni durumda ise 4. satır ve 1. sütundan itibaren seçili öğrenci adı ile optionbuttonlardaki verilerin aktarılmasını istiyorum.
Eklenmiş Resimler
Dosya Türü: jpg Ekran Alıntısı.JPG (141.7 KB, 5 Görüntülenme)
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-05-2017, 10:50   #2
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 668
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Sorun çözüldü. Yazmakta acele etmişim sanırım ))
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   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 11:10


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden