bir hücredeki rakamları başka hücrelere aktarmak

[atillauygun]

arkadaşlar kusura bakmayın çok soruyorum ama şuan bir rapora çalışıyorum ondan bu rapor normalde 1 günümü alıyor.

8.Stok Özel Kod : AIRWICK AQUA MIST (Çıkan: 64,00 , Birim Maliyet:106,48 , Tutar: 219,87 )

şimdi bu b hücresinde bulunan metinden çıkan rakamını m hücresine birim maliyetindeki rakamı n hücresine tutar yazanıda o hücresine yazdırmak istiyorum. mümkünmüdür

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Ayristir()
 
    Dim deg1 As String, deg2 As String, deg3 As String, i As Long
 
    deg1 = "Çıkan:"
    deg2 = "Birim Maliyet:"
    deg3 = "Tutar:"
    
    On Error Resume Next
    Range("M2:O" & Rows.Count).ClearContents
    
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        Cells(i, "M") = Split(Split(Cells(i, "B"), deg1)(1), ", ")(0) + 0
        Cells(i, "N") = Split(Split(Cells(i, "B"), deg2)(1), ", ")(0) + 0
        Cells(i, "O") = Split(Split(Cells(i, "B"), deg3)(1), ")")(0) + 0
    Next i
 
End Sub

.

 

[atillauygun]

çok teşekkür ederim işlemi sadece tek bir satıra yapıyor ve sadece tutar kısmını yani o hücresini aktardı. sanırım bir yerinde sorun var ama bulamadım

 

[atillauygun]

sanırım çözdüm teşekkürler

Sub Ayristir()

Dim deg1 As String, deg2 As String, deg3 As String, i As Long

deg1 = "Çıkan:"
deg2 = "Birim Maliyet:"
deg3 = "Tutar:"

On Error Resume Next
Range("M2:M" & Rows.Count).ClearContents
Range("M2:N" & Rows.Count).ClearContents
Range("M2:O" & Rows.Count).ClearContents

For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(i, "M") = Split(Split(Cells(i, "B"), deg1)(1), ", ")(0) + 0
Cells(i, "N") = Split(Split(Cells(i, "B"), deg2)(1), ", ")(0) + 0
Cells(i, "O") = Split(Split(Cells(i, "B"), deg3)(1), ")")(0) + 0
Next i

End Sub