Satır & Adet toplamı

[kitsoo]

Merhaba

Elimizdeki dosya üzerinde, yapılan satışlara ait döküm mevcut.

Aşağıdaki formatta olan dosya üzerinde yapmak istediğimiz değişiklik ise;

Yazılacak bir formül veya makro barkodun olduğu satırdaki adeti dikkate alarak, o barkodun adeti ne ise o barkoda ait o kadar satır üretmesini istiyoruz.
Bunu nasıl yapacağımızı bulamadık.

Dosyanı formatı aşağıdaki gibi.

Barkod Adet

2080100970326 4,00
2080100970333 11,00
2080100970340 7,00
2080100970364 15,00

Olmasını istediğimiz format ise,


Barkod Adet

2080100970326
2080100970326
2080100970326
2080100970326
2080100970333
2080100970333
2080100970333
2080100970333
2080100970333
2080100970333 v.s..

Barkodları satırda sıralaması yeterli olur.
Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırın.

Verileriniz 2. satırdan başlıyorsa 1 olan bölgeye 2 yazarsınız.

Sub SatirEkle()
 
    Dim i As Long, Wf As WorksheetFunction, say As Double
 
    Set Wf = WorksheetFunction
 
    Application.ScreenUpdating = False
 
    For i = Cells(Rows.Count, "A").End(xlUp).Row To [COLOR=red][B]1[/B][/COLOR] Step -1
        say = Wf.CountIf([A:A], Cells(i, "A"))
        If say <> Cells(i, "B") Then
            Rows(i).Copy
            Rows(i + 1 & ":" & i + Cells(i, "B") - say).Insert Shift:=xlDown
        End If
    Next i
 
     Application.CutCopyMode = False
    Application.ScreenUpdating = True
 
End Sub

.