Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.