sayfalar arasında istenileni taşıma

[h.temel]

merhaba, ekteki deneme dosyasında açıklamaya çalıştığım bir sorunum var çözmemde yardımcı olurmusunuz, teşekkürler.

 

[Ali]

Sayfa2'deki F1 hücresine B yazarsanız Bekleyen işler listelenir, T yazarsanız tamamlanan işler listelenir.

Sayfa2'deki sarı alandaki formüller dizi formülü olup formül çubuğunda iken direk enter tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmiştir.

Örneğiniz ektedir.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodlarıda deneyebilirsiniz.

Sub bekleyen()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.[a2:d65536].ClearContents
For a = 2 To s1.[a65536].End(3).Row
If s1.Cells(a, "a") = "B" Then
son = s2.[a65536].End(3).Row + 1
s2.Range("a" & son & ":d" & son) = s1.Range("b" & a & ":e" & a).Value
End If
Next
End Sub

yada

Sub bekleyen()
Application.ScreenUpdating = False
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.[a2:d65536].ClearContents
If s1.AutoFilterMode = False Then s1.[a1:e65536].AutoFilter
s1.[a1:e65536].AutoFilter Field:=1, Criteria1:="B"
s1.[a1].CurrentRegion.Copy s2.[a1]
s2.[a:a].Delete
s1.[a1:e65536].AutoFilter
End Sub