Hi Everyone,
I am not understanding how this is working...
Attached you will find a simple workbook 1 sheet 1 column of data 9 rows long when the user form is up and you click the button the following executes
Dim editvalue As Range
Dim EV As Range
Dim nb As Integer
Dim LRow As Long
Dim LListRow As Long
Dim BMatch As Boolean
Dim tmp As String
Dim tmp2 As String
Dim ColumnNumber As Long
Dim x As Integer
tmp = ""
Worksheets("Position Packs").Select
Set editvalue = Sheet9.Range("C:EE").Find(what:=emppack, LookIn:=xlValues)
tmp = editvalue.Address(0, 0)
'Convert To Column Number
'ColumnNumber = Range(tmp & 1).Column
ColumnNumber = Range(tmp).Column
nb = WorksheetFunction.CountA(Columns(ColumnNumber))
(Positive) 'nb=9
Set editvalue = Sheet1.Range("C:EE").Find(what:=emppack, LookIn:=xlValues).Offset(nb, 0)
(Negative) For x = -1 To -nb Step -1
Me.tb1.Value = editvalue.Offset(x, 0)
Stop
Next
Trying the for x with 1 thru 9 does not work (Positive numbers as they were pulled).
but when I go to retrieve the data I need to use a negative number and I do not understand why?
I only want to pull the 8 entries under the header "ALL".
Also, I'm all ears and eyes if there is a better way to do this.
Thank you!
Bookmarks