Verileri Parçalara Ayırıp Başka Sayfaya Aktarma

[metin_0606]

Değerli üstatlar Sayfa1 deki verileri parçalayıp BİRLEŞTİRME isimli sayfadaki ilgili başlıkların altına aktarmak istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[Ömer]

Merhaba

A2:
=PARÇAAL(SOLDAN(Sayfa1!A2;BUL("-";Sayfa1!A2)-3);BUL(" ";Sayfa1!A2)+1;256)

B2:
=PARÇAAL(Sayfa1!A2;BUL("-";Sayfa1!A2)+2;256)

.

 

[Ömer]

Makro ile yapacaksanız.

Sub ayir()

    Dim S1 As Worksheet, i As Long
    
    Set S1 = Sheets("Sayfa1")
    
    Application.ScreenUpdating = False
    Sheets("BİRLEŞTİRME").Select
    Range("A2:B" & Rows.Count).ClearContents
    
    For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A") = Split(S1.Cells(i, "a"), " ")(1)
        Cells(i, "B") = Trim(Split(S1.Cells(i, "a"), "-")(1))
    Next i
    
End Sub

 

[metin_0606]

Makro ile yapacaksanız.

Sub ayir()

    Dim S1 As Worksheet, i As Long
   
    Set S1 = Sheets("Sayfa1")
   
    Application.ScreenUpdating = False
    Sheets("BİRLEŞTİRME").Select
    Range("A2:B" & Rows.Count).ClearContents
   
    For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A") = Split(S1.Cells(i, "a"), " ")(1)
        Cells(i, "B") = Trim(Split(S1.Cells(i, "a"), "-")(1))
    Next i
   
End Sub

Teşekkürler Ömer hocam süpersiniz