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
کامنت