Dolu Olan Satırları Aktarma

[skaraayak]

öncelikle forumda arama yaparak bulduğum benzer konuları sonuna kadar incelediğimi belirtmek istiyorum.

iş yerim için yarın hazırlamak zorunda olduğum bir tabloda dolu olan değerleri başka bir çalışma sayfasına aktarmak istiyorum. yarına kadar yapmak zorunda olduğum için biraz acelem var ve kodları öğrenmem zor diye düşünüyorum.

sorum şu;

"iş emri" adlı çalışma kitabında her ürünün bir kodu var ve eğer o kodlu ürünün üretimi yapılacaksa ilgili çalışma sayfalarına ilgili kod ve üretim miktarı otomatik gitsin istiyorum.

ve söz veriyorum bu işi haftasonu öğreneceğim. yarınki toplantımı kurtarayım yeter.

teşekkürler

 

[hamitcan]

Sub sac()
    c = 1
    Sheets("Sac").[b2:c500].Clear
    With Sheets("iş emri")
        For i = 4 To 46
            If .Cells(i, "f") <> "" Then
                c = c + 1
                Sheets("Sac").Cells(c, 2) = .Cells(i, "e")
                Sheets("Sac").Cells(c, 3) = .Cells(i, "f")
            End If
        Next
    End With
End Sub