Soru Veri Birleştirme

konas06

Altın Üye
Katılım
27 Kasım 2007
Mesajlar
644
Excel Vers. ve Dili
ofis 2007
İyi akşamlar,
Bu bilgileri, sürelere bakıp 00:00 dan büyük olanları 2.sayfada makro ile birleştirmek istiyorum.
Değerli vaktini yardım için ayıran üstatlara şimdiden teşekkür ederim.


221979
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
2,655
Excel Vers. ve Dili
Excel 2003-tr
Kod:
Sub test()
    Dim i As Long, ii As Long, sat As Long, s2 As Worksheet

    Set s2 = Sheets("Sayfa2")
    s2.Range("E6:I" & Rows.Count).Clear

    sat = 6
    With Sheets("Sayfa1")
        For i = 8 To 14 Step 3
            For ii = 5 To .Cells(Rows.Count, i).End(3).Row
                If .Cells(ii, i).Value > "00:00" Then
                    .Cells(ii, 3).Resize(, 3).Copy s2.Cells(sat, "e")
                    .Cells(ii, i).Resize(, 2).Copy s2.Cells(sat, "h")
                    sat = sat + 1
                End If
            Next ii
        Next i
    End With
End Sub
 

konas06

Altın Üye
Katılım
27 Kasım 2007
Mesajlar
644
Excel Vers. ve Dili
ofis 2007
Düzenleme iptal edildi.
 
Son düzenleme:
Üst