Urunu miktarına göre sutuna atama

[gokay5959]

Merhabalar. Ürünün adını makroda miktarına gore yazdırmak istiyorum mesele 5 ise a sütununa 35 ise C sütununa falan, her eklenen ürün diğerinin bi altına gidicek şekilde olmalı. şimdiden teşekkürler

Ekli dosyayı görüntüle 155227

 

[gokay5959]

yardım lazım arkadaşlar.. bi el atın lutfen.+++

 

[Orion1]

merhaba.
Örnek dosya eklerseniz daha çabuk yardım alırsınız kanaatindeyim.
Kolay gelsin.

 

[gokay5959]

merhaba.
Örnek dosya eklerseniz daha çabuk yardım alırsınız kanaatindeyim.
Kolay gelsin.

Ekli dosyayı görüntüle urunlistele.xlsm Buyrun

 

[YUSUF44]

Commandbuttonun kod bölümüne aşağıdaki kodları yapıştırınız:

Private Sub CommandButton1_Click()
If TextBox1.Value > 75 Or TextBox1.Value < 0 Then
uyarı = MsgBox("Sınır değerlerin dışında giriş yapılamaz!", vbCritical)
End If
If TextBox1.Value < 22 Then
a = Sheets("sayfa1").Cells(Rows.Count, 1).End(3).Row + 1
Cells(a, "a") = TextBox2.Value
Else
If TextBox1.Value < 35 Then
b = Sheets("sayfa1").Cells(Rows.Count, 2).End(3).Row + 1
Cells(b, "b") = TextBox2.Value
Else
If TextBox1.Value < 43 Then
c = Sheets("sayfa1").Cells(Rows.Count, 3).End(3).Row + 1
Cells(c, "c") = TextBox2.Value
Else
If TextBox1.Value < 55 Then
d = Sheets("sayfa1").Cells(Rows.Count, 4).End(3).Row + 1
Cells(d, "d") = TextBox2.Value
Else
If TextBox1.Value < 66 Then
e = Sheets("sayfa1").Cells(Rows.Count, 5).End(3).Row + 1
Cells(e, "e") = TextBox2.Value
Else
If TextBox1.Value <= 75 Then
f = Sheets("sayfa1").Cells(Rows.Count, 6).End(3).Row + 1
Cells(f, "f") = TextBox2.Value
Else
End If
End If
End If
End If
End If
End If
End Sub

 

[gokay5959]

Çok teşekkür ettim Ustam eline sağlık.