Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping Error
This is supposed to loop through a range (move across the row then back
to the beginning of the next) and return every other row in a pop-up box. I'm getting an 'Else Without an If" error - additionally, is this the correct code for it? Thank you so much for your help! Sub CompanionProjectsValidate() Dim Str As String Str = "" Dim k, i As Integer If CompanionComplete.Value = True Then With Range("BK25:DG300") Range("BK27").Select Do While k < 20 For k = 0 To 19 If ActiveCell.Offset(0, k + 1) < "" Then Str = Str & ActiveCell.Offset(0, k + 1) & Chr(10) End If Next k ActiveCell.Offset(1, -19).Select Loop Else: GoTo 10 End If If Str = "" Then GoTo 10 Else: CompanionComplete.Value = False CompleteValidation.TextBox1.Value = Str CompleteValidation.Show End If 10 End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping Error
If you put
End With before Else: GoTo 10 it will compile. Whether or not it will do what you want it do isn't clear - I don't have time to go further into the logic of the code. For one thing, it isn't clear to me the point of the with statement at all - there isn't any expression beginning with a dot in the body of the statement. I don't think that the with as it is would qualify the next range expression (by making it relative to the range in the with header). If that is the sort of thing you want (which would be extremely confusing to me at least) I would think you would need .Range("BK27").Select (note the dot) More than likely, this isn't what you want - so you could also try deleting the with statement rather than adding the "end with" HTH -John Coleman wrote: This is supposed to loop through a range (move across the row then back to the beginning of the next) and return every other row in a pop-up box. I'm getting an 'Else Without an If" error - additionally, is this the correct code for it? Thank you so much for your help! Sub CompanionProjectsValidate() Dim Str As String Str = "" Dim k, i As Integer If CompanionComplete.Value = True Then With Range("BK25:DG300") Range("BK27").Select Do While k < 20 For k = 0 To 19 If ActiveCell.Offset(0, k + 1) < "" Then Str = Str & ActiveCell.Offset(0, k + 1) & Chr(10) End If Next k ActiveCell.Offset(1, -19).Select Loop Else: GoTo 10 End If If Str = "" Then GoTo 10 Else: CompanionComplete.Value = False CompleteValidation.TextBox1.Value = Str CompleteValidation.Show End If 10 End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro looping error | Excel Discussion (Misc queries) | |||
Looping help please | Excel Programming | |||
Error after last object in the array when looping For...each | Excel Programming | |||
Looping | Excel Programming | |||
Strange looping behaviour and Error 400 | Excel Programming |