Satır renklendirme

[manisali_mdr]

Arkadaşlar merhaba..satır renklendirme ile ilgili ekteki dosyamı inceler ve yanıtlarsanız sevinirim.şimdiden teşekkürler

 

[Merhum İdris SERDAR]

Arkadaşlar merhaba..satır renklendirme ile ilgili ekteki dosyamı inceler ve yanıtlarsanız sevinirim.şimdiden teşekkürler

Kaç plakanız var? Veya şöyle sorayım. Kaç renk olacak?

.

 

[manisali_mdr]

arkadaşım plaka çok...şöyle desem yeterli olur mu bilmiyorum? kaç renk varsa o kadar yaparsanız benim işimi görür

 

[Merhum İdris SERDAR]

arkadaşım plaka çok...şöyle desem yeterli olur mu bilmiyorum? kaç renk varsa o kadar yaparsanız benim işimi görür

.


http://www.excel.web.tr/showthread.php?t=15017

Buradaki dosyaları inceleyin.


.

 

[manisali_mdr]

arkadaşım ilgine teşekkür ederim ama bunlar benim anlayacağım biçimde değil.ben sadece şunu demek istiyordum : 06 KKK 1 yazdım mı satır sarı olsun...sizin verdiğiniz kodların ne kullanımını biliyorum,ne de örneklerde dediğiniz gibi içindeki yazıları değiştirmeyi..

 

[Merhum İdris SERDAR]

arkadaşım ilgine teşekkür ederim ama bunlar benim anlayacağım biçimde değil.ben sadece şunu demek istiyordum : 06 KKK 1 yazdım mı satır sarı olsun...sizin verdiğiniz kodların ne kullanımını biliyorum,ne de örneklerde dediğiniz gibi içindeki yazıları değiştirmeyi..

Ne yapacağız şimdi...

Dosyanız ekte.

Yapılışına gelince;

Sayfa1'de ALT ve F11 tuşlarına aynı anda basın.

