iki kelime arasındaki sayıları kopyalama

[bymarduk]

merhaba,
elimde şöyle veriler mevcut

<?xml version="1.0" standalone="yes"?>
<NewDataSet>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2247820000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>12</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2248300000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>25</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2248940000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>80</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2250150000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>89</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2261130000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>56</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2260020000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>80</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2282050000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>2</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2318260000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>22</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2280550000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>12</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2280500000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>36</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2282750000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>326</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2319230000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>80</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2360830000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>1</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
  <TBL_SAYIM>
    <MAGAZA_KOD>932</MAGAZA_KOD>
    <BARKOD>2336660000000</BARKOD>
    <TABANCA_NO>115</TABANCA_NO>
    <ENVANTER_NO>12345</ENVANTER_NO>
    <MIKTAR>1</MIKTAR>
    <DUMMY>400000767260</DUMMY>
    <YER>M</YER>
  </TBL_SAYIM>
</NewDataSet>

bunları alt alta satır halinde ekli. istediğim şey <BARKOD>2336660000000</BARKOD>
bu barkod tagları arasında kalan sayıların kopyalanıp alt alta bir sütuna yerleştirmek.
bunlardan yüzlerce olacak tek tek yapmam çok zaman alacak yardımcı olursanız sevinirim
teşekürler

 

[Murat OSMA]

Merhaba,

Excel dosyasınızı bir klasör içine alın ve yanına da ornek.xml dosyasını koyun.
Xml dosyanızın adı ne ise, kodda kırmızı renk ile belirttiğim yeri onunla değiştirirsiniz.

Şimdi bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    dosya$ = ThisWorkbook.Path & "\[COLOR="Red"]ornek[/COLOR].xml"
    evn$ = CreateObject("Scripting.FileSystemObject").OpenTextFile(dosya, 1, True).ReadAll
    ayır = Split(evn, vbNewLine)
    For i = LBound(ayır) To UBound(ayır)
        If ayır(i) Like "*[COLOR="Blue"]BARKOD[/COLOR]*" Then
            barkod = Split(Replace(ayır(i), "</BARKOD>", ""), "<BARKOD>")
            a = a + 1
            Cells(a, 1).Value = barkod(1)
        End If
    Next i
    i = Empty: a = Empty: Erase ayır: evn = "": dosya = ""
End Sub[/SIZE][/FONT]

 

[tahsinanarat]

Verilerin A sütununda var olduğunu sayarsak, aşağıdaki formülü yeterince aşağıya doğru çoğaltarak Barkod noları alabilirsiniz.

=PARÇAAL(A1;BUL(">";A1)+1;(BUL("</";A1)-1)-(BUL(">";A1)))

 

[tahsinanarat]

Makro ile

Barkod kodlarını b sütununa aktarır

Option Explicit

Sub DÜZENLE1()
    Dim HÜCRE As Range, SAY As Byte

    For Each HÜCRE In Range("A2:A" & Range("A65536").End(3).Row)
        If HÜCRE.Value <> "" Then
        SAY = InStr(1, HÜCRE.Text, "<BARKOD>", vbTextCompare) 'Kriter belirle
        If SAY > 0 Then
        HÜCRE.Offset(0, 1) = Mid(HÜCRE.Text, SAY + 8, 13) 'kriterden sonra kaç harf vb.
        End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

http://s9.dosya.tc/server/xv24p2/Barkod_nolari_yan_sutuna.rar.html

 

[halil_ibo]

Beden Barkod Çalışması

Merhaba,
Örnek dosyayı ekledim.
İstediğim şey tam olarak şöyle:
-(STOKLAR sayfasının B sütunundaki STOK ADI kısmındaki --- işaretinden sonraki ilk gelen rakam M sütunundaki ADET kısmıyla aynı, yani toplam gelen adet miktarı)
-(* işaretinden sonraki harf BEDEN i )
-(> işaretinden sonraki rakamsa o BEDEN in geldiği ADET i)
gösteriyor.

Her * dan sonra yazılan gelen BEDEN ve o BEDEN in MİKTAR ını gösteriyor.
Benim istediğim:
STOKLAR sayfasından verileri alıp BEDENLER sayfasına visual basic le > işaretinden sonraki bedenlerin adetleri kadar kopyalayıp alt alta atmasını istiyorum.
Yardımcı olacak varsa şimdiden teşekkür ederim.