Excel Kodu için Yardım

[Samet Yiğit]

Merhaba herkese forumda yeniyim.Şöyle bir koda ihtiyacım var:
Kodu dara için kullanacağım, A1 de adet yazacak A2 de kasa tipi(her kasanın kendine özgü darası var mesela PTV kasanın 1kg PIK kasanın 2kg)birde toplam dara yeri olacak ordada A1*A2 olucak.Yanlız a2 de PTV yazıyor ise A1*1.5 yapıcak eğer a2 de PİK yazıyorsa A1*2 yapıcak bu kodu yazabilecek varmı arkadaşlar ?


Yardımcı olabilirseniz çok iyi olur şimdiden teşekkürler.Yanlış anlattığım biyer varsa sorun söyliyim.

 

[dEdE]

Merhaba,
Forumumuza hoş geldiniz.
Sorunuzu yanlış bölüme yazmışsınız. Bu tür soruları Makro-VBA Soruları bölümüne sormalısınız.
Aşağıdaki kodu dener misiniz?

Sub Dara()
ss = Cells(Rows.Count, "A").End(3).Row
    For i = 2 To ss
        If Cells(i, 2) = "PTV" Then
            Cells(i, 3) = Cells(i, 1) * 1.5
        Else
            Cells(i, 3) = Cells(i, 1) * 2
        End If
    Next i
End Sub