Snasui Excel Forum

Code: Select all

cmdAdd.Enabled = False
Dim X As Long
Dim Y As Long
X = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
For Y = 6 To X
If Sheet6.Cells(Y, 2).Value = TextBox1.Text Then
If Sheet6.Cells(Y, 7).Value = TextBox2.Text Then
TextBox3 = Sheet6.Cells(Y, 1).Value
Tllist = Sheet6.Cells(Y, 2).Value
TMolcular = Sheet6.Cells(Y, 3).Value
ComGrade = Sheet6.Cells(Y, 4).Value
TPurity = Sheet6.Cells(Y, 5).Value
TCasNo = Sheet6.Cells(Y, 6).Value
TBottle = Sheet6.Cells(Y, 7).Value
TLot = Sheet6.Cells(Y, 8).Value
ComCompany = Sheet6.Cells(Y, 9).Value
TSize = Sheet6.Cells(Y, 10).Value
TTemperature = Sheet6.Cells(Y, 11).Value
TInputday = Sheet6.Cells(Y, 12).Value
TOutputday = Sheet6.Cells(Y, 13).Value
TExpire = Sheet6.Cells(Y, 14).Value
TStatus = Sheet6.Cells(Y, 15).Value
ComType = Sheet6.Cells(Y, 16).Value
TCoa = Sheet6.Cells(Y, 17).Value
cmdUpdate.Visible = True
Me.cmdDelete.Visible = True
Comopen.Visible = True
End If
End If
Next Y

Code: Select all

X = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
For Y = 6 To X

Code: Select all

X = Sheet8.Range("A" & Rows.Count).End(xlUp).Row
For Y = 17 To X