Satır Tekrarı Yapmak

[fatih_sas]

Merhabalar;

excelde elimde " a" sütununda barkodlar var ve " b" sütununda ise miktarlar var. aşağıda örneği mevcuttur. bana lazım olan ise bu barkodların yeni bir çalışma sayfasında yazan miktar kadar " a" hücresinde alt alta yazması. yani 50 adet olan barkod yeni sayfada 50 defa barkodun yazılması. bayağı uğraştım ama yapamadım belki kolay yoldan birinin aklına gelir diye size yazıyorum.

barkod	miktar
8682116126090	50
8682116837583	25
8682116283588	2

 

[tugkan]

Bu işlemi Excel'de VBA ile kolayca yapabilirsiniz. Aşağıdaki VBA kodu, mevcut sayfanızdaki barkodları ve miktarları okuyarak yeni bir sayfada, miktar kadar alt alta barkodları yazdıracaktır.

1. Excel'de Alt + F11 tuşlarına basarak VBA düzenleyicisini açın.
2. Üst menüden Insert > Module seçeneği ile yeni bir modül ekleyin.
3. Aşağıdaki kodu kopyalayıp bu modüle yapıştırın:

Sub BarkodlariYazdir()
    Dim wsMevcut As Worksheet
    Dim wsYeni As Worksheet
    Dim sonSatir As Long
    Dim i As Long
    Dim j As Long
    Dim miktar As Long
    Dim satirNo As Long

    ' Mevcut çalışma sayfası
    Set wsMevcut = ThisWorkbook.Sheets("Sayfa1") ' Mevcut çalışma sayfanızın ismi "Sayfa1" ise.
    
    ' Yeni çalışma sayfası oluştur
    Set wsYeni = ThisWorkbook.Sheets.Add
    wsYeni.Name = "BarkodListesi"
    
    sonSatir = wsMevcut.Cells(wsMevcut.Rows.Count, "A").End(xlUp).Row
    satirNo = 1
    
    ' Barkodları ve miktarları oku ve yeni sayfaya yazdır
    For i = 2 To sonSatir ' 1. satır başlıklar olduğu için 2'den başlıyoruz
        miktar = wsMevcut.Cells(i, 2).Value ' B sütunundaki miktar
        For j = 1 To miktar
            wsYeni.Cells(satirNo, 1).Value = wsMevcut.Cells(i, 1).Value ' A sütunundaki barkod
            satirNo = satirNo + 1
        Next j
    Next i
End Sub

1. Kodun doğru çalışabilmesi için mevcut çalışma sayfanızın ismini kontrol edin. Kodda "Sayfa1" yazan yeri, sizin mevcut çalışma sayfanızın ismiyle değiştirin.
2. Kod penceresini kapatın ve Alt + F8 tuşlarına basarak makroyu çalıştırın. "BarkodListesi" adında yeni bir sayfa oluşturulacak ve barkodlar miktar kadar alt alta yazılacaktır.

Bu yöntemle istediğiniz sonucu elde edebilirsiniz.

 

[fatih_sas]

çok teşekkür ederim çok işimizi gördü.