• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre Renklendirme

E

elowym

Katılım
26 Nisan 2013
Mesajlar
27
Excel Vers. ve Dili
Excel 2007
Merhabalar,

Ekte sizinle paylaşmak istediğim bir konuya açıklık getirmek istiyorum.

Sürücülerimiz farklı tarihlerde sevkiyata çıkıyor.Her bir sürücü sevkiyata çıktığı zaman o sürücünün hücresi otomatik olarak tek renk olsun istiyorum.Konuyla alakalı yardımlarınızı önemle rica eder,iyi çalışmalar dilerim...
 

Ekli dosyalar

elowym biraz açarmısınız tarihleri girincemi tek renk olacak
yoksa girilmiş kayıtlar tarihi gelincemi tek renk olacak
 
raprens' Alıntı:
elowym biraz açarmısınız tarihleri girincemi tek renk olacak
yoksa girilmiş kayıtlar tarihi gelincemi tek renk olacak
Genişletmek için tıkla ...

Sürücünün yazıldığı satır sadece yazılan sürücüye özel bir renk ile kullanabilirmiyiz ? Daha açık olursak örnek vereyim Sürücü ''Erol Öztürk'' farklı tarihlerde sevkiyata çıkmış olsa bile bu sürücünün rengi örnek olarak kırmızı olsun.

15 sürücüm var.Her sürücümün özel bir rengi olabilirmi ?

Şimdiden teşekkürler
 
Merhaba
İyi Çalışmalar
Dosyanız Ektedir
 
Son düzenleme:
asr35' Alıntı:
Merhaba
İyi Çalışmalar
Dosyanız Ektedir
Genişletmek için tıkla ...

Günaydınlar herkese,

Öncelikle asr 25 hazırlamış olduğun dosya için çok teşekkür ederim.Tam istediğim gibi bir dosya olmuş.Bu sitede emeği geçen,insanlar için çaba sarfeden,zor durumlarımızda imdadımıza yetişen siz değerli yöneticelere sesleniyorum...

Allah hepinizden razı olsun...İyiki varsınız arkadaşlar...
 
Birşey daha sormak istiyorum.Bu tabloyu başka bir sayfada kullanmak istesem nasıl formule ederim.Çünkü sayfa 2 ye kopyalayım dedim olmadı formül bozuldu sanırım.
Tarif ederseniz sevinirim...
 
asr35
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A50")) Is Nothing Then Exit Sub
Select Case Target

Case "BAYRAM KOCABEY"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 3
                
Case "EROL ÖZTÜRK"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 4
                
Case "EROL UÇAR"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 45
                
Case "FATİH YILMAZ"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 6
                
Case "HALİL TOPÇU"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 7

Case "KAMİL DOĞAN"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 8

Case "METİN KUNDAKSIZ"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 9

Case "SEBAHATTİN ÇINAR"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 10

Case "SONER TURGUT"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 52

Case "YUNUS AYDEMİR"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 12

Case "Yedek1"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 13

Case "Yedek2"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 14

Case "Yedek3"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 15

Case "Yedek4"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 16

Case "Yedek5"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 17

Case "Yedek6"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 18

Case "Yedek7"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 19

Case "Yedek8"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 20

Case "Yedek9"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 21

Case "Yedek10"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 22

Case "Yedek11"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 23

Case "Yedek12"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 24

Case "Yedek13"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 25

Case "Yedek14"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 26

Case "Yedek15"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 30
                
                
Case Else
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = xlNone
End Select
End Sub

bu kod ile yapmış . alt + f11 yaparak ulaşabilirsiniz. nasıl yapıldığını
yada koşullu biçimlendirme ile yapabilirsiniz
isimlein yazılacak olan hücre aralığını seçin daha sonra
Koşullu Biçimlendirme
Yeni kural
Biçimlendirilecek olan hücreleri belirlemek için formul kullan.
Formul çubuğunun içine
Kod: 
=$A2="abc"
" abc yerine isim yazın"
dolgu rengini seçin tamama tıklayın.
diğer isimler içinde aynı işlemi yapınız.
 
unsal_' Alıntı:
asr35
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A50")) Is Nothing Then Exit Sub
Select Case Target

Case "BAYRAM KOCABEY"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 3
                
Case "EROL ÖZTÜRK"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 4
                
Case "EROL UÇAR"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 45
                
Case "FATİH YILMAZ"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 6
                
Case "HALİL TOPÇU"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 7

Case "KAMİL DOĞAN"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 8

Case "METİN KUNDAKSIZ"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 9

Case "SEBAHATTİN ÇINAR"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 10

Case "SONER TURGUT"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 52

Case "YUNUS AYDEMİR"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 12

Case "Yedek1"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 13

Case "Yedek2"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 14

Case "Yedek3"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 15

Case "Yedek4"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 16

Case "Yedek5"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 17

Case "Yedek6"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 18

Case "Yedek7"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 19

Case "Yedek8"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 20

Case "Yedek9"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 21

Case "Yedek10"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 22

Case "Yedek11"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 23

Case "Yedek12"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 24

Case "Yedek13"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 25

Case "Yedek14"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 26

Case "Yedek15"
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 30
                
                
Case Else
Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = xlNone
End Select
End Sub

bu kod ile yapmış . alt + f11 yaparak ulaşabilirsiniz. nasıl yapıldığını
yada koşullu biçimlendirme ile yapabilirsiniz
isimlein yazılacak olan hücre aralığını seçin daha sonra
Koşullu Biçimlendirme
Yeni kural
Biçimlendirilecek olan hücreleri belirlemek için formul kullan.
Formul çubuğunun içine
Kod: 
=$A2="abc"
" abc yerine isim yazın"
dolgu rengini seçin tamama tıklayın.
diğer isimler içinde aynı işlemi yapınız.
Genişletmek için tıkla ...

Çok teşekkür ederim iyiki varsınız...:)
 
Merhaba İyi Çalışmalar
Excel'i Açın
Klavyeden Alt + F11
Açılan Kod Bölümünde Trakya
Sayfasındaki Kodların Hepsini
Kopyalayın
Kod Bölümünde Solda Yukarıda
Sayfa İsimleri Var
Hangi Sayfada Uygulama
Yapmak İstiyorsanız
O Sayfayı Seçin Ve Kopyaladığınız
Kodları O Sayfaya Yapıştırın
Kodlar O Sayfada Çalışacaktır
 
asr35' Alıntı:
Merhaba İyi Çalışmalar
Excel'i Açın
Klavyeden Alt + F11
Açılan Kod Bölümünde Trakya
Sayfasındaki Kodların Hepsini
Kopyalayın
Kod Bölümünde Solda Yukarıda
Sayfa İsimleri Var
Hangi Sayfada Uygulama
Yapmak İstiyorsanız
O Sayfayı Seçin Ve Kopyaladığınız
Kodları O Sayfaya Yapıştırın
Kodlar O Sayfada Çalışacaktır
Genişletmek için tıkla ...

Teşekkür ederim asr35
 
Kolay Gelsin
İyi Çalışmalar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst