KOD BULMA

[ocamsul]

Arkadaşlar merhaba. benim bir sorum olacak yardım ederseniz sevinirim şimdi bir user form yapalım bu user form üzerinde bir tane textBox olsun bu kutuya girdiğimiz bir değer yani rakam ara butonuna bastığımızda form üzerindeki label de bu rakamın karşılığına gelen tutarı otomatik olarak bize göstersin istiyorum. yardım ederseniz sevinirim arkadaşlar. kolay gelsin.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:1e12ed69cb]Private Sub CommandButton1_Click()
On Error Resume Next
Label3.Caption = Round(Cells([b1:b65536].Find(TextBox1.Value).Row, 6).Value,2)
End Sub[/vb:1:1e12ed69cb]

Not:Aranacak kodu textboxa "." noktasız olarak yazın.

 

[ocamsul]

oluyor ama tam olarak değil çünkü A sütununda bulunan diğelimki 14 rakamını girdiğimde aynı sıraya gelen F sütunundaki karşılık belirmesi gerekli. teşekkür ederim.

 

[Haluk]

Koddaki b1:b65... yazan yeri a1:a65... diye değiştirin.

 

[ocamsul]

aşağıda bir label daha kullanmaya çalıştım ama olmadı nerede hatam var arkadaşlar.

Private Sub CommandButton1_Click()
On Error Resume Next
Label3.Caption = Round(Cells([b1:b65536].Find(TextBox1.Value).Row, 6).Value, 2)
Label4.Caption = Round(Cells([d1:d65536].Find(TextBox1.Value).Row, 6).Value, 2)
End Sub

 

[Ongun]

Ekteki örneği incelermesiniz.

 

[Levent Menteşoğlu]

Sn Raider sorunuzun tam cevabını vermiş, kodu aşağıdaki gibi düzenlemeniz yeterlidir.

[vb:1:9f79a031b0]Private Sub CommandButton1_Click()
On Error Resume Next
Label3.Caption = Round(Cells([a1:a65536].Find(TextBox1.Value).Row, 6).Value,2)
End Sub [/vb:1:9f79a031b0]

 

[ocamsul]

Private Sub CommandButton1_Click()
On Error Resume Next
Label3.Caption = Round(Cells([b1:b65536].Find(TextBox1.Value).Row, 6).Value, 2)
Label4.Caption = Round(Cells([d1:d65536].Find(TextBox1.Value).Row, 6).Value, 2)
End Sub

BU KOD NİYE ÇALIÞMADI ANLAMADIM ARKADAÞLAR. yapmak istediğim label 3 de fiyatı almak, label 4 de ise işlemin adını almaktı. ama label4 çalışmıyo. ne yapacam?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:9bbb5cd398]Private Sub CommandButton1_Click()
On Error Resume Next
Label3.Caption = Round(Cells([b1:b65536].Find(TextBox1.Value).Row, 6).Value, 2)
Label4.Caption = Cells([b1:b65536].Find(TextBox1.Value).Row,3).Value
End Sub
[/vb:1:9bbb5cd398]

 

[ocamsul]

leventm çok teşekkür ederim. ayrıca sabrınız içinde. kolay gelsin.