ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[hexadesimal]

Kod: Tümünü seç

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Gorsel").Visible = True
Sheets("Gorsel").Select
[A1].Select

son = Range("c65536").End(3).Row + 1

Columns(3).Find(ListBox1.Value).Select
If ActiveCell = ListBox1.Value Then
For a = 1 To 27
Cells(ActiveCell.Row, a + 3) = ""
If Controls("Optionbutton" & a) = True Then Cells(ActiveCell.Row, a + 3) = 1
If Controls("Optionbutton" & a + 27) = True Then Cells(ActiveCell.Row, a + 3) = 2
If Controls("Optionbutton" & a + 54) = True Then Cells(ActiveCell.Row, a + 3) = 3
If Controls("Optionbutton" & a + 81) = True Then Cells(ActiveCell.Row, a + 3) = 4
Next a
MsgBox "Notlar değiştirildi"
Exit Sub
End If

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Cells(son, 3) = ListBox1.List(i, 0)
Next

For a = 1 To 27
If Controls("Optionbutton" & a) = True Then Cells(son, a + 3) = 1
If Controls("Optionbutton" & a + 27) = True Then Cells(son, a + 3) = 2
If Controls("Optionbutton" & a + 54) = True Then Cells(son, a + 3) = 3
If Controls("Optionbutton" & a + 81) = True Then Cells(son, a + 3) = 4
Next a
MsgBox "Yeni öğrenci ve notları eklendi"
Sheets("Gorsel").Select 'Sayfayı seçiyor.
ActiveWindow.SelectedSheets.Visible = False 'Seçili sayfayı gizliyor..
End Sub


Yukarıdaki kod ile form üzerindeki Optionbutton seçimlerimi ilgili sayfaya aktarıyorum. istediğim ise; OptionButtonları tek tek işaretlemek yerine, commandbuttona yazacağım bir kod ile örneğin hepsini 4 seçtirmem-işaretlemem mümkün mü?

[vardar07]

Dosyanıza uyarlarsanız olacağı umudundayım.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
For i = 1 To 4
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Next
End Sub

[Tarkan VURAL]

Dosyanıza uyarlarsanız olacağı umudundayım.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
For i = 1 To 4
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Next
End Sub

Çok yerinde bir mantık, tebrikler...

[vardar07]

Çok yerinde bir mantık, tebrikler...

Çok teşekkürler Tarkan Bey. Aklıma ilk geleni yazdım.

[hexadesimal]

Dosyanıza uyarlarsanız olacağı umudundayım.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
For i = 1 To 4
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Next
End Sub

İlginiz için teşekkürler.Ancak olmadı. Hiçbir işaretleme-seçim yapmıyor kod.

[vardar07]

Size verdiğim kod 4 adet OptionButton için örnektir. Sizin dosya yapınızı OptionButton ların numaralarını bilmediğimiz için yol gösterme amaçlı idi.Örnek dosyanızı eklemiş olsa idiniz şu anda belki konu cevaplanmış olacaktı.
Sizin kod örneğine göre olabilir mi?:

Kod: Tümünü seç

Private Sub CommandButton1_Click()
For a = 1 To 27
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Controls("OptionButton" & i+27).GroupName = i
Controls("OptionButton" & i+27) = True
Controls("OptionButton" & i+54).GroupName = i
Controls("OptionButton" & i+54) = True
Controls("OptionButton" & i+81).GroupName = i
Controls("OptionButton" & i+81) = True
Next


[hexadesimal]

4sinifexcelvba.rar

Size verdiğim kod 4 adet OptionButton için örnektir. Sizin dosya yapınızı OptionButton ların numaralarını bilmediğimiz için yol gösterme amaçlı idi.Örnek dosyanızı eklemiş olsa idiniz şu anda belki konu cevaplanmış olacaktı.
Sizin kod örneğine göre olabilir mi?:

Kod: Tümünü seç

