Geniş Listeden Farklı bir Sayfada Küçük Listeler Oluşturma

[Lemuria]

Merhaba;

SQL'den veri çeken bir excel listem var. Bu listeden istediğim kriterlerde ürünleri 2. bir sayfada görüntülemek istiyorum.

Örnek olarak bir görsel hazırladım. İfade edemediğim bir nokta varsa ilave bilgi verebilirim.



Desteğiniz için şimdiden teşekkürler.

 

[asi_kral]

Merhaba
Dosya ekler misiniz?

 

[Lemuria]

Belgenin orjinalini paylaşamam ancak küçük bir örnek oluşturdum. Bu belge üzerinden destek olabilirseniz memnuniyet duyarım.

Kitap1.xlsx - 9 KB


Şimdiden teşekkürler.

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne bu kodu kopyalayıp dener misiniz?

Option Explicit
Sub gtr()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long, SR As Long
Set S1 = Sheets("İlk Sayfa"): Set S2 = Sheets("İkinci Sayfa")
S2.Range("A3:C" & Rows.Count).ClearContents
SR = 3
For STR = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row
If Left(S1.Cells(STR, "A"), 3) = "111" Then
S2.Cells(SR, "A") = S1.Cells(STR, "A")
S2.Cells(SR, "B") = S1.Cells(STR, "B")
S2.Cells(SR, "C") = S1.Cells(STR, "C")
SR = SR + 1
End If
Next
End Sub

 

[Lemuria]

Çalıştı, teşekkür ederim. Kod dışında formül ile yapabilme olanağı var mı? Formülle oluşturmayı da öğreneyim, Kod yazmayı bilmediğim için küçük değişikliklerde problem yaşayabilirim.

Tekrar teşekkürler.

 

[Lemuria]

Bir de ilk sayfada ilave/değişiklik olduğunda otomatik olarak ikinci sayfadaki bilgiler yenilenmiyor. Otomatik güncelleme için ne yapmam gerekir?