Kod:
Sub HISSE_ISLEM_BILGILERI()
v = Range("B2:D" & Cells(Rows.Count, 2).End(3).Row).Value2
Range("H2:L" & Rows.Count).ClearContents
ReDim snc(1 To UBound(v), 1 To 5)
For a = 1 To UBound(v)
deg = Replace(v(a, 1), ".", "")
snc(a, 1) = Split(deg, " ")(1)
snc(a, 2) = Split(Split(deg, snc(a, 1))(1), "x")(0)
snc(a, 4) = Split(Split(deg, "TL")(1), " ")(1)
snc(a, 5) = v(a, 2) + v(a, 3)
snc(a, 3) = snc(a, 5) / snc(a, 2)
Next:
[H2].Resize(UBound(v), 5) = snc
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
