5 Farklı koşul 5 farklı renk

[silver_storm]

Arkadaşlar Kolay gelsin öncelikle ;

Benim sorunum şu ;

Excel de yapmak istediğim bir sayfa var ve bu sayfada o5 hücresine örneğin Üretim Fason vb. girdiğim zaman satırın tamamen renginin değişmesi

Yani o5 hücresine üretim yazdığım da A5 hücresinden P 5 hücresine kadar sarıya boyanması ama Fasonu seçtiğim de örneğin maviye boyanması gibi .

Ancak şöyle bir sorun var benim istediğim 5 farklı koşul ve 5 farklı renk yani koşulda Fson yazdığında farklı renk Üretim yazdığında farklı renk Yrd.Mlz.Yazdığında farklı renk olması lazım
Sayın yurttaş ı n verdiği makro yu bir türlü yapamadım.Sorun nerede onu da çözemedim

Şimdiden teşekkür ederim

 

[mersilen]

Merhaba

İnceleyiniz.
Renkleri ve hücre aralığını koşullu biçimlendirme/kuralları yönet kısmından değiştirebilirsiniz.

 

[silver_storm]

Merhaba

İnceleyiniz.
Renkleri ve hücre aralığını koşullu biçimlendirme/kuralları yönet kısmından değiştirebilirsiniz.

Çok teşekkür ederim ilginiz için ancak benim yapmak istediğim 5 farklı koşulda 5 farklı renk yapmaktı.

Sizin yaptığınız 3 farklı koşul olduğundan dolayı pek işime yaramadı ama yine de teşekkürler

 

[Korhan Ayhan]

Merhaba,

Siz Excel 2000 kullandığınız için önerilen çözüm işinize yaramıyor. Siz makro kullanarak dilediğiniz kadar koşullu renklendirme yapabilirsiniz. Aşağıdaki örnek kodu deneyin.

Kodu ilgili sayfanın kod bölümüne uygulayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("O5:O21")) Is Nothing Then Exit Sub
        Select Case Target
            Case "Üretim"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 3
            Case "Yrd.Mlz"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 4
            Case "Fason"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 6
            Case "İşçilik"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 7
            Case "Satınalma"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 8
            Case Else
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = xlNone
        End Select
End Sub

 

[silver_storm]

Merhaba,

Siz Excel 2000 kullandığınız için önerilen çözüm işinize yaramıyor. Siz makro kullanarak dilediğiniz kadar koşullu renklendirme yapabilirsiniz. Aşağıdaki örnek kodu deneyin.

