|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("h2")) Is Nothing Then
Application.Wait (Now + TimeValue("0:00:05"))
z1 = Sheet1.Cells(Sheet1.Rows.Count, "c").End(xlUp).Row
z2 = Sheet1.Cells(Sheet1.Rows.Count, "h").End(xlUp).Row
If Right(Range("h2"), 10) <> Range("d" & z1) Then
For i = 4 To z2
If Range("j" & i) <> 0 Then
Range("b" & z1 + 1) = Range("i" & i)
Range("a" & z1 + 1) = Mid(Range("h2"), 17, 10)
Range("c" & z1 + 1) = Range("j" & i)
Range("d" & z1 + 1) = Right(Range("h2"), 8)
z1 = z1 + 1
End If
Next
End If
End If
End Sub
کامنت