Userforma veriyi farklı isimle çağırma

[Kavinsky]

Öncelikle tüm üstatlarıma ve arkadaşlarıma merhaba.

Yaptığım userformda Belirli bir aralıkta olan verileri Combobox aracılığı ile seçip bir hücreye yazdırıyorum. Lakin şöyle bir sıkıntım var aralıktaki bazı verileri hücrede yazıldığı şekilde değil de farklı şekilde yazma imkanı varmıdır örnek veriyorum;

Veri aralığında 8 yazıyor ise ben Combobox'ta bunu %8 olarak görmek istiyorum.
Kodlar da aşağıdaki gibidir. Şimdiden yardımlarınız için teşekkür ederim.

Private Sub ComboBox2_Change()
    If ComboBox2.Value <> "" Then TextBox6.Value = ComboBox2.Value
    ComboBox2.Style = fmStyleDropDownList
End Sub

    With Sheets("LIST")
        For Each Veri In .Range("H2:H50")
            If Veri.Value <> "" Then
                ComboBox2.AddItem Veri.Value
            End If
        Next
    End With

Sheets("MUHASEBE").Range("E" & Bos_Satir).Value = TextBox6.Text

 

[Orion1]

Buyurun.

ComboBox2.AddItem Format(Veri.Value, "%0")

 

[Kavinsky]

Evren bey öncelikle çok teşekkür ederim lakin kodu hangi bölüme yapıştırsam hata verdi. Anladığım kadarı ile bu formatını değiştiriyor. Bu yazdığınızı nereye eklersem hata vermez onu söyleme imkanınız olur ise çok makbule geçer. Bir de bunun format değil de direk değer değişen versiyonunu yapabilme imkanımız olur mu ? Mesela veride Bursa yazıyor ben comboboxta bunu Ankara olarak görmek istiyorum. İmkanı var mıdır böyle bir şeyin ? Teşekkür ederim.

 

[Orion1]

Aşağıdaki kod bloğunda ilgili yere yazın.

With Sheets("LIST")
        For Each Veri In .Range("H2:H50")
            If Veri.Value <> "" Then
                ComboBox2.AddItem Veri.Value
            End If
        Next
    End With

 

[Korhan Ayhan]

Alternatif,

Private Sub UserForm_Initialize()
    With Sheets("LIST")
        For Each Veri In .Range("H2:H50")
            Select Case Veri.Value
                Case "Bursa": X = "Ankara"
                Case "İstanbul": X = "İzmir"
                'Bu mantıkla çoğaltabilirsiniz...
                Case Else
                X = Veri.Value
            End Select
            
            If X <> "" Then
                ComboBox2.AddItem X
            End If
        Next
    End With
End Sub