Kodu ilgili sayfanın kod bölümüne uygulayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("O5:O21")) Is Nothing Then Exit Sub
        Select Case Target
            Case "Üretim"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 3
            Case "Yrd.Mlz"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 4
            Case "Fason"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 6
            Case "İşçilik"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 7
            Case "Satınalma"
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 8
            Case Else
                Range("A" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = xlNone
        End Select
End Sub

Korhan Ayhan ustam gerçekten çok teşekkür ederim işime çok yaradı.Allah razı olsun sizden ve emeklerinizden sizin ile beraber diğer ustalardan ve yardım edenlerden...

Ben bunu 2007 Excel de yapmak istesem yine makro yazmak zorundamıydım ? Buna da cevap verirseniz çok sevinirim

 

[Korhan Ayhan]

Merhaba,

2007 ve üst vesiyonlarda "Koşullu Biçimlendirme" özelliği ile rahatlıkla yapabilirsiniz. Yani makro kullanmanıza gerek yok.

 

[silver_storm]

Merhaba,

2007 ve üst vesiyonlarda "Koşullu Biçimlendirme" özelliği ile rahatlıkla yapabilirsiniz. Yani makro kullanmanıza gerek yok.

Çok teşekkür ederim hocam elleriniz dert görmesin sağolun

 

[osmansungu]

Arkadaşlar hepinize merhabalar Web siteniz sayesinde excel e hayranlığım gün geçtikçe artmaya başladı durum böyle oluncada acaba Excelde bunu nasıl yapabilirim şu olurmu gibi fikirler üretmeye başladım. Bunlardan 2 tanesini sizlere soracağım.

1.İsteğim

Çalıştığım firma Kamu ihalelerine giriyor bunların takibi için excel üzerinde 2 farklı çalışma sayfası kullanıyorum. 1.sayfa Girilecek İhaleler 2.Sayfa Girilen ihaleler. ortalama A1 den A10'a kadar ihale tarihleri oluyor. Ve günü gelen ihaleyi 1.sayfadan kesip 2.sayfadaki sıralamaya ekliyorum. bunu excel üzerinde herhangi bir macro ile otomatik olarak yapabilirmiyiz ?

2.İsteğim

Beton fiyatlarını listelediğimiz bir çalışma sayfamız var ve burada 3-4 firmanın fiyatları yer alıyor.
Örneğin
...............................A firması B Firması C firması
..... Ø1600Koruge boru... 5TL..........6TL........ 4TL

Bu fiyatlardan Küçük olan YEŞİL arada kalan SARI Yüksek olan KIRMIZI olsun istiyorum Koşullu biçimlendirme yaptığımda her hücreye tek tek bunu uygulamam gerekiyor aksi taktirde kopyala yapıştır yaparsam ilk kopyalanan hücrelerdeki bilgiler ile karşılaştırma yapıyor bu liste ortalama 200 satırdan meydana geldiği için iş çığrından çıkıyor. umarım düşüncelerimi doğru bir şekilde anlatabilmişimdir. Yardımlarınız için şimdiden tüm EXCEL severlere teşekkürler...

Ekte basit bir örnek hazırladım umarım yardımcı olur...

 

[Necdet]

Merhaba,

Sorunuzun ilk bölümünü karşılayacak makroyu hazırladım.

Aşağıdaki kodlar ThisWorkbook'un kod bölümünde olmalı.
Dosya her açılışında günü gelen ihaleleri ilgili sayfaya aktarır.

Private Sub Workbook_Open()
    
    Dim wsK As Worksheet, _
        wsN As Worksheet, _
        i   As Long, _
        j   As Long, _
        Adt As Integer
    
    Set wsK = Sheets("Girilecek İhaleler")
    Set wsN = Sheets("Girilen İhaleler")
    
    Application.ScreenUpdating = False
    
    wsK.Select
    j = wsN.Cells(Rows.Count, "A").End(3).Row
    i = 3
    
    Do Until Cells(i, "A") = ""
        If Cells(i, "A") = Date Or Cells(i, "A") < Date Then
            j = j + 1
            Adt = Adt + 1
            Range("A" & i & ":E" & i).Copy wsN.Cells(j, "A")
            Range("A" & i & ":E" & i).Delete Shift:=xlUp
        End If
        i = i + 1
    Loop
    
    If Adt = 0 Then
        MsgBox "GÜNÜ GELEN İHALE BULUNAMADI....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    Else
        MsgBox "GÜNÜ GELEN " & Adt & " ADET İHALE Girilen İhaleler SAYFASINA AKTARILMIŞTIR....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    End If
    
    Application.ScreenUpdating = True
    
End Sub

Sorunuzun ikinci bölümü için ayrı bir konu açınız.

 

[osmansungu]

Merhaba,

Sorunuzun ilk bölümünü karşılayacak makroyu hazırladım.

Usta Süpersin sana ne kadar teşekkür etsem azdır. Allah senden razı olsun inan bunları görünce bu konuda özel eğitim almayıbile düşünüyorum. Macro kodları konusunda hiç bilgim yok sanırım basic kodları kullanılıyor. Macro hazırlamayı öğrenebileceğimiz bir program yada döküman mevcutmudur yoksa VisualBasic mi öğrenmemiz gerekiyor ?