Satır renklendirme

manisali_mdr · 21 Ekim 2009

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

Merhum İdris SERDAR · 21 Ekim 2009

manisali_mdr' Alıntı:
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 · 21 Ekim 2009

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 · 21 Ekim 2009

manisali_mdr' Alıntı:
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 · 21 Ekim 2009

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 · 21 Ekim 2009

manisali_mdr' Alıntı:
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.)

Kod:

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 · 21 Ekim 2009

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

Merhum İdris SERDAR · 21 Ekim 2009

manisali_mdr' Alıntı:
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:

Kod:

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

şeklindedir.

Eğer şöyle kullansak:

Kod:

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

font regine göre de bir 56 daha kazanabiliriz.

Yada;

Kod:

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

Kod:

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 · 22 Ekim 2009

ü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 · 22 Ekim 2009

manisali_mdr' Alıntı:
ü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 · 22 Ekim 2009

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 · 23 Ekim 2009

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

manisali_mdr · 23 Ekim 2009

ü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 · 23 Ekim 2009

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 · 23 Ekim 2009

manisali_mdr' Alıntı:
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 · 23 Ekim 2009

ü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 · 23 Ekim 2009

manisali_mdr' Alıntı:
ü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?

.

Satır renklendirme

manisali_mdr

Banned

Ekli dosyalar

Merhum İdris SERDAR

Moderatör

manisali_mdr

Banned

Merhum İdris SERDAR

Moderatör

manisali_mdr

Banned

Merhum İdris SERDAR

Moderatör

Ekli dosyalar

manisali_mdr

Banned

Merhum İdris SERDAR

Moderatör

manisali_mdr

Banned

uzmanamele

Uzman

Orion1

Uzman

Ekli dosyalar

manisali_mdr

Banned

manisali_mdr

Banned

manisali_mdr

Banned

Merhum İdris SERDAR

Moderatör

manisali_mdr

Banned

Merhum İdris SERDAR

Moderatör