Senkron Filtre Hak.

[petsiye]

Merhaba,

DAha önce bu site yardımıyla edindiğim bir vba kod ile, bir Sheet içerisindeki filtreyi, diğer Sheet üzerinde senkronize bir şekilde çalıştırıyorum. Kod çalışıyor, fakat ben Sheetler den bir tanesini ilerideki bir sütununa normal veriler ekledim, ekledikten sonra senkronizasyonun sağlıklı çalışmadığımı farkettim. Öneden bir sorun yoktu. Aşağıdaki kodlar Eski ve yeni haliye belirttiğim şekildedir. ( Diğer Sheet teki HRF sütununu da filtrelenebilir hale getirdim )

Eski Hali;

Dim Hcr As Range
Dim Bak() As String
Dim Sira As Long

Application.EnableEvents = False
Set Hcr = Sheets("FILTRE").Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23) '.Select
ReDim Bak(Hcr.Cells.Count - 1)
For Each Hcr In Sheets("FILTRE").Range("C3:C" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23)
Bak(Sira) = Hcr.Value
Sira = Sira + 1
Next

Sheets("YATIRIM DEĞERLENDİRME").Range("A3:HIN" & Rows.Count).AutoFilter Field:=3, Criteria1:=Bak, Operator:=xlFilterValues
Application.EnableEvents = True





HRF Sütununa kadar veri ekledikten sonraki revize ettiğim Yeni Hali ;

Dim Hcr As Range
Dim Bak() As String
Dim Sira As Long

Application.EnableEvents = False
Set Hcr = Sheets("FILTRE").Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23) '.Select
ReDim Bak(Hcr.Cells.Count - 1)
For Each Hcr In Sheets("FILTRE").Range("C3:C" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23)
Bak(Sira) = Hcr.Value
Sira = Sira + 1
Next

Sheets("YATIRIM DEĞERLENDİRME").Range("A3:HRF" & Rows.Count).AutoFilter Field:=3, Criteria1:=Bak, Operator:=xlFilterValues
Application.EnableEvents = True


Örneğin burada HRE sütununa filtre yaptığımda, 2 sayfa arasında senkronizasyon sorunu yaşıyorum.


Yardım edebilecek olanlara şimdiden teşekkür ederim.

Saygılarımla