şarta bağlı veri kopyalama

[acetinnster]

Arkadaşlar şarta bağlı olarak veri kopyalama ( yazdırma ) ile ilgili yardımcı olabilirmisiniz.

Ornek_Dosya.xlsx dosyasını indir - download

Ornek_Dosya.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[Korhan Ayhan]

Benzer bir konu...

Tekrarlayan kod yardımı

Merhaba, Salon için seans listesi hazırlamam gerekiyor ama tekrarlayan noktalarda hata yapıyorum konuyla ilgili yardımcı olabilecek olan varsa şimdiden teşekkürler https://dosya.co/h4rjkj5jg5sq/sorun.xlsx.html Yukarıdaki dosyada verilerin sadece bir kısmı var . Firmam her seans saati için...

www.excel.web.tr

Sizde sütun sayısı fazla olduğu için belki uyarlayamazsınız düşüncesiyle kodu paylaşıyorum.

Option Explicit

Sub Listele()
    Dim S1 As Worksheet, Veri As Variant
    Dim Say As Long, X As Long, Y As Long
   
    Set S1 = Sheets("Sayfa1")
   
    S1.Range("I2:M" & S1.Rows.Count).ClearContents
   
    Veri = S1.Range("B2:F" & WorksheetFunction.Max(3, S1.Cells(S1.Rows.Count, 2).End(3).Row)).Value
   
    ReDim Liste(1 To S1.Rows.Count, 1 To 5)
   
    For X = LBound(Veri, 1) To UBound(Veri, 1)
        If Veri(X, 1) <> "" Then
            For Y = 1 To Veri(X, 3)
                Say = Say + 1
                Liste(Say, 1) = Veri(X, 1)
                Liste(Say, 2) = Veri(X, 2)
                Liste(Say, 3) = Y
                Liste(Say, 4) = Veri(X, 4)
                Liste(Say, 5) = Veri(X, 5)
            Next
        End If
    Next
   
    If Say > 0 Then S1.Range("I2").Resize(Say, 5) = Liste
   
    Set S1 = Nothing
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[acetinnster]

Sayın Korhan Ayhan hocam elinize sağlık çok sağolun Allah razı olsun tam istediğim gibi oldu