|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub code_Change()
z1 = Range("sales[[#Headers],[کد]]").End(xlDown).Row
If Len(code) > 1 Then
For i = 6 To z1
If Left(Range("d" & i), Len(code)) = code Then
TextBox1 = Range("e" & i)
Else
Range("d" & i) = ""
End If
Next
End If
End Sub
Private Sub code_Change()
z1 = Range("sales[[#Headers],[کد]]").End(xlDown).Row
If Len(code) > 1 Then
For i = 6 To z1
If Left(Range("d" & i), Len(code)) = code Then
TextBox1 = Range("e" & i)
Else
Range("d" & i) = ""
End If
Next
End If
End Sub
.png "min17")
Private Sub code_Change()
z1 = Cells(Rows.count, "b").End(xlUp).Row
If Len(code) > 1 Then
For i = 6 To z1
If Left(Range("d" & i), Len(code)) = code Then
TextBox1 = Range("e" & i)
Exit For
Else
TextBox1 = ""
End If
Next
End If
End Sub
.png "min13")
کامنت