resim icın tıklayınca sayfaya filter yaptırma

[koboy]

Merhabalar anasayfamda türkiye haritası var harita üstündeki resimlere tıklayınca durum sayfasında autofilter olarak nasıl yapabilirim

 

[Levent Menteşoğlu]

Çok güzel bir çalışma. Dosyanıza gerekli ilaveleri yaptım ekte gönderiyorum.

 

[koboy]

Çok güzel bir çalışma. Dosyanıza gerekli ilaveleri yaptım ekte gönderiyorum.

usta çok teşekkür ederim süper olmuş eline sağlık

 

[koboy]

usta bir sorum daha var yardımcı olur musunuz
başka bir dosyam da n sutuna veri geliyor tarih arası far alıyorum 0 ve 3 olanlar satırların sayısını alıp J1 nasıl yazdırabilirim

 

[koboy]

bu şekilde böyle yaptım doğru mu ve 0 kadar nasıl yaparım

For i = 8 To SonSat

If i > 3 Then
    tpl = Cells(i, "N").Value
    End If
Next
S1.Range("J1").Value = tpl

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

tpl=0

For i = 8 To SonSat

If Cells(i, "N")= 3 or Cells(i, "N")=0 Then
    tpl = Cells(i, "N").Value + tpl
End If

Next

S1.Range("J1").Value = tpl

 

[koboy]

usta tam anlatamadım galiba resim ekledim

Aşağıdaki gibi deneyin.

tpl=0

For i = 8 To SonSat

If Cells(i, "N")= 3 or Cells(i, "N")=0 Then
    tpl = Cells(i, "N").Value + tpl
End If

Next

S1.Range("J1").Value = tpl

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

tpl=0

For i = 8 To SonSat

If Cells(i, "N")< 3 or Cells(i, "N")>0 Then
    tpl = tpl+1
End If

Next

S1.Range("J1").Value = tpl

 

[koboy]

usta buda olmadı satır göre almadı

Aşağıdaki gibi deneyin.

tpl=0

For i = 8 To SonSat

If Cells(i, "N")< 3 or Cells(i, "N")>0 Then
    tpl = tpl+1
End If

Next

S1.Range("J1").Value = tpl

 

[Levent Menteşoğlu]

usta buda olmadı satır göre almadı

Sanırım ne istediğinizi tam olarak ifade edemediniz. Yada ben anlayamadım. N sütunu "Kalan Gün" sütunu mudur? istediğiniz bu sütunda 0 'dan büyük 3'ten küçük sayının kaç adet satırda bulunduğu mudur? Ben sorunuzu bu şekilde anladım.

 

[koboy]

evet usta N sütunu kalan gün sayısı
N sütununda 0 ile 3 arasında kaç satır varsa onun satır adeti gerekli bana örnek şuanda 3 satır gözükmete 0-3 arası

Sanırım ne istediğinizi tam olarak ifade edemediniz. Yada ben anlayamadım. N sütunu "Kalan Gün" sütunu mudur? istediğiniz bu sütunda 0 'dan büyük 3'ten küçük sayısının kaç adet satırda bulunduğu mudur? Ben sorunuzu bu şekilde anladım.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Karşılaştırma kriterini yanlış koymuşum.

tpl=0

For i = 8 To SonSat

If Cells(i, "N")<=3 or Cells(i, "N")>=0 Then
    tpl = tpl+1
End If

Next

S1.Range("J1").Value = tpl

 

[koboy]

usta bu satırları komple sayıyor 20 satır var 20 satır getiriyor benim istediğim örnek N22 , N23,N24 (3) sayıyor yanı hücre değeri
0-3 arası satırı bulmak

Aşağıdaki gibi deneyin. Karşılaştırma kriterini yanlış koymuşum.

tpl=0

For i = 8 To SonSat

If Cells(i, "N")<=3 or Cells(i, "N")>=0 Then
    tpl = tpl+1
End If

Next

S1.Range("J1").Value = tpl

 

[Levent Menteşoğlu]

Aradaki "or" operatörünü "and" olarak değiştirin.

 

[koboy]

usta çok teşekkür ederim elinize sağlık sorun çözüldü

Aradaki "or" operatörünü "and" olarak değiştirin.

 

[Levent Menteşoğlu]

Rica ederim. Ne yalan söyleyeyim, şu basit işlem, dosyanızdaki düzenlemeyi yapmaktan daha fazla oyaladı beni .