Aşağıdaki kodları kopyalayarak, oraya yapıştırın. (Bu örnek dosyada yapılmış. Sizin yapmanıza gerek yok. Ancak Orijinal dosyanızda yapmanız lazım.)

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Sat = "A" & Target.Row & ":f" & Target.Row
Select Case Target
Case "": Range(Sat).Interior.ColorIndex = 0
Case Is = "[COLOR="Red"]1[/COLOR]": Range(Sat).Interior.ColorIndex = 1
Case Is = "[COLOR="red"]2[/COLOR]": Range(Sat).Interior.ColorIndex = 2
Case Is = "06 KKK 1": Range(Sat).Interior.ColorIndex = 3
Case Is = "06 KKK 2": Range(Sat).Interior.ColorIndex = 4
Case Is = "06 KKK 3": Range(Sat).Interior.ColorIndex = 5
Case Is = "06 KKK 4": Range(Sat).Interior.ColorIndex = 6
Case Is = "06 KKK 5": Range(Sat).Interior.ColorIndex = 7
Case Is = "[COLOR="red"]8[/COLOR]": Range(Sat).Interior.ColorIndex = 6
Case Is = "[COLOR="red"]9[/COLOR]": Range(Sat).Interior.ColorIndex = 9
Case Is = "[COLOR="red"]10[/COLOR]": Range(Sat).Interior.ColorIndex = 10
Case Is = "[COLOR="red"]11[/COLOR]": Range(Sat).Interior.ColorIndex = 11
Case Is = "[COLOR="red"]12[/COLOR]": Range(Sat).Interior.ColorIndex = 12
Case Is = "[COLOR="red"]13[/COLOR]": Range(Sat).Interior.ColorIndex = 13
Case Is = "[COLOR="red"]14[/COLOR]": Range(Sat).Interior.ColorIndex = 14
Case Is = "[COLOR="red"]15[/COLOR]": Range(Sat).Interior.ColorIndex = 15
Case Is = "[COLOR="red"]16[/COLOR]": Range(Sat).Interior.ColorIndex = 16
Case Is = "[COLOR="red"]17[/COLOR]": Range(Sat).Interior.ColorIndex = 17
Case Is = "[COLOR="red"]18[/COLOR]": Range(Sat).Interior.ColorIndex = 18
Case Is = "[COLOR="red"]19[/COLOR]": Range(Sat).Interior.ColorIndex = 19
Case Is = "[COLOR="red"]20[/COLOR]": Range(Sat).Interior.ColorIndex = 20
Case Is = "[COLOR="red"]21[/COLOR]": Range(Sat).Interior.ColorIndex = 21
Case Is = "[COLOR="red"]22[/COLOR]": Range(Sat).Interior.ColorIndex = 22
Case Is = "[COLOR="red"]23[/COLOR]": Range(Sat).Interior.ColorIndex = 23
Case Is = "[COLOR="red"]24[/COLOR]": Range(Sat).Interior.ColorIndex = 24
Case Is = "[COLOR="red"]25[/COLOR]": Range(Sat).Interior.ColorIndex = 25
Case Is = "[COLOR="red"]26[/COLOR]": Range(Sat).Interior.ColorIndex = 26
Case Is = "[COLOR="red"]27[/COLOR]": Range(Sat).Interior.ColorIndex = 27
Case Is = "[COLOR="red"]28[/COLOR]": Range(Sat).Interior.ColorIndex = 28
Case Is = "[COLOR="red"]29[/COLOR]": Range(Sat).Interior.ColorIndex = 29
Case Is = "[COLOR="red"]30[/COLOR]": Range(Sat).Interior.ColorIndex = 30
Case Is = "[COLOR="red"]31[/COLOR]": Range(Sat).Interior.ColorIndex = 31
Case Is = "[COLOR="red"]32[/COLOR]": Range(Sat).Interior.ColorIndex = 32
Case Is = "[COLOR="red"]33[/COLOR]": Range(Sat).Interior.ColorIndex = 33
Case Is = "[COLOR="red"]34[/COLOR]": Range(Sat).Interior.ColorIndex = 34
Case Is = "[COLOR="red"]35[/COLOR]": Range(Sat).Interior.ColorIndex = 35
Case Is = "[COLOR="red"]36[/COLOR]": Range(Sat).Interior.ColorIndex = 36
Case Is = "[COLOR="red"]37[/COLOR]": Range(Sat).Interior.ColorIndex = 37
Case Is = "[COLOR="red"]38[/COLOR]": Range(Sat).Interior.ColorIndex = 38
Case Is = "[COLOR="red"]39[/COLOR]": Range(Sat).Interior.ColorIndex = 39
Case Is = "[COLOR="red"]40[/COLOR]": Range(Sat).Interior.ColorIndex = 40
Case Is = "[COLOR="red"]41[/COLOR]": Range(Sat).Interior.ColorIndex = 41
Case Is = "[COLOR="red"]42[/COLOR]": Range(Sat).Interior.ColorIndex = 42
Case Is = "[COLOR="red"]43[/COLOR]": Range(Sat).Interior.ColorIndex = 43
Case Is = "[COLOR="red"]44[/COLOR]": Range(Sat).Interior.ColorIndex = 44
Case Is = "[COLOR="red"]45[/COLOR]": Range(Sat).Interior.ColorIndex = 45
Case Is = "[COLOR="red"]46[/COLOR]": Range(Sat).Interior.ColorIndex = 46
Case Is = "[COLOR="red"]47[/COLOR]": Range(Sat).Interior.ColorIndex = 47
Case Is = "[COLOR="red"]48[/COLOR]": Range(Sat).Interior.ColorIndex = 48
Case Is = "[COLOR="red"]49[/COLOR]": Range(Sat).Interior.ColorIndex = 49
Case Is = "[COLOR="red"]50[/COLOR]": Range(Sat).Interior.ColorIndex = 50
Case Is = "[COLOR="red"]51[/COLOR]": Range(Sat).Interior.ColorIndex = 51
Case Is = "[COLOR="red"]52[/COLOR]": Range(Sat).Interior.ColorIndex = 52
Case Is = "[COLOR="red"]53[/COLOR]": Range(Sat).Interior.ColorIndex = 53
Case Is = "[COLOR="red"]54[/COLOR]": Range(Sat).Interior.ColorIndex = 54
Case Is = "[COLOR="red"]55[/COLOR]": Range(Sat).Interior.ColorIndex = 55
Case Is = "[COLOR="red"]56[/COLOR]": Range(Sat).Interior.ColorIndex = 56

End Select

End Sub

Kırmızı renkte olanların yerine plakaları koyun.

Renkler 56'da bitiyor. Başka renk yok. O zaman tekrar aynı kod renklerini diğer plakalara uygulayabilirsiniz.


.

 

[manisali_mdr]

ilgine,bilgine teşekkürler arkadaşım.sizin gibi üstadlardan çok güzel şeyler öğreniyoruz burada

 

[Merhum İdris SERDAR]

ilgine,bilgine teşekkürler arkadaşım.sizin gibi üstadlardan çok güzel şeyler öğreniyoruz burada

Font rengi ile dolgu rengi kombinasyonlarını da kullanabilirsiniz o zaman daha çok alternatif elde etmeniz mümkün.

Örneğin, bizim yaptığımız örnekte sadece dolgu rengi kullanılmıştır.
ve kodu örnek:

Case Is = "06 KKK 1": Range(Sat).Interior.ColorIndex = 3

şeklindedir.

Eğer şöyle kullansak:

Case Is = "06 KKK 1": Range(Sat).Font.ColorIndex = 3

font regine göre de bir 56 daha kazanabiliriz.

Yada;

Case Is = "06 KKK 1": Range(Sat).Interior.ColorIndex = 3
                    : Range(Sat).Font.ColorIndex = 4

Case Is = "06 KKK 1": Range(Sat).Font.ColorIndex = 3
                    : Range(Sat).Interior.ColorIndex = 4

kullanırsak, oldukça geniş bir alternatif yelpazesi elde etmemiz mümkün.


.

 

