hangi combobox

[natura]

arkadaşlar for next ile i. comboboxın değerini alacağım. ancak comboboxi.value nasıl yazılır bulamadım. yardımcı olursanız sevinir dua ederim.

 

[dEdE]

Merhaba,
Bu mudur?

Private Sub CommandButton1_Click()
    For i = 1 To 3
       MsgBox Controls("ComboBox" & i).Value
    Next i
End Sub

 

[natura]

teşekkür ederim sayın DEDE, comboboxi.value = 1 yazmak istersem nasıl yazarım

 

[Necdet]

Merhaba,

Alternatif olsun.

Private Sub CommandButton1_Click()
    
    Dim Nesne   As Object
    
    For Each Nesne In UserForm1.Controls
        If TypeOf Nesne Is msforms.ComboBox Then
            MsgBox Nesne.Name & "'in Değeri : " & Nesne.Value
        End If
    Next Nesne
    
End Sub

 

[dEdE]

Merhaba,
Sorudan anladığım kadaıyla,

 Controls("ComboBox" & i).Value = 1

 

[natura]

teşekkür eder, sağlık ve başarılar dilerim.