Kalan güne göre hücre renklendirme

[eXLoRD]

mesela G2 hücresinde 15.07.2012 15:28 gibi bir tarih var bu tarihe göre 2. satırın tümünü veya 2. satırda herhangi bir hücreyi ayın 12'sinde hiçbir renk olmayacak 13'inde sarı 14'unda turuncu 15'unda kırmızı olacak şekilde otomatik olarak ayarlayabilir miyiz?

birde A sütununa otomatik olarak rastgele birbirinden farklı olmak koşulu ile bir seri no gibi harf rakam karışık bir kod verebilir miyiz?

 

[Murat OSMA]

Dosyanızı ekler misiniz ?

 

[eXLoRD]

Dosyanızı ekler misiniz ?

istediğim 2. satırın renkli olması veya H2 gibi farklı bir hücrede renkli olsa olur

 

[Murat OSMA]

mesela G2 hücresinde 15.07.2012 15:28 gibi bir tarih var bu tarihe göre 2. satırın tümünü veya 2. satırda herhangi bir hücreyi ayın 12'sinde hiçbir renk olmayacak 13'inde sarı 14'unda turuncu 15'unda kırmızı olacak şekilde otomatik olarak ayarlayabilir miyiz?

birde A sütununa otomatik olarak rastgele birbirinden farklı olmak koşulu ile bir seri no gibi harf rakam karışık bir kod verebilir miyiz?

Mesajınızdan ve gönderdiğiniz dosyadan bir şey anlamadım. Daha açık, (en basit) bir şekilde anlatır mısınız ? :dusun:

 

[eXLoRD]

Mesajınızdan ve gönderdiğiniz dosyadan bir şey anlamadım. Daha açık, (en basit) bir şekilde anlatır mısınız ? :dusun:

belirlediğimiz herhangi bir tarihe kaldığı gün sayısına göre renk vermek istiyorum mesela 3gün kaldığında sarı 2 gün kaldığında yeşil 1 gün kaldığında turuncu 0gün yani o tarihe geldiğimizde kırmızı yanmasını istiyorum

 

[eXLoRD]

Mesajınızdan ve gönderdiğiniz dosyadan bir şey anlamadım. Daha açık, (en basit) bir şekilde anlatır mısınız ? :dusun:

çalışmayı tekrar gönderiyorum bu sefer biraz daha açıklayıcı olmuştur umarım
E2 hücresine girdiğimiz sayıya göre G2'deki tarih değişiyor G2'deki tarihin A11 göre büyük veya eşit olması halinde 2. satırın kırmızı olmasını ayarladım ve A11'e göre küçük olması halinde ise turuncu oluyor fakat benim ayarlıyabildiğime göre 10günde kalsa 20 günde kalsa turuncu oluyor fakat ben sadece 3 gün kaldığında farklı renk 2 gün kaldığında farklı renk 1 gün kaldığında farklı renk istiyorum ve ben bunları koşullu biçimlendirme ile ayarladım fakat koşullu biçimlendirmeden 3 taneden fazla koşul eklenmiyor yani 3 farklı renge ayarlayamayız ama bunu başka bir yol ile yapmamıza imkan var mı?

 

[Murat OSMA]

Son mesajınızı okumadım.

Önceki mesajınız için şu kodları bir deneyiniz;
Kodları ThisWorkbook kod sayfasına yazın.

Private Sub Workbook_Open()
    Dim i As Integer
    For i = 2 To Range("E65536").End(3).Row
        If VBA.Date - Cells(i, "G") = 3 Then
            Cells(i, "I") = "3 gün kaldı"
            Cells(i, "G").Interior.ColorIndex = 6
        ElseIf VBA.Date - Cells(i, "G") = 2 Then
            Cells(i, "I") = "2 gün kaldı"
            Cells(i, "G").Interior.ColorIndex = 43
        ElseIf VBA.Date - Cells(i, "G") = 1 Then
            Cells(i, "I") = "1 gün kaldı"
            Cells(i, "G").Interior.ColorIndex = 45
        ElseIf VBA.Date = Cells(i, "G") Then
            Cells(i, "I") = "Zamanı geldi"
            Cells(i, "G").Interior.ColorIndex = 3
        End If
    Next i
    i = Empty
End Sub

