Combobox'da seçilen değere göre textboxların otomatik dolması

[sukruyilmaz1]

Merhabalar saygı değer Uzman arkadaşlarım.

Ekte yüklediğim excel sayfasında derdimi anlatmaya çalıştım. Combobox'daki seçilen değere göre textboxların otomatik dolmasını istiyorum. Eğer 100 seçersem yüzlük demire göre yazdığım değerlerin textbox'a gelmesini istiyorum. Eğer 80 veya 65 seçersem de ona göre karşılıklarının textboxlara gelmesini istiyorum.

Yardımcı olabilirseniz şimdiden çok teşekkür ederim.

Saygılarımla.

 

[sukruyilmaz1]

üstadlarım yarım bekliyorum.

saygılarımla

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim aralik As Range, hcr As Range, mytag As Byte
Dim nesne As Object, deg
If ComboBox1.Value = "" Then Exit Sub
If ComboBox1.Value = 100 Then
    Set aralik = Range("V3:X7")
ElseIf ComboBox1.Value = 80 Then
    Set aralik = Range("V12:X16")
ElseIf ComboBox1.Value = 65 Then
    Set aralik = Range("V21:X25")
End If

For Each hcr In aralik
    mytag = CByte(mytag) + 1
    For Each nesne In Me.Controls
        If TypeName(nesne) = "TextBox" Then
            If IsNumeric(nesne.Tag) Then
                If mytag = nesne.Tag Then
                    If mytag Mod 3 = 0 Then
                        nesne = VBA.Format(hcr.Value, "#0.00")
                    Else
                        nesne = hcr.Value
                    End If
                    Exit For
                End If
            End If
        End If
    Next nesne
Next hcr
    
End Sub