Koşula göre sonrakini bul

[konas06]

Selamlar,
İşin gerçeği bu konuyu nasıl açacağımı bile bilemedim.
Şöyleki bir satır nosu gireceğiz, o satırdaki örneğin kırmızı dolguyu hücreyi bulup ona gitmesini ve sonrasında aynı satırda sonraki dolgu hücreye gitmesini sağlayacak bir işlem yapmak istiyorum.

Yardımlarınız için teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfadaki nesneye (OK işareti) fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılan küçük ekranda KIRMIZIYI_SEC'i işaretleyip işlemi onaylayın.

Artık OK İŞARETİne tıklayarak, B3 hücresinde belirttiğiniz satırdaki kırmızı hücreler arasında gezinti yapabilirsiniz.
.

[B][COLOR="red"]Sub KIRMIZIYI_SEC()[/COLOR][/B]
If [B3] = "" Or [B3] < 4 Or [B3] > Cells.SpecialCells(xlLastCell).Row Then
    MsgBox "B3 hücresine;" & vbLf & "-- 3'ten büyük ve" & vbLf & _
            "-- kullanılan alanın son satır numarasından küçük" & vbLf & _
            "bir SAYI yazılmalıdır," & vbLf & vbLf & _
            "B3 hücresine yazılan satır numarasını değiştirmelisiniz!...", _
        vbCritical, "..::.. ÖMER BARAN ..::.."
    Exit Sub
End If

satır = [B3]: sonsut = Cells.SpecialCells(xlLastCell).Column
    If ActiveCell.Interior.Color = vbRed Then ilksut = ActiveCell.Column + 1
        If ActiveCell.Interior.Color <> vbRed Then ilksut = 1
            For sut = ilksut To sonsut
                If Cells(satır, sut).Interior.Color = vbRed Then
            Cells(satır, sut).Activate: Exit For
        End If
    Next
If sut = sonsut + 1 Then [B3].Activate
[B][COLOR="red"]End Sub[/COLOR][/B]

 

[konas06]

Sayın Baran ilginiz için teşekkür ederim.
Ancak,
kırmızı dolgu renkleri koşullu biçimlendirme olduğunda işlem yapılamıyor,
Bunun için bir öneriniz var mıdır?

 

[Ömer BARAN]

Gönderdiğim cevap konu açılış mesajındaki soru ve örnek belgeye göre yazıldı ve
konu açılış mesajı ekindeki örnek belgede herhangi bir koşullu biçimlendirme yok.

Tüm cevaplarımın altındaki İMZA bölümünde de belirttiğim üzere soruların,
gerçek belgeyle aynı yapıda örnek belge üzerinden sorulmasını rica etmekteyiz.

Bunu da tamamen;
-- soru soran üyenin ihtiyacının tam olarak karşılanması,
-- verilen çözümün gerçek belgeye uyarlanması sorununun yaşanmaması,
-- harcanan emek/zamanın boşa gitmemesi,
-- destek bekleyen diğer üyelerin sorunlarının çözümü için harcanacak zamanın israf edilmemesi,
-- gereksiz/sonuca hizmet etmeyen mesajlaşmalar yapılmaması
için istemekteyiz.

Koşullu biçimlendirmede kullanılan koşulları bilemeyeceğimize göre, bu haliyle ihtiyacınıza çözüm bulunması kanaatimce güç.
.

 

[konas06]

Gönderdiğim cevap konu açılış mesajındaki soru ve örnek belgeye göre yazıldı ve
konu açılış mesajı ekindeki örnek belgede herhangi bir koşullu biçimlendirme yok.

Tüm cevaplarımın altındaki İMZA bölümünde de belirttiğim üzere soruların,
gerçek belgeyle aynı yapıda örnek belge üzerinden sorulmasını rica etmekteyiz.

Bunu da tamamen;
-- soru soran üyenin ihtiyacının tam olarak karşılanması,
-- verilen çözümün gerçek belgeye uyarlanması sorununun yaşanmaması,
-- harcanan emek/zamanın boşa gitmemesi,
-- destek bekleyen diğer üyelerin sorunlarının çözümü için harcanacak zamanın israf edilmemesi,
-- gereksiz/sonuca hizmet etmeyen mesajlaşmalar yapılmaması
için istemekteyiz.

Koşullu biçimlendirmede kullanılan koşulları bilemeyeceğimize göre, bu haliyle ihtiyacınıza çözüm bulunması kanaatimce güç.
.

Uyarınız da haklısınız,
Dikkat edilen husus, dolgu hücrenin kırmızı oluşu idi,
Koşullu biçimlendirme ile bu durumun değişeceğini düşünmediğimden örnek buna göre hazırlanmıştı.

Koşullu biçimlendirme şartları sizin de bahsettiğiniz gibi çeşitli sonuçlara bağlı olarak değişiyor,
örneğin, koşullu biçimlendirme sonucu; kırmızı olan dolgu hücrelere sırasıyla git gibi bir seçenek uygulanması güç diyorsunuz

Yine de teşekkür ederim.
Herşey için sağolun.

 

[Ömer BARAN]

Koşullu biçimlendirme içerisinde olan (ve sonuç veren) örnek belge yüklerseniz
onun (koşullar) üzerinden gidilebilir elbette ve mutlaka çözüm bulunur.

Koşulu bilmeden çözüm biraz güç.

 

[konas06]

Kod Hakkında

Değerli Ömer Baran ustanın yönlendirmesi neticesinde dosyayı aslına uygun küçük bir örnek ile tekrar yüklüyorum.
Zamanı müsait olup, ilgilenebilen ustalara teşekkür ederim.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Arama önceliği renktedir. Yani iki kriterde doluysa önceliği arama kriteriniz RENK olarak baz alınır.

Renk kriterini kaldırırsanız (Dolgu Yok) bu sefer arama kriteri, HÜCRE İÇERİĞİ olarak dikkate alınacaktır.

 

[konas06]

Hocam selamlar, bir kaç husus var;
1- 8. satırdan sonra makro uygun şekilde işlemiyor, belirtilen kriterleri bulmuyor.
2- iki kriterden renk "dolgu yok" seçilip, hücre içeriği örneğin "olur" girildiğinde yada herhangi bir veri girildiğinde işlem yapmıyor.
3- sayfada bildiğiniz gibi, bölmeleri dondur kullanmıştır, ekrana sığmayan kısımlarda, aktif hücre görünmemektedir.
4- bu makro kodu çalışmaya başladığında, belirtilen satır no dan başlayıp sonuncu hücreye kadar gidiyor gayet güzel ancak bazen başa dönmek gerekiyor, tekrar başlatmak için ne yapılmalıdır.

Herşey için teşekkürler.

 

[konas06]

Üstadlar konu günceldir.
Selamlar.

 

[konas06]

Ekteki örnek dosyayı inceleyiniz.

Arama önceliği renktedir. Yani iki kriterde doluysa önceliği arama kriteriniz RENK olarak baz alınır.

Renk kriterini kaldırırsanız (Dolgu Yok) bu sefer arama kriteri, HÜCRE İÇERİĞİ olarak dikkate alınacaktır.

Korhan Hocam kod uygun şekilde çalışmıyor.
Uygun olduğunuzda bakmanız mümkün mü?