Yalnız Mesajı Göster
Eski 24-11-2012, 18:14  
ynmcan
Altın Üye
 
Giriş: 29/08/2008
Şehir: istanbul
Mesaj: 653
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Alıntı:
northcyprus tarafından gönderildi Mesajı Görüntüle
sayın hocalarım değerli arkadaşlar
eklemek istediğim kod eğer C7 boş ise (Now, "dd.mm.yyyy hh:mm") formatı olsun dolu ise ayni kalsın nasıl kodlandırılır?


Private Sub buton_Click()

GENELMASA.MASA1.BackColor = &HFF&

If Range("C7") Is Nothing Then
Else
Range("C7") = Format(Now, "dd.mm.yyyy hh:mm")


End If


SPARİŞ_AL.Show



End Sub




böyle yaptım fakat olmuyor neyi eksik aceba??

yardımlarınızı bekliyorum teşekkürler
Soruyu yanlış anlamışım. Aşağıdaki kodu kullanın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Range("C7") = "" Then
   Range("C7") = Format(Now, "dd.mm.yyyy hh:mm")
Else
Exit Sub
End If
ynmcan Çevrimdışı   Alıntı Yaparak Cevapla