4 combobox a bağlı olarak textbox a değer atamak?

[mechanical007]

Sayın COST_CONTROL,

dosyam ektedir.

 

[Korhan Ayhan]

Selamlar,

SONUÇ isimli makroyu aşağıdaki şekilde değiştirip denermisiniz.

Sub SONUÇ()
    On Error Resume Next
    If txtCarpan = "" Then
    txtSonuc = ""
    Else
    txtSonuc = Format(Round(Replace(CDbl(txtSlicePrice) * CDbl(txtCarpan), ".", ","), 2), "#,##0.00")
    End If
End Sub

 

[mechanical007]

Öncelikle ilginize teşekkür ederim.

ekteki userform resminde göreceğiniz gibi sayının çarpanla ilgili kısmı çalışıyor. Fakat standart renk dışında bir renk seçildiğinde onayla butonuna basınca ekteki hatayı veriyor.

Bunu ben bir türlü çözemedim.

Neden kaynaklanıyor acaba. Kod çakışması mı var? ( böyle bir tabir kullanılır mı bilmiyorum )

Bir de ekteki fax sayfasından göreceğiniz gibi dilim fiyatı, metin olarak saklanan sayı hatası veriyor. Bunu nasıl kod sayfasında düzeltebiliriz?

Yardımcı olursanız çok memnun olurum.

Saygılarımla.

 

[mechanical007]

Sayın COST_CONTROL,

Müsait olduğunuzda ilgilenirseniz memnun olurum. Aceleci davranıyorum kusuruma bakmazsınız umarım.

Saygılarımla.

 

[mechanical007]

Sayın COST_CONTROL,

Olmuyor mu?

 

[mechanical007]

Arkadaşlar,

Ben çözdüm.

Emeği geçen herkese teşekkürler.

Saygılarımla.