T
Tealina.Mairs
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("BK25G300")
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
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("BK25G300")
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