Combobox değeriyle hücredeki veriyi çarpma

[okanbay44]

merhabalar excell vba de yeniyim yardımcı olursanız sevinirim. bir hesaplama programı yapıyorum. combobox tan seçtiğim sayı ile textbox1'e excell den çekerek aldıgım sayının çarpımını textbox 1 de çarpılmış halini gören bir kod yazmak istiyorum nası yapabilirim?

 

[Ömer]

Merhaba,

Aramıza hoş geldiniz.
İstediğiniz bu mu?

Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1 * Range("A1")
End Sub

Not: Soru başlıklarını konunun içeriğini ifade edecek şekilde belirlemeye özen göstermenizi rica ederim.

 

[okanbay44]

odemeorani = CDbl(TxtOdemeOranı)
odemeoranigun = CDbl(CmdGun)
aylikyapilanodemeorani = odemeorani * odemeoranigun
TxtOdemeOranı = FormatCurrency(CDbl(aylikyapilanodemeorani))
HOŞBULDUK ÇOK TEŞEKKÜR EDİYORUM. İLGİNİZ İÇİN
odemeoranı ile odemeorani gün olarak tanımladım yukarıdaki gibi tanımladım.ancak
txtodemeoranina veri kaynağı çektim excellden oraya çektiğim sayı ile cmd(combobox) ta bir sayı seçtim. çarpma işlemi formülü uyguladım ancak textbox içerisine çektiği sayı yazıyor sadece

 

[Ömer]

Tam kodu yazar mısınız. Mümkünse örnek dosya ekleyerek yapılmak isteneni detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

 

[okanbay44]

https://dosya.co/4nn9lseh1i43/Adsız.png.html

 

[Ömer]

Sadece formun resmin eklemişsiniz. Küçük bir excel örnek dosyası eklemenizi rica etmiştim.

Şu şekilde ilerleyelim.

Private Sub UserForm_Initialize()
    TxtOdemeOranı = Range("A1")
End Sub

Yukarıdaki kodlarla xtOdemeOranı A1 deki veriyi aldığınızı varsayarsak.



Aşağıdaki kodlar ile CmdGun veri seçtiğinizde istediğiniz olur.

Private Sub CmdGun_Change()
    If CmdGun = "" Then Exit Sub
    odemeorani = CDbl(TxtOdemeOranı)
    odemeoranigun = CDbl(CmdGun)
    aylikyapilanodemeorani = odemeorani * odemeoranigun
    TxtOdemeOranı = FormatCurrency(CDbl(aylikyapilanodemeorani))
End Sub

 

[okanbay44]

MERHABA HOCAM ÖNCEKİ KODLAR İÇİN ÇOK TEŞEKKÜR EDERİM SİZDEN BİR RİCAM DAHA OLACAK
AŞAĞIDAKİ TEXTBOX İSİMLERİ
EKTEKİ RESİMDE Kİ GÖRSELDE DE GOSTERMEK İSTEDİM. TEXTBOXLARA VERİYİ ÇEKTİM AŞAĞIDAKİ FORMÜLÜ NASIL YAZABİLİRİM EXCELL VBA'DA

EĞER
ENFLASYON ORANI > ASGERİ ÜCRET ARTIŞ ORANIN'DAN BÜYÜK İSE
AYLIK HİZMET BEDELİ* ENFLASYON ARTIŞ ORANI
AYLIK MHİZMET BEDELİ * ASGERİ ÜCRET ARTIŞ ORANI

 

[okanbay44]

MERHABA HOCAM ÖNCEKİ KODLAR İÇİN ÇOK TEŞEKKÜR EDERİM SİZDEN BİR RİCAM DAHA OLACAK
AŞAĞIDAKİ TEXTBOX İSİMLERİ
EKTEKİ RESİMDE Kİ GÖRSELDE DE GOSTERMEK İSTEDİM. TEXTBOXLARA VERİYİ ÇEKTİM AŞAĞIDAKİ FORMÜLÜ NASIL YAZABİLİRİM EXCELL VBA'DA

EĞER
ENFLASYON ORANI > ASGERİ ÜCRET ARTIŞ ORANIN'DAN BÜYÜK İSE
AYLIK HİZMET BEDELİ* ENFLASYON ARTIŞ ORANI
AYLIK MHİZMET BEDELİ * ASGERİ ÜCRET ARTIŞ ORANI

tufe2010 = CDbl(TxtTUFE2010) ' ENFLASYON ARTIŞ ORANI HESAPLAMASI YAPTIĞIM KOD
tufe2021 = CDbl(TxtTUFE2021)
yiufe2010 = CDbl(TxtYİUFE2010)
yiufe2021 = CDbl(TxtYİUFE2021)
enflasyonartisorani = (tufe2021 + yiufe2021 / 2) / (tufe2010 + yiufe2010 / 2)
TxtEAO = FormatCurrency(CDbl(enflasyonartisorani))

asgariucret2010 = CDbl(TxtAsgariUcret2010) 'ASGARİ ÜCRET ARTIŞ ORANI HESAPLAMASI YAPTIĞIM KOD
asgariucret2021 = CDbl(TxtAsgariUcret2021)
asgariucretartisorani = asgariucret2010 / asgariucret2021
TxtAUArtisOrani = FormatCurrency(CDbl(asgariucretartisorani))

 

[Ömer]

Doğru anladıysam aşağıdaki gibi bir yapı kurabilirsiniz.

If enflasyonartisorani > asgariucretartisorani Then
    'şart sağlarsa kodlar
Else
    'şart sağlamazsa kodlar
End If