• DİKKAT

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

Kalan güne göre hücre renklendirme

  • Konbuyu başlatan Konbuyu başlatan eXLoRD
  • Başlangıç tarihi Başlangıç tarihi
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
 
Önemli bir değişiklik yapmışsınız, sağlayabilmişsiniz... :bravo::bravo::bravo:
Murat OSMA' Alıntı:
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...
Genişletmek için tıkla ...
Dosyanızı görmek istiyorum. Uzaktan yardımda ısrar ediyorum. Bu 4.mesajım oluyor ve hâlâ buna bir cevap vermediniz... :dusun:
 
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.
 
:) 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
 
O zaman biraz kafanızı kullanmanızı tavsiye edeceğim. :D
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...
 
Rİca ederim, size de iyi günler...
 
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:D
 
Son düzenleme:
İstediğinizi sağladıysanız, doğrusu öyledir... ;)

Tebrik ederim. :bravo:
 
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:)
 
Sorun değil...
VBA ile ilgili gelişiminizde ufak bir katkım olduysa ne mutlu...

İyi günler...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst