Merhaba, VBA üzerinden bir converter yapmak istiyorum.Bunu da listbox yardımıyla birim seçtirip ardından textbox yardımıyla miktar alıp daha sonra da msgbox yardımıyla kullanıcıya bildirmek istiyorum. Örneğin kilometreyi metreye dönüştürecek bir converter için aşağıdaki formülü yazdım. Fakat bir türlü textbox ile aldığım miktar değerini, değişkene atayamıyorum.(Add watch hep 0 gösteriyor.) Dolayısıyla hep sonucum 0 oluyor. Aşağıdaki kodu inceleyip çözüm önerilerinizi iletirseniz sevinirim. İyi çalışmalar
Private Sub cmdcevir_Click()
'Call UserForm_initialize
Dim lstbubirimden As String
Dim lstbubirime As String
Dim sonuc As Double
Dim miktar As Double
miktar = txtmiktar.Value
If lstbubirimden = "Kilometre" And lstbubirime = "Metre" Then
sonuc = miktar * 1000
End If
MsgBox (sonuc)
Exit Sub
End Sub
Private Sub cmdcevir_Click()
'Call UserForm_initialize
Dim lstbubirimden As String
Dim lstbubirime As String
Dim sonuc As Double
Dim miktar As Double
miktar = txtmiktar.Value
If lstbubirimden = "Kilometre" And lstbubirime = "Metre" Then
sonuc = miktar * 1000
End If
MsgBox (sonuc)
Exit Sub
End Sub