Makro ile 3 ten fazla koşullu biçimlendirme

[POLARIS]

Arkadaşlar merhaba,
Ekteki dosyada sorunumu açıkladım.
Forumda aradım.Özellikle Yurttaş bey'in 56 koşullu biçimlendirme çalışmasını inceledim ve uygulamaya çalıştım ancak beceremedim.Bir yerlerde yanlışlık yapıyorum.Ancak bulamadım.
Yardımlarınız için şimdiden teşekkürler.
Bu arada Tüm forum ekibi ve katılımcılarının YENİ YILLARINI kutlar, Sağlık,Mutluluk ve Başarılar dilerim.Herşey gönlünüzce olsun.
Hoşçakalınız...

 

[mami68]

Merhabalar,

siz bu verileri internetten almışsınız diyorsunuz,neden siz kendi verilerinizin üstünde işlem yapmıyorsunuz.

Yoksa bu veriler sizin işinize geliyor diye mi işlem yapacaksınız.

 

[POLARIS]

Merhabalar,

siz bu verileri internetten almışsınız diyorsunuz,neden siz kendi verilerinizin üstünde işlem yapmıyorsunuz.

Yoksa bu veriler sizin işinize geliyor diye mi işlem yapacaksınız.

Sayın mami68 Merhaba,
Bu yazdıklarınızdan bir şey anlamadım.Ben internetten verileri alıp Excel'e aktarıp üzerinde çalışıyorum.Koşullu biçimlendirme yaparak işimi kolaylaştıracağım.
Bu verilere üye olan herhes ücretsiz ulaşabilir.
Ayrıca işinize gelmek ne demek?İşlem yapacağımıda nereden ve neden çıkardınız? Konumuzla ilgisi nedir anlayamadım?
İyi çalışmalar...

 

[mami68]

Yanlış anlaşıldım,özür dilerim

demek istediğim eğer bu verileri sadece prova yapmak istiyorsanız bunun üzerinde formül ile uğraşmayalım asıl verilerle uğraşalım.

Çünkü ben dosya üzerinde AL ve Sat işlemini yaptım ama Bekle diye kelime bulamadım.Bulamadığım içinde yukarıda ki yazıyı yazdım yoksa benim gözlerim mi gitti.

 

[POLARIS]

Sayın mami68 üzmeyin kendinizi,
Olur böyle yanlış anlaşılmalar.Önemli değil.
Demek istediğim şu.tabloda B sütunundaki satırlarda ,içerisinde
(5 Gün Ort. yukarı kesti.),(5 Gün Ort. aşağı kesti.),(MACD Sat verdi.),(MACD AL verdi.)gibi ibareler var.Makronun veya formülün mantığını anlayıp koşul seçeneğini tablodaki ibarelere göre dahada artıracağım.Bunların dışında kalanları da BEKLE diye yorumlayacağım.
Yani makroyu hazırlayabilirsem ileride şartlara göre değişiklikte yapacağım.
İlgilerinize Teşekkür eder iyi çalışmalar dilerim.

 

[mami68]

Ben Al ve Sat ile ilgili çalışma yaptım daha da ne yapabilirim diye bakıyorum ama eksik olsa bile,
formül olduğu için siz tamamlarsınız ummuyorum.

 

[POLARIS]

Sayın mami68 merhaba,
3 koşula kadar yapabiliyorum.Sorunum daha fazla koşullu biçimlendirme.1 mesajımda belirttiğim üzere Yurttaş bey'in çözümü var.Ancak ben uyarlayamadım.
İlgilerinize teşekkür ederim.

 

[Merhum İdris SERDAR]

Sayın mami68 merhaba,
3 koşula kadar yapabiliyorum.Sorunum daha fazla koşullu biçimlendirme.1 mesajımda belirttiğim üzere Yurttaş bey'in çözümü var.Ancak ben uyarlayamadım.
İlgilerinize teşekkür ederim.

Koşullarınız net değil. Ben AL, SAT, dışında bir şey anlamadım.

Koşullarınızın hepsini belirleyin.

.

 

[POLARIS]

Sayın yurttaş merhaba,
Ekli dosyada kod sayfasında sizin hazırladığınız kodlar üzerinde çalışıyorum.Koşulları orada belirttim.Ancak yapamadım.
İlgileriniz için teşekkür ederim.

 

[Merhum İdris SERDAR]

Sayın yurttaş merhaba,
Ekli dosyada kod sayfasında sizin hazırladığınız kodlar üzerinde çalışıyorum.Koşulları orada belirttim.Ancak yapamadım.
İlgileriniz için teşekkür ederim.

.

Kodları aşağıdaki gibi yapabilirsiniz. Renkleri ben kafadan salladım. Siz kendinize göre uyarlayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
With Target.Interior
Select Case True


Case InStr(1, Target, "yukarı kesti")
.ColorIndex = 4
Case InStr(1, Target, "MACD Sat verdi")
.ColorIndex = 7
Case InStr(1, Target, "aşağı kesti")
.ColorIndex = 5
Case InStr(1, Target, "Düşüş trendine girdi")
.ColorIndex = 6
Case InStr(1, Target, "Son 1 aylık zirvesinde")
.ColorIndex = 8
Case InStr(1, Target, "Son 12 aylık zirvesinde")
.ColorIndex = 9
Case InStr(1, Target, "Güçlü yükseliş trendinde")
.ColorIndex = 27
Case InStr(1, Target, "İşlem hacmi 3 gündür artıyor")
.ColorIndex = 33
Case InStr(1, Target, "Son 1 haftalık zirvesinde")
.ColorIndex = 40
Case InStr(1, Target, "İşlem hacmi 3 gündür artıyor")
.ColorIndex = 46

