|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Dim shs As Worksheet
Dim rng As Range
Dim nchek As String
Set shs = Sheets("qekha")
cr = WorksheetFunction.CountA(shs.Range("d:d"))
Set rng = Sheets("qekha").Range("d3:d" & cr)
For Each nch In rng
If nch = TextBox7.Text Then
TextBox1.Text = nch.Offset(0, 1)
TextBox2.Text = nch.Offset(0, 9)
TextBox3.Text = nch.Offset(0, 8)
TextBox4.Text = nch.Offset(0, 6)
TextBox5.Text = nch.Offset(0, 7)
TextBox6.Text = nch.Offset(0, 3)
End If
Next nch
Dim shs As Worksheet
Dim rng As Range
Dim nchek As String
Set shs = Sheets("qekha")
cr = WorksheetFunction.CountA(shs.Range("d:d"))
Set rng = Sheets("qekha").Range("d3:d" & cr)
For Each nch In rng
If nch = TextBox7.Text Then
nch.Offset(0, 1) = TextBox1.Text
nch.Offset(0, 9) = TextBox2.Text
nch.Offset(0, 8) = TextBox3.Text
nch.Offset(0, 6) = TextBox4.Text
nch.Offset(0, 7) = TextBox5.Text
nch.Offset(0, 3) = TextBox6.Text
End If
Next nch
Dim shs As Worksheet
Dim rng As Range
Dim nchek As String
Set shs = Sheets("qekha")
cr = WorksheetFunction.CountA(shs.Range("d:d"))
Set rng = Sheets("qekha").Range("d3:d" & cr)
For Each nch In rng
If nch = TextBox7.Text Then
nch.EntireRow.Delete
End If
Next nch
کامنت