Kalan güne göre hücre renklendirme

[eXLoRD]

aynı kod değil sizin gönderdiğiniz kodtaki
Else
Cells(i, "I") = ""
Cells(i, "G").Interior.ColorIndex = 0 dı ben = 3 şeklinde sağlayabildim amacım sizi uğraştırmak ve rahatsız etmek değil

 

[Murat OSMA]

Önemli bir değişiklik yapmışsınız, sağlayabilmişsiniz... :bravo::bravo::bravo:

Sizin için sakıncası yoksa uzak masaüstü ile bağlanıp çözebiliriz.
Aksi hâlde, sorunuzla ve sizinle daha fazla vakit kaybetmek istemiyorum...

Dosyanızı görmek istiyorum. Uzaktan yardımda ısrar ediyorum. Bu 4.mesajım oluyor ve hâlâ buna bir cevap vermediniz... :dusun:

 

[eXLoRD]

uzaktan yardım konusunda pek bilgim yok fakat dosyayı ekliyorum

 

[Murat OSMA]

Dosya eklemenize gerek yok. Çözümünü biliyorum zaten ama bende çalışan dosya sizde çalışmıyor. Bu nedenle sizin bilgisayarınızda çözmem gerek...

Uzaktan yardım konusunda bilginizin olmasına gerek yok.

TeamViewer ya da Alpemix isimli programlardan birini indirip kuracaksınız.
Kurduktan sonra ekranda şifre görünecek, bana o şifreyi yollayacaksınız.
Ben de sizin gözetiminizde bilgisayarınıza bağlanıp, dosyada gerekli değişiklikleri yaptıktan sonra dosyayı size teslim edip bağlantıyı bitireceğim.

 

[eXLoRD]

sizde çalışan dosya şuan zaten bende çalışıyor daha önce çalışmamasının sebebi macro güvenlik seviyesiydi onu hallettiğimizden beri çalışıyor benim sizden isteğim süresi geçmiş olanların kırmızı görünmesi bunun için bence TeamViewer veya Alpemix'e gerek yok bence

 

[Murat OSMA]

O zaman biraz kafanızı kullanmanızı tavsiye edeceğim.
Kodları inceleyip, neyi nasıl yaptığıma bir bakın.
Bana gerek kalmadan siz de çözebilirsiniz...

Ali evlendiğinde 23 yaşındaydı, 1 yıl sonra bir çocukları oldu, aradan da 3 sene geçti. Ali şimdi kaç yaşındadır ? :dusun:
İşte bu kadar basit ! Bunu çözebiliyorsanız, sorduğunuz soruyu da çözebilirsiniz...

 

[eXLoRD]

Teşekkür ederim iyi günler

 

[Murat OSMA]

Rİca ederim, size de iyi günler...

 

[eXLoRD]

Hocam eklemem gereken aşağıdaki kod mudur bu şekilde istediğimi sağladım fakat doğru mu yanlış mı emin olmak istedim

ElseIf VBA.Date < Cells(i, "G") Then
Cells(i, "I") = ""
Cells(i, "G").Interior.ColorIndex = 0

bu arada sanırım konuya cevap yazdığınıza pişman oldunuz

 

[Murat OSMA]

İstediğinizi sağladıysanız, doğrusu öyledir...

Tebrik ederim. :bravo:

 

[eXLoRD]

2 gündür sizin başınızıda bir < > işareti için şişirdim kusura bakmayın hakkınızı helal edin hocam

 

[Murat OSMA]

Sorun değil...
VBA ile ilgili gelişiminizde ufak bir katkım olduysa ne mutlu...

İyi günler...

 

[Merhum İdris SERDAR]

.

Sayın eXLoRD ,

Sorunuza baktıkça bana gant grafiğini çağrıştırıyor.

Eğer öyleyse, buradaki örnekleri inceleyiniz:


http://www.excel.web.tr/f170/durumu-gantt-grafik-yontemi-t113560.html

http://www.excel.web.tr/f170/durumu-dinamik-gantt-grafioi-t113564.html

http://www.excel.web.tr/f170/durumu-gantt-ko-ullu-bicimlendrme-conditional-formattting-t113561.html

http://www.excel.web.tr/f170/gantt-grafioi-ornekleri-t88125.html

Değilse, bu mesajımı dikkate almayınız.

.

 

[nesetenekecii]

Renkli tarih aralığı