Vba da Advanced filtresi hk.

[Öz1.618]

Merhaba,
Vba da bir datanın içinden Advanced filtresi uygulayarak benim istediğim şubeleri filtrelemek istiyorum. Bunu yapıyorum ama istediğim şubeleri kodun içerisinde aralık olarak gösteriyorum bunu değişebilir yapmak için i değişkeni tanımlamak istedim ama başaramadım. Çalışır haldeki kodu. Aşağıdadır.

Columns(“A:A”).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=
Workbooks (“Şube_Kontrol_Data_Cek.xlsm”).Sheets(“Subelist).Range(“A1:A6”), _
Uniqe:=False

Burada (“A1:A6”) yerine bir i değişkeni mi oluşturmalıyım acaba?
Desteğinizi rica ederim.

 

[Öz1.618]

Merhaba,
Vba da bir datanın içinden Advanced filtresi uygulayarak benim istediğim şubeleri filtrelemek istiyorum. Bunu yapıyorum ama istediğim şubeleri kodun içerisinde aralık olarak gösteriyorum bunu değişebilir yapmak için i değişkeni tanımlamak istedim ama başaramadım. Çalışır haldeki kodu. Aşağıdadır.

Columns(“A:A”).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=
Workbooks (“Şube_Kontrol_Data_Cek.xlsm”).Sheets(“Subelist).Range(“A1:A6”), _
Uniqe:=False

Burada (“A1:A6”) yerine bir i değişkeni mi oluşturmalıyım acaba?
Desteğinizi rica ederim.

Problemi mi çözdüm.

 

[TURKOLOG]

Kodu tam olarak bizimle de paylaşırsanız çok seviniriz.

 

[Öz1.618]

Kodu tam olarak bizimle de paylaşırsanız çok seviniriz.

Tabi paylaşıım.
Önce şube kodlarının olduğu son satırı bulup, değişken tanımlaması yaptım.
Dim i50 As Byte
Range(“A2”).Select
Selection.End(xlDown)Select
İ50=ActiveCell.Row

Sonra kodumda yer alan filitreyi oluşturacak hücre adresini aşağıdaki gibi yazdım
Range(“A1:A”&i50)

 

[TURKOLOG]

Elinize sağlık

 

[Öz1.618]

Elinize sağlık

Teşekkür ederim.