Şarta göre istenilen veri bir başka sayfa satırında nasıl gözükür?

[voodoograph]

Merhabalar yeni üyeyim... Açıkçası excel ile çok yakın olduğum günleri yaşıyorum ve sizlerin yardımına ihtiyacım var.

LİSTE 1 sayfasında girdiğim veriler içinde Dosya Durumu AÇIK olan satırı, olduğu gibi yine aynı sütunlara sahip AKTİF LİSTE sayfasında nasıl gösterebilirim?..

Liste 1 Sayfası

Kısaca bu tablodan yalnızca Dosya Durumu AÇIK olan satırları almak istiyorum.

Çok teşekkürler...

 

[omerceri]

Örnek ekte
AKTİF Sayfası açılınca bilgileri kopyalıyor

 

[voodoograph]

Ben eğer fonksiyonu ile yapmıştım.
Ancak daha kolayı, çok daha iyi tabi ki... Teşekkürler ederim omerceri.

 

[N.Ziya Hiçdurmaz]

yanıt

Örnek hazırladım bir bakınız.
Sub test()
Set s1 = Sheets("LİSTE")
Set s2 = Sheets("AKTİF LİSTE SAYFASI")
For i = 1 To 100
If s1.Range("g" & i) = "AÇIK" Then
Range(Range("g" & i).Offset(0, 0), Range("g" & i).Offset(0, -6)).Copy
say = WorksheetFunction.CountA(s2.[a1:a65536])
s2.Range("a" & say + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[voodoograph]

V.Basic For Applications, senin örneğin de gerçekten kullanışlı ancak yineleme yapmasını istemiyorum yeni sayfada... Senin örneğinde düğmeye bastıkça en son satır eğer aktif ise aktif listeye ekliyor. Ancak bu durumda aynı satır iki defa eklenebiliyor. Biraz acemi biri kullanacak da bu dosyayı, o yüzden fonksiyonun işi kendisi yapması çok doğru olur. Aslında biryerlerde kesinlikle işime yarayacaktır bu. Teşekkür ederim.

Birde aktif hücrenin renklenmesi için şu kodu kullanıyorum ancak çok iyi çalışmıyor nedense... Dolgu rengi olan alanların üstünden geçtiğimde o alanları görünmez veya beyaz yapıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 28
Set EskiHucre = Target
End Sub