PARÇAAL kodunda "/" işaretinden önce ve sonrasının sayfa ikiye alınması

[slisyum]

bu kod / işaretinden sonraki kısmı bir yan hüçreye yazdırıyor ama ben sayfa2 ye / işaretinden öncesini bir sutuna sonrasınıda diğer sutuna yazdırmak istiyorum bunun için kodda nasıl bir düzenleme yapmalıyım yardımcı olabilirseniz sevinirim

Sub EN_SONDAKİ_DİEZDEN_SONRAKİ_KARAKTERLERİ_YANDAKİ_SÜTUNA_AKTAR()
    [B:B].ClearContents
    For X = 1 To [A65536].End(3).Row
    SAY = 0
    If Cells(X, 1) Like "*" & "#" & "*" Then
    For Y = Len(Cells(X, 1)) To 1 Step -1
    If SAY = 1 Then GoTo Devam
    If Mid(Cells(X, 1), Y, 1) = "#" Then
    Cells(X, 2) = Mid(Cells(X, 1), Y + 1, Len(Cells(X, 1)))
    SAY = 1
    End If
    Next
Devam: End If: Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[Levent Menteşoğlu]

Bir veriyi ve parçalanmış halini örnek olarka verirmisiniz.

 

[slisyum]

sayfa1'de SAYI:B.0.56/765905467 parçalanmamış hali bu .
buradan "/" işaretinden öncesi ve sonrası sayfa2'de

B3 Hücresinde SAYI:B.0.56

C3 Hücresinde 765905467

şeklinde bir parçalanma

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

sub parcala()
set s1=sheets("sayfa1")
set s2=sheets("sayfa2")
for a=1 to s1.[a65536].end(3).row
deg=split(s1.cells(a,"a"),"/")
s2.cells(a,"b")=deg(0)
s2.cells(a,"c")=deg(1)
next
end sub