userform veri aktarım hk.

[bilisim2010]

merhaba aşağıdaki kodlar ile KODLAR sayfasına 100 yazdırıp GENELKODLAR sayfasına 96 satır saydırıyorum yani KODLAR a 100 yazıyor GENELKODLAR a 100-101-102-196 böyle.

şimdi burda bir ayrıştırma yapmam gerekti benim 7 farklı ürünüm var 1 tanesinin paleti 112 adet diğerleri 96 adetli

bu kod ile yazdırınca 112 olanıda 96 yazdırıyor 112 olanı nasıl ayrıştırırız? sorum bu. teşekkürler.

 

[volki_112]

kodu eklemeyi unutmuşssunuz

 

[bilisim2010]

ETİKET1.xlsm

drive.google.com

 

[bilisim2010]

kodu eklemeyi unutmuşssunuz

dosyayı komple ekledim volki bey hocam

Dim kodSayfa As Worksheet
Dim hedefSayfa As Worksheet
Dim baslangicKod As String
Dim tempKod As Double
Dim satirKod As Range
Dim hedefSatir As Long
Dim i As Long
Dim veriDizisi() As Variant

Set kodSayfa = ThisWorkbook.Sheets("KODLAR")
Set hedefSayfa = ThisWorkbook.Sheets("GENELKODLAR")

hedefSayfa.Columns("B:e").ClearContents

For Each satirKod In kodSayfa.Range("B2:B" & kodSayfa.Cells(kodSayfa.Rows.Count, "B").End(xlUp).Row)
If IsNumeric(satirKod.Value) And satirKod.Value <> "" Then
baslangicKod = satirKod.Value
hedefSatir = hedefSayfa.Cells(hedefSayfa.Rows.Count, "B").End(xlUp).Row + 1

ReDim veriDizisi(1 To 97, 1 To 1)
For i = 0 To 96
tempKod = CDbl(baslangicKod) + i
veriDizisi(i + 1, 1) = Format(tempKod, "0")
Next i

hedefSayfa.Cells(hedefSatir, "B").Resize(97, 1).Value = veriDizisi
End If
Next satirKod