koşullu yazdırma

[murat19]

merhaba
birbirinden bağımsız olarak a ve b sütunundaki veriler değerlendirilip c sütununa veri yazılacak
örnek olarak;
a1=15
b1=DM
c1=4x10
a2=15
b2=YUM
c2=2(4X6)
a3=22
b3=FKM
c3=3x16+10

cevaplarınız için şimdiden teşekkür ederim

 

[hamitcan]

Sorunuzu daha açık yazın ve küçük bir dosya ile destekleyin.

 

[murat19]

dosya ektedir,motor gücüne (c sütunu) ve tipine (e sütunu) bakarak kablo seçimi yaptıracağım. benim yazdığım (ek dosyadaki) formül sadece motor gücüne bakarak çalışmaktadır ama benim yapmak istediğim konunun başındada belirtmiş olduğum gibi c ve e sütununa göre kablo secmek
cevaplarınız için şimdiden teşekkürler

 

[hamitcan]

dosya ektedir,motor gücüne (c sütunu) ve tipine (e sütunu) bakarak kablo seçimi yaptıracağım.

Nasıl yaptıracaksınız ? Bir örnek ile açıklayın.

 

[murat19]

gücü ve tipi verilen motor için kablo kesiti seçtirmeye çalışıyorum fakat çok fazla değişken olduğundan işin içinden çıkamadım.motor gücü 15 olana kadar sadece motor gücünü dikkate almak yeterli.15 ve 15 üstündeki motorlar için motor tipi de kablo kesitinin seçiminde devreye giriyor fakat motor tipi için sadece iki olasılık var.aşağıda kısaltma olarak verdiğim yıldız üçgen(YUM) yada direkt motor(DM).
yardımlarınız için şimdiden teşekkür ederim


c2=0 ise h2=""
0<c2<4 ise h2="4x2,5"
4<=c2<9 ise h2="4x4"
9<=c2<15 ise h2="4x6"
15<=c2<18,5 ve e2="YUM" ise h2="2(4x6)"
15<=c2<18,5 ve e2="DM" ise h2="4X10"
18,5<=c2<30 ve e2="YUM" ise h2="2(4x10)"
18,5<=c2<30 ve e2="DM" ise h2="3x16+10"
30<=c2<37 ve e3="YUM" ise h2="2(3x16+10)"
30<=c2<37 v3 e3="DM" ise h2="3x25+16"
.......
.......bu liste uzayıp gidiyor

 

[hamitcan]

.......bu liste uzayıp gidiyor

Bu listenin tamamını bir sayfa içinde oluşturun. Bundan sonrası kolay olacaktır.

 

[murat19]

yapmak istediğim listenin tamamı ve gerçekleşmesi muhtemel tüm olasılıklar eklemiş olduğum dosyada.
yardımlarınız için şimdiden teşekkür ederim

 

[hamitcan]

Private Sub CommandButton1_Click()
Sheets("KABLO").Range("c1:h200").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Sayfa1").Range("d2:F2"), _
    CopyToRange:=Sheets("Sayfa1").Range("A2")
End Sub