label kodunda hata

[zulfuernek]

TextBox93 = WorksheetFunction.VLookup(ComboBox1, Range("B3:J12"), 2, 0)

Bu kod textbox için combobox 1 deki değere göre düşey arama yapıyor. ve sorun yok fakat aynı fomksiyonu label için iuyarladığımda olmuyor hata veriyor. bilenler varsa hata nerede acaba

Label93 = WorksheetFunction.VLookup(ComboBox1, Range("B3:J12"), 2, 0)

 

[Orion1]

deneyiniz.

Label93[B][COLOR="Red"].caption[/COLOR][/B] = WorksheetFunction.VLookup(ComboBox1, Range("B3:J12"), 2, 0)

 

[zulfuernek]

Orion hocam emeğine sağlık çok teşekkür ederim. selametle

 

[Orion1]

Orion hocam emeğine sağlık çok teşekkür ederim. selametle

Rica ederim.
İyi çalışmalar.

 

[zulfuernek]

emeğinize sağlık. Orion hocam 2 konu daha paylaştım bu konuda fikriniz varmı.

ayrıca size bir sorum daha olacak.

label1, textbox1 textbox2 var userformda

textbox1 e yazdığımı label1 deki değerle ve 100 ile çarpacak
textbox2 ye yazdığım değeride yine label 1 deki değerle çarpıp bu iki çarpımların toplamını farklı bir labele yazacak.

örneğin:

Label2 = (Textbox1*Label1*100)+(Textbox2*Label1*1)

böyle

 

[Orion1]

Linkteki dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub TextBox1_Change()
On Error Resume Next
Label2.Caption = (CDbl(TextBox1.Value) * CDbl(Label1.Caption) * 100) + _
        (CDbl(TextBox2.Value) * CDbl(Label1.Caption) * 1)
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
Label2.Caption = (CDbl(TextBox1.Value) * CDbl(Label1.Caption) * 100) + _
        (CDbl(TextBox2.Value) * CDbl(Label1.Caption) * 1)
End Sub


Private Sub UserForm_Initialize()
Label1.Caption = 1
End Sub

 

[zulfuernek]

Orion hocam aynende bu istediğim. emeğine ellerine sağlık. çok teşekkür ederim

 

[Orion1]

Orion hocam aynende bu istediğim. emeğine ellerine sağlık. çok teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[zulfuernek]

Orion hocm bişey sorucam çok oldum biliyorum )

son kısma yadığımız

Private Sub UserForm_Initialize()
Label1.Caption = 1
End Sub

formülü ne için.

bu kodu tüm labeller için eklemem gerekli sanırım değilmi yani 10 labele bu işlemi yapıyorsam 10 tane bu kodu eklemem lazım

 

[zulfuernek]

pardon şimdi farkettim. label 1 in alacağğı değer. ok hocam. teşekkür ederim.

 

[zulfuernek]

Orion hocam binlik ayracını nasıl yapabilirim peki labellerdeki?

 

[zulfuernek]

hocam haleettim teşekkür ederim çok teşekkür ediyorum sağolun