• DİKKAT

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

tarhi büyükse uyarı

othara

Altın Üye
Katılım
1 Ağustos 2005
Mesajlar
546
Excel Vers. ve Dili
2016 PLUS
A1 hücresinde bugunki tarih olacak 17.12.2013
b1 hücresinde ise 11.12.2013 eger b1 hücresindeki tathi a1 den kücük ise c1 hücresine kapatılmış olması gerekiyor yazmasını istiyorum

teşekkürler
 
selam
c1 hücresine
=EĞER(B1<A1;"Kapatılmış";"")
yazarsanız, b1 deki tarih a1 deki tarihten küçük olduğunda Kapatılmış yazacaktır
kolay gelsin..
 
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son, s1, i As Long
On Error Resume Next
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")

s1.Range("C1:C" & Rows.Count).ClearContents
son = s1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To son
If s1.Range("A" & i) > s1.Range("B" & i) Then s1.Range("c" & i) = "KAPATILMIŞ"

Next
Application.ScreenUpdating = True
End Sub
Merhabalar..
Sayfanın kod bölümüne yapıştırırsanız yine istediğinizi kod ile sağlamış olursunuz.
A sütunundaki dolu hücre sayısınca işlem yapar formülü uzatmanıza gerek kalmaz
 
Son düzenleme:
Geri
Üst