[manisali_mdr]

üstadım ufak bir problem oluştu...benim pc de harika biçimde çalışıyor..bu programı arkadaşım da kullanıyor..benim pc den flasha yükleyip arkadaşın pc ye taşıdım...çalışmadı..arkadaşın pc de excel ile çalışan muhasebe programı da yüklü...acaba kodlara karşı korumalı mı diye aklıma geldi...yardımcı olursanız sevinirim

 

[uzmanamele]

üstadım ufak bir problem oluştu...benim pc de harika biçimde çalışıyor..bu programı arkadaşım da kullanıyor..benim pc den flasha yükleyip arkadaşın pc ye taşıdım...çalışmadı..arkadaşın pc de excel ile çalışan muhasebe programı da yüklü...acaba kodlara karşı korumalı mı diye aklıma geldi...yardımcı olursanız sevinirim

merhaba

makro etkinleştirilmemiştir.
araçlar / makro / güvenlik /orta

 

[Orion1]

Makro ve koşullu biçimlendirme beraber kullanılarak seçilen hücrenin satırı kırmızı renkleniyor.
Örnek dosya aşağıdadır.

 

[manisali_mdr]

üstat yine olmadı yaaa...ben de şaşırdım kaldım inanın

 

[manisali_mdr]

üstad...olmadı yaaa...bende çalışıyor,arkadaşın pc ye kopylalıyorum çalışmıyor..makro güvenlik düzeyini dediğiniz gibi "orta" yaptım yok..."düşük" yaptım yine yok...şaşırdım ben de

 

[manisali_mdr]

Makro çalışmıyor

Arkadaşlar merhaba..geçen gün satır renklendirme ile ilgili bir sorum vardı..sağolsun yurttaş ve uzmanamele arkadaşlar imdadıma yetişti..
ancak şöyle bir problem oluştu :
makroyu bilgisayarımda çalıştırıyoruml..aynı programı arkadaşım da kullandığı için onun pc ye de kopyaladım..fakat orada çalışmadı..burada sordum..makro güvenlik düzeyini "orta" ya getirmemi söylediler..yaptım,fakat yine olmadı..
satır renklendirme konusu eskidiği için arkadaşlar okumamış olabilir düşüncesiyle burada yeni konu başlığı altında sormanın daha uygun olacağını düşündüm..
yardımcı olursanız sevinirim..
şimdiden teşekkürler

 

[Merhum İdris SERDAR]

Arkadaşlar merhaba..geçen gün satır renklendirme ile ilgili bir sorum vardı..sağolsun yurttaş ve uzmanamele arkadaşlar imdadıma yetişti..
ancak şöyle bir problem oluştu :
makroyu bilgisayarımda çalıştırıyoruml..aynı programı arkadaşım da kullandığı için onun pc ye de kopyaladım..fakat orada çalışmadı..burada sordum..makro güvenlik düzeyini "orta" ya getirmemi söylediler..yaptım,fakat yine olmadı..
satır renklendirme konusu eskidiği için arkadaşlar okumamış olabilir düşüncesiyle burada yeni konu başlığı altında sormanın daha uygun olacağını düşündüm..
yardımcı olursanız sevinirim..
şimdiden teşekkürler

Bakın o kadar uzun anlatıyorsunuz ki, bu anlattıklarınız da bir işe yaramıyor. Anlattıklarınızın özeti "Bu dosya başka bir bilgisayarda çalışmadı. Neden?"

Bu bilgi ile nasıl bir yanıt bekliyorsunuz?

Öte taraftan, bu dosyanın çalışmaması için hiç bir neden görünmüyor. Çünkü bu dosyanın örneği, uygulamalarda var. Ve bugüne kadar bu tarz bir şikayet alınmadı.

Şimdi;

1. Nasıl bir hata mesajı alıyorsunuz?
2. Arkadaşınızın kullandığı Excel sürümü ne?
3. Nasıl kopyalıyorsunuz?

Bu ve buna benzer şekilde konuyu anlatırsanız, yardımcı olunabilinir. Yoksa çok güç.

Sizinki "Ben hasta değilim ama arkadaşım hasta. Neden?" gibi bir şey...

.

 

[manisali_mdr]

üstad tekrar merhaba..
hiç bir hata mesajı almıyorum
makro hiç çalışmıyor
excel-2003
normal copy-paste

sanırım yeterli

 

[Merhum İdris SERDAR]

üstad tekrar merhaba..
hiç bir hata mesajı almıyorum
makro hiç çalışmıyor
excel-2003
normal copy-paste

sanırım yeterli

Pek yeterli değil.

1. Sayfayı mı Copy / Paste? Dıosyayı mı Copy/Paste?

Sayfa ise çalışmaz. Dosya ise çalışması gerekir.

2. Arkadaşınızın bigisayarında açtığınızda, açılırken makrolar etkinleşsin mi? gibi bir mesaj kutusu geliyor mu?

3. Arkadaşın bilgisayarında açtıktan sonra, ALT, F11 tuşlarına basın orada kodları görünüyor mu?

.