Dört İşlem

[OzNvl]

Hocam merhaba,

tb_stok adında textbox'ım var. Bu Textboxın içerisine miktarı sayfadan offset ile bularak çekebiliyorum ve yanına yine offset ile birimini yazdırıyorum. İstediğim şudur ki bu çektiğim verilerin yanına Eğer birim x ise miktarı 5 ile Çarp birim y ise 2 ile çarp birim z ise 1 ile çarp diyip bu koşula uygun yazdırmak.
Umarım anlatabilmişimdir. Yardımlarınız için şimdiden teşekkürler

 

[Mdemir63]

Selamlar
Örnek dosya ile sorunuzu desteklerseniz çok daha çabuk yanıtlar alırsınız.

 

[OzNvl]

Selamlar
Örnek dosya ile sorunuzu desteklerseniz çok daha çabuk yanıtlar alırsınız.

Hocam merhaba.

Kodları paylaşıyorum.

Private Sub cb_urun_Change()
UrunBul


On Error Resume Next

With Sheets("GenelStok")
For Each Bul In .Range("C2:C" & Sheets("GenelStok").Range("C65536").End(3).Row)
If CStr(Bul.Value) = CStr(cb_urun.Value) Then
tb_urunkodu.Value = Bul.Offset(0, -1).Value
tb_urunbirimi.Value = Bul.Offset(0, 1).Value
tb_stok.Value = Bul.Offset(0, 4).Value & " " & Bul.Offset(0, 1).Value
End If
Next Bul
End With
End Sub



tb_stok Textbox'ına Miktar ve Birimi GenelStok Sayfasından Çekebiliyorum. Yanına Parantez içerisinde miktar ile verdiğim koşulu sağlayacak şekilde çarıp parantez içine yazmasını istiyorum. şu şekilde yani

5m3 (25 Adet)
2m2 (4 Adet)
1 Torba (1 Torba)