Hey guys,
Tried code below to read my data from excel to userform . Found this code from youtube and try do modification but not working.
Any one can help?
Private Sub CommandButton1_Click()
Dim ISBNColumn As Integer
Dim TitleColumn As Long
ISBNColumn = 2
TitleColumn = 1
Dim ISBNno As String
Dim Titleno As String
Dim readdata As Range
Set readdata = ThisWorkbook.Sheets("Sheet1")
rowCounter = 0
Do
DoEvents
rowCounter = rowCounter + 1
'readdata = Sheets("Sheet1").Cells(rowCounter, ISBNColumn).Value
readdata.Range (ISBNColumn & rowCounter)
If readdata = ISBNTextBox.Text Then
EPRNTextBox.Text = Sheets("Sheet1").Range(TitleColumn & rowCounter)
End If
Loop Until readdata = ""
End Sub
http://www.excelforum.com/attachment...1&d=1468923106
Bookmarks