Case Else
.ColorIndex = 0
End Select
End With
End Sub

.

 

[POLARIS]

Sayın yurttaş İyi akşamlar,
Siz çözümü sundunuz,
Kodları kod sayfasına yazdım ancak olmadı.
Nerede hata yapıyorum bulamadım.Makro konusunda maalesef çok zayıfım.Size zahmet Hazırlıkçı demez iseniz ve Dosyaya uyarlayabilirseniz bende hatamı görmüş olacağım.
Tekrar teşekkür eder iyi çalışmalar dilerim.

 

[Merhum İdris SERDAR]

Sayın yurttaş İyi akşamlar,
Siz çözümü sundunuz,
Kodları kod sayfasına yazdım ancak olmadı.
Nerede hata yapıyorum bulamadım.Makro konusunda maalesef çok zayıfım.Size zahmet Hazırlıkçı demez iseniz ve Dosyaya uyarlayabilirseniz bende hatamı görmüş olacağım.
Tekrar teşekkür eder iyi çalışmalar dilerim.

.

B sütununda yapmış olduğunuz bütün koşullu biçimlendirmeleri silip, bir kez daha deneyin.

.

 

[POLARIS]

Sayın yurttaş İyi akşamlar,
Dosyam ekte.
Maalesef çok basit bir hatam var ama ne?

 

[Merhum İdris SERDAR]

Sayın yurttaş İyi akşamlar,
Dosyam ekte.
Maalesef çok basit bir hatam var ama ne?

Yapmışsınız zaten. Hücreye çift tıklayarak deneyin.

.

 

[POLARIS]

Sayın yurttaş İyi akşamlar,
Evet sayeniz ve sabrınız sonucunda oldu.Çok teşekkür ederim.
Takdir edersinizki bütün hücreleri tek tek çift tıklamak zor ve zaman alıcı.
Bu makrolar dosya açıldığı zaman otomatik çalışabilirmi?
Yada bir buton koyarak çalıştırabilirmiyiz?
Nasıl yapabilirim?Bu konuda da sabırla yardımcı olabilirmisiniz?
Tekrar teşekkür eder iyi akşamlar dilerim.

 

[Korhan Ayhan]

Selamlar,

Siz önerilen kodu sayfanızın kod bölümünden silin. Aşağıdaki kodu boş bir modüle ekleyin. Daha sonra sayfa üzerine ekleyeceğiniz bir butona atayın.

Option Explicit
 
Sub RENKLENDİR()
    Dim HÜCRE As Range
    
    For Each HÜCRE In Range("B2:B" & [B65536].End(3).Row)
    
        With HÜCRE.Interior
        Select Case True
            Case InStr(1, HÜCRE.Value, "yukarı kesti")
            .ColorIndex = 4
            Case InStr(1, HÜCRE.Value, "MACD Sat verdi")
            .ColorIndex = 7
            Case InStr(1, HÜCRE.Value, "aşağı kesti")
            .ColorIndex = 5
            Case InStr(1, HÜCRE.Value, "Düşüş trendine girdi")
            .ColorIndex = 6
            Case InStr(1, HÜCRE.Value, "Son 1 aylık zirvesinde")
            .ColorIndex = 8
            Case InStr(1, HÜCRE.Value, "Son 12 aylık zirvesinde")
            .ColorIndex = 9
            Case InStr(1, HÜCRE.Value, "Güçlü yükseliş trendinde")
            .ColorIndex = 27
            Case InStr(1, HÜCRE.Value, "İşlem hacmi 3 gündür artıyor")
            .ColorIndex = 33
            Case InStr(1, HÜCRE.Value, "Son 1 haftalık zirvesinde")
            .ColorIndex = 40
            Case InStr(1, HÜCRE.Value, "İşlem hacmi 3 gündür artıyor")
            .ColorIndex = 46
            Case Else
            .ColorIndex = 0
        End Select
        End With
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Merhum İdris SERDAR]

Sayın yurttaş İyi akşamlar,
Evet sayeniz ve sabrınız sonucunda oldu.Çok teşekkür ederim.
Takdir edersinizki bütün hücreleri tek tek çift tıklamak zor ve zaman alıcı.
Bu makrolar dosya açıldığı zaman otomatik çalışabilirmi?
Yada bir buton koyarak çalıştırabilirmiyiz?
Nasıl yapabilirim?Bu konuda da sabırla yardımcı olabilirmisiniz?
Tekrar teşekkür eder iyi akşamlar dilerim.

Dosyanız ekte.

.

 

[POLARIS]

Günaydın,iyi çalışmalar,
Sayın Korhan Ayhan,
Sayın yurttas
Çözümleriniz için Her ikinize de teşekkür ederim.
Geç cevap verdiğim için de kusura bakmayın.Antalyada şiddetli yağış bütün gün sürdü.
Yeni yılınızda Sağlık ,Mutluluk ve başarılar dilerim.
Hoşçakalınız...