• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

rakamları kopyalama

Katılım
2 Mayıs 2008
Mesajlar
50
Excel Vers. ve Dili
2010, 2016
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

4Ad
 
bilen yokmu arkadaşlar :) ara, düşeyara vs deniyorum ama olmadı
 
Txt'deki verileri A sütununa yapıştırın ve şu kodları deneyin;

Kod:
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
 
Txt'deki verileri A sütununa yapıştırın ve şu kodları deneyin;

Kod:
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 :D teşekkürler hepsi listelendi kodları nasıl yazıyorsunuz hocam nasıl oldu bu
 
Sihirli parmaklarla.. :D

Rica ederim, iyi akşamlar...
 
Geri
Üst