Ana master-Tekrar

[dimonias]

İyi günler;
Ekte yer alan dosyada H sütununda bulunan ana master verilerini alarak B sütununda yer alan verilerden en üsttekini alacak ve B14 den itibaren kopyalamaya başlayacak. TEKRAR verileri her seferinde 1 kez kullanılacak ve bir alta geçecek, MASTER verileri aynen her seferinde kullanılacak. Ekteki dosyada daha net açıklamaya çalıştım. Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Bu listeleme farklı bir sayfada mı olacak, aynı sayfada yazdığınız bölüme mi?

 

[dimonias]

Merhaba;
Farklı sheet olabilir veya aynı sheet farketmez. Yardımınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub TABLO_OLUŞTUR()
    Dim X As Integer, Satir As Integer, Master As Range

    Application.ScreenUpdating = False
    
    Set Master = Range("H3:K10")
    Range("B15:F" & Rows.Count).Clear
    Satir = 15
    
    For X = 3 To 7
        Cells(Satir, "B") = Cells(X, "B")
        Master.Copy Cells(Satir, "C")
        With Range("B" & Satir & ":B" & Satir + Master.Rows.Count - 1).Borders
            .LineStyle = 1
            .Weight = xlMedium
        End With
        Range("B" & Satir & ":B" & Satir + Master.Rows.Count - 1).Borders(xlInsideVertical).LineStyle = xlNone
        Range("B" & Satir & ":B" & Satir + Master.Rows.Count - 1).Borders(xlInsideHorizontal).LineStyle = xlNone
        Satir = Satir + Master.Rows.Count
    Next
    
    Set Master = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[dimonias]

Verdiğiniz kodları birkaç farklı excel çalışmama uyarlayıp denemem uzun sürdü. Ama verdiğiniz kod gerçekten çok işime yaradı. Size çok teşekkür ederim.

Saygılarımla