Private Sub CommandButton1_Click()
For a = 1 To 27
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Controls("OptionButton" & i+27).GroupName = i
Controls("OptionButton" & i+27) = True
Controls("OptionButton" & i+54).GroupName = i
Controls("OptionButton" & i+54) = True
Controls("OptionButton" & i+81).GroupName = i
Controls("OptionButton" & i+81) = True
Next


Dosya ektedir

[hexadesimal]

Size verdiğim kod 4 adet OptionButton için örnektir. Sizin dosya yapınızı OptionButton ların numaralarını bilmediğimiz için yol gösterme amaçlı idi.Örnek dosyanızı eklemiş olsa idiniz şu anda belki konu cevaplanmış olacaktı.
Sizin kod örneğine göre olabilir mi?:

Kod: Tümünü seç

Private Sub CommandButton1_Click()
For a = 1 To 27
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Controls("OptionButton" & i+27).GroupName = i
Controls("OptionButton" & i+27) = True
Controls("OptionButton" & i+54).GroupName = i
Controls("OptionButton" & i+54) = True
Controls("OptionButton" & i+81).GroupName = i
Controls("OptionButton" & i+81) = True
Next


[vardar07]

Merhaba. Aşağıdaki kodu eskisi ile değiştirince 200 adet OptionButton seçili hale geliyor.

Kod: Tümünü seç

Private Sub CommandButton5_Click()
For i = 1 To 200
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Next
End Sub

[hexadesimal]

Merhaba. Aşağıdaki kodu eskisi ile değiştirince 200 adet OptionButton seçili hale geliyor.

Kod: Tümünü seç

Private Sub CommandButton5_Click()
For i = 1 To 200
Controls("OptionButton" & i).GroupName = i
Controls("OptionButton" & i) = True
Next
End Sub

Seçiyor da hocam istediğim bu değildi. Örnek dosyada da görüleceği gibi ben optionbuttonları seçenek olarak işaretliyorum. Yani hepsini 4 seç dediğimde 4.sıradaki (4 label altında yer alan sütun) optionbutonların seçilmesini istiyroyum, hepsinin değil.

[vardar07]

Sorunuzda eksiklik var. Her gruptan seçilecek OpionButton ları nasıl belirleyeceksiniz belirtmediniz afaki uğraşıyoruz. Daha açıklayıcı bilgiler ile dosyanızı eklerseniz bakalım değilse boşuna uğraşmayalım.

[veyselemre]

Seçiyor da hocam istediğim bu değildi. Örnek dosyada da görüleceği gibi ben optionbuttonları seçenek olarak işaretliyorum. Yani hepsini 4 seç dediğimde 4.sıradaki (4 label altında yer alan sütun) optionbutonların seçilmesini istiyroyum, hepsinin değil.

Kod: Tümünü seç

Private Sub Label25_Click()
    For a = 1 To 27
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub
Private Sub Label26_Click()
    For a = 28 To 54
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub
Private Sub Label27_Click()
    For a = 55 To 81
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub
Private Sub Label28_Click()
    For a = 82 To 108
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub

[hexadesimal]

Seçiyor da hocam istediğim bu değildi. Örnek dosyada da görüleceği gibi ben optionbuttonları seçenek olarak işaretliyorum. Yani hepsini 4 seç dediğimde 4.sıradaki (4 label altında yer alan sütun) optionbutonların seçilmesini istiyroyum, hepsinin değil.

Kod: Tümünü seç

Private Sub Label25_Click()
    For a = 1 To 27
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub
Private Sub Label26_Click()
    For a = 28 To 54
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub
Private Sub Label27_Click()
    For a = 55 To 81
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub
Private Sub Label28_Click()
    For a = 82 To 108
        Controls("OptionButton" & a).Value = Not Controls("OptionButton" & a).Value
    Next
End Sub

Teşekkürler. Bu sorunu çözdü.