|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub TextBox7_Change()
Dim shs As Worksheet
Dim rng As Range
Dim nchek As String
Set shs = Sheets("etelaat")
cr = shs.Cells(shs.Rows.count, "b").End(xlUp).Row
Set rng = shs.Range("b2:b" & cr)
For Each nch In rng
If nch = TextBox7.Text And Len(TextBox7) > 2 Then
TextBox1.Text = nch.Offset(0, 1)
TextBox12.Text = nch.Offset(0, 2)
TextBox14.Text = nch.Offset(0, 3)
TextBox15.Text = nch.Offset(0, 4)
TextBox16.Text = nch.Offset(0, 5)
TextBox17.Text = nch.Offset(0, 6)
Exit For
Else
TextBox1.Text = ""
TextBox12.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
End If
Next nch
End Sub
کامنت