نویسنده موضوع: اضافه کردن کدی که اگر target خالی بشه target.offset(0,1) نیز خالی بشه  (دفعات بازدید: 31 بار)

d349

  • کاربر فعال
  • ***
  • ارسال: 139
  • جمع امتیازها: +2/-0
با سلام
در بین این کدها می خوام کدی اضافه بشه که اگر  target  دلیت بشه target.offset(0,1)   نیز خالی بشه
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g4:g94")) Is Nothing Then
On Error Resume Next
Target.NumberFormat = "@"
Dim w As Integer
w = Len(Target)
If w <> 10 Then
MsgBox "no"
Target.Select
Exit Sub
End If

Target.Offset(0, 1) = Evaluate("=J_today(1)") & "_" & Format(Now(), "H:mm")
'در اين قست يا در قسمت هاي بالاتر مي خوام کدي اضافه بشه که اگر تارگت خالي شد سلول مقابل تارگت خالي بشه'
End If
End Sub

باتشکر

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران