Filtre edilmiş satırlarda işlem yapmak

[akavak]

Merhaba,

Selection.AutoFilter Field:=4, Criteria1:= "ankara"

ile D alanında filtre yaptıktan sonra sadece görünür hücrelerde işlem yapmak istiyorum.

Örneğin D de şehirler var "ankara" filtre ile seçildikten sonra E alanına her "ankara" karşısına formülle bilgi getirmek istiyorum. 2,4,7 satırlar görünmüyor olsun o satırlarda formül olmayacak. Döngü olarak yapacağım ama seçili hücrenin gizli mi açık mı olduğunu bulamadım.

İlgiliniz için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For Each hucre In Range("d2:d" & [d65536].End(3).Row).SpecialCells(xlCellTypeVisible)
hucre.Next = "=formülünüz"
Next

 

[akavak]

Levent Bey öncelikle teşekkür ederim.

hucre.Next = "=formülünüz"

bu şekilde E hücresini seçtiriyoruz ancak farklı hücrelere gitmek için nasıl bir yol izleyebiliriz. F hücresi için
hucre.Next.Next = "=formülünüz" iki kere next kullandım ama çok daha ilerisi için kısa bir yol var mıdır?

 

[akavak]

Arkadaşlar konuyla ilgili yardım edebilir misiniz?

teşekkürler

 

[Levent Menteşoğlu]

Levent Bey öncelikle teşekkür ederim.

hucre.Next = "=formülünüz"

bu şekilde E hücresini seçtiriyoruz ancak farklı hücrelere gitmek için nasıl bir yol izleyebiliriz. F hücresi için
hucre.Next.Next = "=formülünüz" iki kere next kullandım ama çok daha ilerisi için kısa bir yol var mıdır?

.offset komutunu kullanın. Örneğin, hucre.offset(0,2) yazdığınızda iki sütun sonraki hücre adresi belirlenmiş olur.

 

[akavak]

Levent Bey çok teşekkür ederim.