Macro ile bir satırdaki verileri bölerek alt satırlara yerleştirmek

[alper2323]

Merhaba;

Ekli dosyada A ve B kolonlarında veriler var.

A kolonu fatura numaraları, B kolonu ise tarihleridir.

A kolonunun her satırında birden fazla fatura numarası yer almaktadır. Bir satırda birden fazla olarak yer alan, ayraç ve virgule ayrılmış bu fatura numaralarını tek satıra düşürmek istiyorum.

Her satırda tek fatura numarası kalmalı ve fatura numarasının karşısındaki tarihlerde yine aynı fatura numarasının karşısına eklenmeli.

Bu işlemi macro ile nasıl yapabilirim?

Teşekkürler

 

[Ömer]

Merhaba,

Faturaları D, tarihleri E sütununa listeler.

Sub Veri_Ayir()
   
    Dim c(), sat As Long, i As Long, j As Byte, k As Byte, d
    
    c = Array("/", "-", ",")
    
    Application.ScreenUpdating = False
    Range("D2:E" & Rows.Count).ClearContents

    sat = 2
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsNumeric(Cells(i, "A")) = True Then
            Cells(sat, "D") = "'" & Cells(i, "A")
            Cells(sat, "E") = Cells(i, "B")
            sat = sat + 1
        Else
            For j = 0 To UBound(c)
                d = Split(Cells(i, "A"), c(j))
                If UBound(d) > 0 Then
                    For k = 0 To UBound(d)
                        If d(k) <> "" Then
                            Cells(sat, "D") = "'" & d(k)
                            Cells(sat, "E") = Cells(i, "B")
                            sat = sat + 1
                        End If
                    Next k
                End If
            Next j
        End If
    Next i
    
    Application.ScreenUpdating = True
 
End Sub

.

 

[alper2323]

Macro için çok teşekkür ederim, gerçekten süper olmuş, sadece bir isteğim var
bir satırda tek olanları da yine D ve E sütunlarına aktarabilir miyiz? Yani A ve B deki tüm veri D ve E de olmuş olacak.

 

[Ömer]

#2 numaralı mesajı bu doğrultuda düzenledim.

.