Sayfada bulunan listedeki verileri uygun olanları başka sayfada listeleme

[ilyascavus]

Merhabalar kolay gelsin.
Ekli listedeki tabloda gerekli veriler manuel girildikten (D, E, F ve I sütunları) sonra otomatik hesaplanan "ihale miktarı"'nda (J sütunu) sıfırdan büyük olanları "ihale listesi" sayfasına makro yada formülle aktarmak istiyorum. Bu konuda yardım rica ediyorum şimdiden teşekkürler..
Ayrıca konu açıldıysa kusura bakmayınız.

 

[ilyascavus]

bir de "ihale listesi" sayfasındaki veriler, veri aktarıldığında başlıklar hariç silinmiş olmalı ve yeniden yazılmalıdır. teşekkürler..

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Aktar()
    
    Dim i   As Long, _
        j   As Long, _
        sh  As Worksheet, _
        sl  As Worksheet
    
    Application.ScreenUpdating = False
    
    Set sh = Sheets("İHALE HAZIRLIK")
    Set sl = Sheets("İHALE LİSTESİ")
    
    sh.Select
    
    j = sl.Cells(Rows.Count, "A").End(3).Row
    If j < 3 Then j = 3
    
    sl.Range("A3:D" & j).ClearContents
    j = 2
    
    For i = 6 To Cells(Rows.Count, "A").End(3).Row
    
        If Cells(i, "J") > 0 Then
            j = j + 1
            sl.Cells(j, "A") = Cells(i, "A")
            sl.Cells(j, "B") = Cells(i, "B")
            sl.Cells(j, "C") = Cells(i, "C")
            sl.Cells(j, "D") = Cells(i, "J")
        End If
          
    Next i
    
    sl.Select
    Application.ScreenUpdating = True
    
    MsgBox "AKTARILMIŞTIR....", vbInformation, "N. Y --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[ilyascavus]

Hocam tekrar teşekkürler. ilginiz alakanız için minnettarım..

 

[ilyascavus]

Yanlız hocam bu komudu ben "commandbutton" ile çalıştıramadım. bu butona uygun komut değil mi bu?