Sıra Numarası için, Net i satırından önce şu satırı ilave edin; Cells(i, "A") = i - 1

 

[eXLoRD]

bu verdiğiniz kodu ThisWork'e yazdım fakat herhangi bir şey olmadı

 

[Murat OSMA]

Lütfen mesajınızdaki alıntıyı siler misiniz ? Gereksiz yer kaplıyor.

O kod dosya her açıldığında çalışır...
Dosyayı kapatıp tekrar açın. Eğer yine bir değişiklik yok ise; tarihlerinizi kontrol edin.

 

[eXLoRD]

bu verdiğiniz kodu ThisWork'e yazdım fakat herhangi bir şey olmadı

 

[eXLoRD]

Lütfen mesajınızdaki alıntıyı siler misiniz ? Gereksiz yer kaplıyor.

O kod dosya her açıldığında çalışır...
Dosyayı kapatıp tekrar açın. Eğer yine bir değişiklik yok ise; tarihlerinizi kontrol edin.

açıp kapattım fakat yine bir değişiklik göremedim dosyayı ekledim birde siz bakın isterseniz belki ben bir yanlışlık yapmışımdır

 

[Murat OSMA]

I sütununa Zamanı geldi yazıp, G sütunundaki tarihin olduğu hücreyi (G2) kırmızıya boyamadı mı ? :dusun:

↓

 

[eXLoRD]

I sütununa Zamanı geldi yazıp, G sütunundaki tarihin olduğu hücreyi (G2) kırmızıya boyamadı mı ? :dusun:

↓

hayır acaba 2003'te mi böyle bir sorun oluyor ?

 

[Murat OSMA]

Sanmıyorum...

İsterseniz bir de Module içerisine yazıp çalıştırınız...

 

[eXLoRD]

Sanmıyorum...

:dusun::dusun:

 

[Murat OSMA]

Dosyanızın boyutu içeriğine göre fazlaydı, yeni boş bir Excel'e aktardım.

Ek'teki dosyayı bir deneyiniz...

 

[Murat OSMA]

Yine olmazsa, belki tarihlerde yanlış işlem yapıyor olabilirim.

If VBA.Date - Cells(i, "G") = 3 Then satırını ve diğer =2 - = 1 satırlarını aşağıdaki gibi değiştirip bir deneyiniz;
If Cells(i, "G") - VBA.Date = 3 Then

Hücredeki tarihten bugünkü tarihi çıkaralım...

 

[eXLoRD]

Dosyanızın boyutu içeriğine göre fazlaydı, yeni boş bir Excel'e aktardım.

Ek'teki dosyayı bir deneyiniz...

2010'nin deneme sürümü var onda daha önce verdiğiniz kod gözüküyordu fakat işlem yapamıyordum deneme olduğu için bunda 2010'dada gözükmüyor üstelik 2010'da macro hata verdi diyor birde ekran görüntüsü ekledim belki bununla ilgili birşeydir

 

[Murat OSMA]

Konudan alâkasız ama, rakamların sonundaki nin, nun takılarını neye göre yazıyorsunuz ? :dusun: Mesajınızı okurken zorlanıyorum...

13'inde sarı 14'unda turuncu 15'unda kırmızı olacak şekilde otomatik olarak ayarlayabilir miyiz?

2010'nin deneme sürümü var

2010 deneme sürümünü hiç kullanmadım. 2010 deneme sürümünün görünümü 2003 ile aynı mı ? :dusun: :dusun: :dusun: Enteresan...
Dediğim gibi 2010 deneme sürümünü hiç kullanmadım net bir şey söyleyemeceğim ama, isterseniz şu bağlantıyı bir inceleyiniz;
http://office.microsoft.com/tr-tr/excel-help/HA001118990.aspx

Halit Bey'in hazırladığı videoya da göz atabilirsiniz...
http://www.excel.web.tr/f157/ofis-2003-u-ilk-kullananlar-icin-makro-guvenlik-t104854.html


O da olmazsa, sizin için bir sakıncası yoksa "TeamViewer" ya da "Alpemix" ile Uzak Masaüstü Bağlantısı kurabiliriz... Dosyayı bilgisayarınızda incelyip, çözebilirim..

 

[Murat OSMA]

Ne zaman bir cevap vereceksiniz acaba ? :dusun: :dusun:
Çıkacağım sizi bekliyorum...