• DİKKAT

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

Today ( Bugün ) Sorunu

  • Konbuyu başlatan Konbuyu başlatan ZorBey_
  • Başlangıç tarihi Başlangıç tarihi
Z

ZorBey_

Destek Ekibi
Destek Ekibi
Katılım
14 Mayıs 2011
Mesajlar
2,185
Excel Vers. ve Dili
Excel 2003 Türkçe
Merhaba
İyi Çalışmalar

Günün Tarihini F Sutunundan Alıyor
Hesaplamasını Ona Göre Yapıyor
Günün Tarihini
F Sutunundan Değilde
F Sutunu Silelim
Makronun İçindeki Kodlardan
Günün Tarihini Almasını İstiyorum
Today Yazarak Uğraşıyorum Ama
Hata Veriyor
Yardımcı Olabilirmisiniz.
 
Son düzenleme:
date yazın.
 
Kodunuzu satırını aşağıdaki gibi değiştirin.
Kod: 
"=IF(RC[-1]="""","""",IF(RC[-1]>today(),""Ödemeye  ""&RC[-1]-today()&""  Gün Var"",IF(RC[-1]<today(),""Ödendi  ""&today()-RC[-1]&""  Gün Oldu "",IF(RC[-1]=today(),""Dikkat Bugün Ödeme Var""))))"
 
Merhaba,
Sayfanın kod bölümünde aşağıdaki kodu deneyin.
Umarım işiniz görür.
Selametle kalın

Private Sub Worksheet_Activate()
Range("f1") = Date
End Sub
 
Evet
Tamam Oldu
Sayın Orion1
Sayın turist
Çok Teşekkür Ederim
Sağolun Var Olun
Allah Razı OLsun.
 
Herkese Çok Teşekkür Ederim
 
Aşağıdaki kodu da kullanabilirsiniz
Kod: 
Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
    lastRow = Range("A3:A" & Rows.Count).End(xlDown).Row
    
    Range("H2").Select
    Range("H2:H" & lastRow).ClearContents

    For iRow = 2 To lastRow
        If Cells(iRow, 6) = "Tamam" Then
            If Cells(iRow, 7).Value = "" Then
                Cells(iRow, 8).Value = ""
            ElseIf Cells(iRow, 7).Value > Date Then
                Cells(iRow, 8).Value = "Ödemeye " & Cells(iRow, 7).Value - Date & " Gün Var"
            ElseIf Cells(iRow, 7).Value < Date Then
                Cells(iRow, 8).Value = Date - Cells(iRow, 7).Value & " Gün Önce Ödendi"
            ElseIf Cells(iRow, 7).Value = Date Then
                Cells(iRow, 8).Value = "Dikkat Bugün Ödeme Var !"
            End If
        Else
            Cells(iRow, 8) = Date - Cells(iRow, 7).Value & " Geçmiş Ancak Henüz Ödeme Yapılmamış"
        End If
    Next
    
    Range("A1").Select
    Application.ScreenUpdating = True

End Sub
 
Merhaba
İyi Akşamlar
Hata Veriyor
Acaba Yalnış Bir Şeymi
Yapıyorum.
 
Son düzenleme:
İyi Akşamalar
Sayın
Vardar07
Evet Güzel Bir Çalışma OLdu
Çok Teşekkür Ederim
Bir Ricam Var
Şu G Sutunu İşleri Karıştırıyor
Tamam YAzan Yerler
G Yi Dikkate Almadan OLamazmı Acaba
Yalnızca H Yi Dikkate Alsın
Tekrar Teşekkür Ederim
Allah RAzı OLsun
Hakkınızı HElal Edin.
 
Son düzenleme:
Kodu Aşağıdaki ile Değiştirin.

Kod: 
Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
    lastRow = Range("A2:A" & Rows.Count).End(xlDown).Row
    
    Range("ı2").Select
    Range("ı2:ı" & lastRow).ClearContents

    For iRow = 2 To lastRow
                   If Cells(iRow, 8).Value = "" Then
                Cells(iRow, 9).Value = ""
            ElseIf Cells(iRow, 8).Value > Date Then
                Cells(iRow, 9).Value = "Ödemeye " & Cells(iRow, 8).Value - Date & " Gün Var"
            ElseIf Cells(iRow, 8).Value < Date Then
                Cells(iRow, 9).Value = Date - Cells(iRow, 8).Value & " Gün Önce Ödendi"
            ElseIf Cells(iRow, 8).Value = Date Then
                Cells(iRow, 9).Value = "Dikkat Bugün Ödeme Var !"
          
        Else
            Cells(iRow, 9) = Date - Cells(iRow, 8).Value & " Geçmiş Ancak Henüz Ödeme Yapılmamış"
        End If
    Next
    
    Range("A1").Select
    Application.ScreenUpdating = True

End Sub
 
Merhaba
Sayın
Vardar07
Çok Teşekkür Ederim
Sağolun
İyi Çalışmalar.
 
Merhaba,
Sizde Sağolun İyi Çalışmalar.
 
Sütun adreslerini değiştirdiğiniz için benim gönderdiğim kod çalışmamış. Bunu gözden kaçırdınız anladığım kadarıyla.
 
Merhaba
Sayın
SadiSerdari
Evet Haklısınız
Çok Teşekkür Ederim
Sağolun
İyi Çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst