Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Houston, We've Had a Problem
I'm getting a problem with this line of code, something about global referense or something like that....... Set RngColD = Range("D1", Range("D" & Rows.Count).End(xlUp)) the complete code is this.... Dim RngColD As Range Dim i As Range Dim Info As String Set RngColD = Range("D1", Range("D" & Rows.Count).End(xlUp)) Info = "" For Each i In RngColD If i.Value = Range("A517").Value Then If Info = "" Then Info = i.Offset(, 20).Value Else Info = Info & "," & i.Offset(, 20).Value End If End If Next i Range("G517") = Info Info = "" End Sub -- John21 ------------------------------------------------------------------------ John21's Profile: http://www.excelforum.com/member.php...o&userid=36983 View this thread: http://www.excelforum.com/showthread...hreadid=569407 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Houston, We've Had a Problem
I see nothing distinctly wrong with what you have. Try being a little more
explicit in your referencing to the sheet perhaps. Something like this... Dim RngColD As Range Dim i As Range Dim Info As String Dim wks As Worksheet set wks = ActiveSheet with wks Set RngColD = .Range(.Range("D1"), .Cells(Rows.Count, "D").End(xlUp)) end with Info = "" For Each i In RngColD If i.Value = Range("A517").Value Then If Info = "" Then Info = i.Offset(, 20).Value Else Info = Info & "," & i.Offset(, 20).Value End If End If Next i Range("G517") = Info Info = "" End Sub -- HTH... Jim Thomlinson "John21" wrote: I'm getting a problem with this line of code, something about global referense or something like that....... Set RngColD = Range("D1", Range("D" & Rows.Count).End(xlUp)) the complete code is this.... Dim RngColD As Range Dim i As Range Dim Info As String Set RngColD = Range("D1", Range("D" & Rows.Count).End(xlUp)) Info = "" For Each i In RngColD If i.Value = Range("A517").Value Then If Info = "" Then Info = i.Offset(, 20).Value Else Info = Info & "," & i.Offset(, 20).Value End If End If Next i Range("G517") = Info Info = "" End Sub -- John21 ------------------------------------------------------------------------ John21's Profile: http://www.excelforum.com/member.php...o&userid=36983 View this thread: http://www.excelforum.com/showthread...hreadid=569407 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Colon at the end of excel file name(ex: problem.xls:1, problem.xls | New Users to Excel | |||
Started out as an Access problem. Now an Excel problem | Excel Discussion (Misc queries) | |||
One on One Training needed in Houston | Excel Programming | |||
Using Microsoft Access via Excel VBA, Houston we have a problem | Excel Programming | |||
Problem when multipple users access shared xl-file at the same time, macrocode for solve this problem? | Excel Programming |