rakamları kopyalama

[aliduran]

Merhaba elimde metin belgesi içerisnde karışık bilgiler var, araların yüzlerce barkodlar var, bu barkodları excel de tek bir sütünda alt alta sıralamak istiyorum.
metin belgesindekileri excele yapıştırdığımda sonuç alamadım, metni stunlara dönüştür işlemide başarılı olmadı. barkodları alıp sıralamam lazım mümkünmüdür acaba

 

[aliduran]

bilen yokmu arkadaşlar ara, düşeyara vs deniyorum ama olmadı

 

[Huseyinkis]

bilen yokmu arkadaşlar ara, düşeyara vs deniyorum ama olmadı

Txt Dosyasının bir orneğini yüklerseniz belki bir yontem bulunabilir.

 

[aliduran]

txt ve xml olarak ekledim

 

[Murat OSMA]

Txt'deki verileri A sütununa yapıştırın ve şu kodları deneyin;

Sub Barkod_Ayir()
    Dim Reg As Object
    Dim i As Integer
    Range("B1:B30000").ClearContents
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Global = True
    Reg.Pattern = "([0-9]{13})"
    For i = 1 To Range("A65536").End(3).Row
        Set say = Reg.Execute(Cells(i, 1))
        If say.Count > 0 Then
            Range("B65536").End(3)(2, 1) = _
            Reg.Execute(Cells(i, 1)).Item(0)
        End If
    Next i
    i = Empty: Set Reg = Nothing
End Sub

 

[aliduran]

Txt'deki verileri A sütununa yapıştırın ve şu kodları deneyin;

Sub Barkod_Ayir()
    Dim Reg As Object
    Dim i As Integer
    Range("B1:B30000").ClearContents
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Global = True
    Reg.Pattern = "([0-9]{13})"
    For i = 1 To Range("A65536").End(3).Row
        Set say = Reg.Execute(Cells(i, 1))
        If say.Count > 0 Then
            Range("B65536").End(3)(2, 1) = _
            Reg.Execute(Cells(i, 1)).Item(0)
        End If
    Next i
    i = Empty: Set Reg = Nothing
End Sub

tamam teşekkürler hepsi listelendi kodları nasıl yazıyorsunuz hocam nasıl oldu bu

 

[Murat OSMA]

Sihirli parmaklarla..

Rica ederim, iyi akşamlar...