listede ayrıştırma

[igultekin2000]

iyi günler, programdan aldığım listeyi düzenlemem gerekiyor. Yapmak istediğim fiyat için sütün açılıp, ürünün isim ve fiyattan ayrıştırılması, sayfa2 ye aktarılması. Teşekkürler

 

[askm]

Aşağıdaki şekilde deneyin.

Sub ASKM_Ayristir()
Dim SonSatir As Long
SonSatir = Range("B65536").End(xlUp).Row
Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("c1") = "BİRİM FİYAT"
On Error Resume Next
For i = 5 To SonSatir
    Kelime = Split(Cells(i, "B"), "-")(0)
    Sayi = Split(Cells(i, "B"), "-")(1)
    Cells(i, "B") = Kelime
    Cells(i, "C") = Format(Sayi, "#.##0,00")
Next i
MsgBox "İşlem Tamamlanmıştır.", vbOKOnly + vbInformation, "İŞLEM BİTTİ - ASKM "
End Sub

 

[igultekin2000]

rakamda sorun oluyor

Aşağıdaki şekilde deneyin.

Sub ASKM_Ayristir()
Dim SonSatir As Long
SonSatir = Range("B65536").End(xlUp).Row
Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("c1") = "BİRİM FİYAT"
On Error Resume Next
For i = 5 To SonSatir
    Kelime = Split(Cells(i, "B"), "-")(0)
    Sayi = Split(Cells(i, "B"), "-")(1)
    Cells(i, "B") = Kelime
    Cells(i, "C") = Format(Sayi, "#.##0,00")
Next i
MsgBox "İşlem Tamamlanmıştır.", vbOKOnly + vbInformation, "İŞLEM BİTTİ - ASKM "
End Sub

ayrıştırmayı güzel yapıyor ama sayı kısımı problemli, resmini ekledim

 

[askm]

Cells(i, "C") = Format(Sayi, "#.##0,00") kısmını Cells(i, "C") =Sayi olarak deneyin.

 

[igultekin2000]

sonuç tamam

Cells(i, "C") = Format(Sayi, "#.##0,00") kısmını Cells(i, "C") =Sayi olarak deneyin.

teşekkürler, dediğiniz şekilde sorun çözülmüştür