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, 11:28   #1
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
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, 11:50   #2
hexadesimal
Destek Ekibi
 
hexadesimal kullanıcısının avatarı
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 681
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 13:02


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 - 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- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden