Site hosted by Angelfire.com: Build your free website today!

My Home Page

My Favorite things about Angelfire.

My Favorite Web Sites

Angelfire - Free Home Pages
Free Web Building Help
Angelfire HTML Library
HTML Gear - free polls, guestbooks, and more!

****************************** Sub BIRAGBUL() Range("C3").Select For X = 3 To 400 A = Selection.Value If A = "" Then Exit Sub If Mid$(A, 1, 1) = "#" Then B = 7.85 If A = "M12*30" Then B = 65.44 / 1000 If A = "M12*30K" Then B = 76.55 / 1000 If A = "M12*35" Then B = 69.94 / 1000 If A = "M12*35K" Then B = 81.05 / 1000 If A = "M12*40" Then B = 74.34 / 1000 If A = "M12*40K" Then B = 85.45 / 1000 If A = "M12*45" Then B = 78.74 / 1000 If A = "M12*45K" Then B = 89.85 / 1000 If A = "M12*50" Then B = 83.24 / 1000 If A = "M12*50K" Then B = 94.35 / 1000 If A = "M14*30" Then B = 100.24 / 1000 If A = "M14*30K" Then B = 113.8 / 1000 'ATMACA If A = "M14*35" Then B = 105.24 / 1000 If A = "M14*35K" Then B = 118.8 / 1000 If A = "M14*40" Then B = 110.24 / 1000 If A = "M14*40K" Then B = 123.8 / 1000 If A = "M14*45" Then B = 115.24 / 1000 If A = "M14*45K" Then B = 128.8 / 1000 If A = "M14*50" Then B = 120.24 / 1000 If A = "M14*50K" Then B = 133.8 / 1000 If A = "M14*55" Then B = 125.24 / 1000 If A = "M14*55K" Then B = 138.8 / 1000 If A = "M16*35" Then B = 130 / 1000 If A = "M16*35K" Then B = 146.4 / 1000 If A = "M16*40" Then B = 138 / 1000 If A = "M16*40K" Then B = 154.4 / 1000 If A = "M16*45" Then B = 146 / 1000 If A = "M16*45K" Then B = 162.4 / 1000 If A = "M16*50" Then B = 154 / 1000 If A = "M16*50K" Then B = 170.4 / 1000 If A = "M16*55" Then B = 164 / 1000 If A = "M16*55K" Then B = 180.4 / 1000 If A = "M16*60" Then B = 170 / 1000 If A = "M16*60K" Then B = 186.4 / 1000 If A = "M16*65" Then B = 177 / 1000 If A = "M16*65K" Then B = 193.4 / 1000 If A = "M16*70" Then B = 185 / 1000 If A = "M16*70K" Then B = 201.4 / 1000 If A = "M16*75" Then B = 193 / 1000 If A = "M16*75K" Then B = 209.4 / 1000 If A = "M16*80" Then B = 201 / 1000 If A = "M16*80K" Then B = 217.4 / 1000 If A = "M16*160" Then B = 328 / 1000 If A = "M16*160K" Then B = 344.4 / 1000 If A = "M20*40" Then B = 241 / 1000 If A = "M20*40K" Then B = 263.5 / 1000 If A = "M20*45" Then B = 253 / 1000 If A = "M20*45K" Then B = 275.5 / 1000 If A = "M20*50" Then B = 266 / 1000 If A = "M20*50K" Then B = 288.5 / 1000 If A = "M20*55" Then B = 278 / 1000 If A = "M20*55K" Then B = 300.5 / 1000 If A = "M20*60" Then B = 291 / 1000 If A = "M20*60K" Then B = 313.5 / 1000 If A = "M20*65" Then B = 303 / 1000 If A = "M20*65K" Then B = 337.5 / 1000 If A = "M24*60" Then B = 453.7 / 1000 If A = "M24*70" Then B = 488.7 / 1000 If A = "M24*65" Then B = 470.7 / 1000 If A = "100*100*10H" Or A = "100*100*10" Then B = 15 If A = "120*120*15H" Or A = "120*120*15" Then B = 28.6 If A = "150*150*14H" Or A = "150*150*14" Then B = 31.6 If A = "150*150*16H" Or A = "150*150*16" Then B = 35.9 If A = "150*150*18H" Or A = "150*150*18" Then B = 40.1 If A = "150*150*15H" Or A = "150*150*15" Then B = 33.8 If A = "180*180*16H" Or A = "180*180*16" Then B = 43.5 If A = "200*200*16H" Or A = "200*200*16" Then B = 48.5 If A = "200*200*18H" Or A = "200*200*18" Then B = 54.3 If A = "200*200*20H" Or A = "200*200*20" Then B = 59.9 If A = "180*180*15H" Or A = "180*180*15" Then B = 40.9 If A = "140*140*12H" Or A = "140*140*12" Then B = 25.5 If A = "180*180*18H" Or A = "180*180*18" Then B = 48.6 If A = "100*100*8H" Or A = "100*100*8" Then B = 12.2 If A = "100*100*12H" Or A = "100*100*12" Then B = 17.8 If A = "110*110*10H" Or A = "110*110*10" Then B = 16.6 If A = "120*120*11H" Or A = "120*120*11" Then B = 19.9 If A = "120*120*12H" Or A = "120*120*12" Then B = 21.6 If A = "120*120*13H" Or A = "120*120*13" Then B = 23.3 If A = "45*45*4H" Or A = "45*45*4" Then B = 2.74 If A = "50*50*4H" Or A = "50*50*4" Then B = 3.06 If A = "50*50*5H" Or A = "50*50*5" Then B = 3.77 If A = "65*65*6H" Or A = "65*65*6" Then B = 7.34 If A = "80*80*6H" Or A = "80*80*6" Then B = 7.34 If A = "45*45*5H" Or A = "45*45*5" Then B = 3.38 If A = "55*55*5H" Or A = "55*55*5" Then B = 4.18 If A = "60*60*4H" Or A = "60*60*4" Then B = 3.7 If A = "60*60*6H" Or A = "60*60*6" Then B = 5.42 If A = "65*65*7H" Or A = "65*65*7" Then B = 6.83 If A = "70*70*5H" Or A = "70*70*5" Then B = 5.37 If A = "70*70*6H" Or A = "70*70*6" Then B = 6.38 If A = "70*70*7H" Or A = "70*70*7" Then B = 7.38 If A = "75*75*6H" Or A = "75*75*6" Then B = 6.87 If A = "80*80*7H" Or A = "80*80*7" Then B = 8.49 If A = "80*80*8H" Or A = "80*80*8" Then B = 9.63 If A = "80*80*10H" Or A = "80*80*10" Then B = 11.9 If A = "90*90*8H" Or A = "90*90*8" Then B = 10.9 If A = "40*40*4H" Or A = "40*40*4" Then B = 2.42 If A = "75*75*5H" Or A = "75*75*5" Then B = 6.87 If A = "75*75*7H" Or A = "75*75*7" Then B = 7.94 If A = "60*60*5H" Or A = "60*60*5" Then B = 4.57 If A = "65*65*5H" Or A = "65*65*5" Then B = 5.91 ActiveCell.Offset(0, 5).Range("A1").Select Selection.Value = B YER = "I" & X DEGER = "=D" & X & "*" & "E" & X & "*" & "H" & X If Mid$(A, 1, 1) = "#" Then DEGER = DEGER & "*" & "G" & X & "*" & "F" & X & "/1000000" Else DEGER = DEGER & "/" & "1000" If Mid$(A, 1, 1) = "M" Then DEGER = "=E" & X & "*" & "H" & X Range(YER).Formula = DEGER ActiveCell.Offset(1, -5).Range("A1").Select B = 0 Next End Sub ****************************** Thank you for visiting my page at Angelfire. Please come back and visit again!