• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

veri aktarımı

W

wolwaren

Katılım
6 Mart 2009
Mesajlar
133
Excel Vers. ve Dili
office 2007
sıfırdan yüksek olan değerleri ve verilerini başka bir sayfaya aktarmak için nasıl bir formül kullanmalıyız.
örnek ekte
 

Ekli dosyalar

Kod: 
Sub Aktar()
    With Sheets("veri")
        c = 1
        For i = 2 To .[a65536].End(3).Row
            T = WorksheetFunction.Sum(.Range("e" & i & ":" & "h" & i))
            If T > 0 Then c = c + 1: Sheets("aktarılan").Rows(c) = .Rows(i).Value
        Next
    End With
End Sub
 
With bloğu olarak ifade edilir. Yinelenen objeler için kullanılır. Kod içindeki amacı sayfa isminin defalarca yazılmasını engellemek içindir.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst