|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub Row()
Dim c As Range
Dim i
ActiveSheet.Select
If Range("b2") = "" Then Exit Sub
For Each c In Range("B2", Range("B65536").End(xlUp))
If c.Value <> "" Then
c.Offset(0, -1) = i + 1
i = i + 1
End If
Next c
End Sub
Private Sub CommandButton1_Click()
Sheet1.Select
Range("A65536").End(xlUp).Select
With Selection
.Offset(1, 1) = TextBox1.Text
.Offset(1, 2) = TextBox2.Text
.Offset(1, 3) = TextBox4.Text
.Offset(1, 4) = TextBox3.Text
Call Row
End With
End Sub
کامنت