Hücre boş ise Tarihi yaz Dolu ise ayni kalsın

[northcyprus]

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

 

[ynmcan]

Private Sub Worksheet_Change(ByVal Target As Range)

If [C7] = "" Then
   [C7] = ""
Else
   [C7] = Format(Now, "dd.mm.yyyy hh:mm")
End If

End Sub

Şekinde Deneyin.

 

[northcyprus]

sayın arkadaşım Private Sub Worksheet_Change(ByVal Target As Range) olursa olmuyor butona tıkladığımda işlemi yapması lazım

 

[ynmcan]

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.

If Range("C7") = "" Then
   Range("C7") = Format(Now, "dd.mm.yyyy hh:mm")
Else
Exit Sub
End If

 

[ynmcan]

sayın arkadaşım Private Sub Worksheet_Change(ByVal Target As Range) olursa olmuyor butona tıkladığımda işlemi yapması lazım

Private Sub buton_Click()

GENELMASA.MASA1.BackColor = &HFF&


If Range("C7") = "" Then
   Range("C7") = Format(Now, "dd.mm.yyyy hh:mm")
Else
Exit Sub
End If


SPARİŞ_AL.Show



End Sub

Şeklinde deneyin

 

[northcyprus]

teşekkür ediyorum saygılar

 

[auroraborealis94]

Hocam merhabalar, benim de bu duruma benzer bir problemim var. Benimkinde bir hücre boş değilse şunu şunu yap, boşsa yapmadan atla demek istiyorum. Fakat benim boş olup olmadığını kontrol ettiğim değerler 2 boyutlu bir string dizisi içinde yer alıyor.

Şöyle yazıyorum:
If MyArray(a,b) <> "" Then
...
End If

Fakat subscript out of range hatası veriyor, yardımcı olursanız sevinirim.

 

[hasaona]

Hocam Merhabalar,
Benimde ComboBox evet dediğimde texbox1 ve texbox2 mecburi alan olsun eğer comboBox hayır dersem zorunlu alan olmasın bu şekilde yardımcı ola bilirmisiniz