Change code to select columns B:D instead of just B

[APElliott]

Hello,

Can anyone change the following code to select items in columns b to d instead of just b

Sub selectdiscontrg()
x = 0
For i = 1 To Range("s65536&quot.End(xlUp).Row

If Range("s" & i).Text = "01" Then
If x < 1 Then
rgSel = &quot;B&quot; & i
Else
rgSel = rgSel & &quot;,B&quot; & i
End If
x = x + 1
Else
End If
Next i
Range(rgSel).Select
End Sub

Thankyou

Andrew

 

[Loomah]

hi andrew

replace the existing lines with these

rgSel = &quot;B&quot; & i & &quot;&quot; & i
rgSel = rgSel & &quot;,B&quot; & i & &quot;&quot; & i

happy friday
;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[danvlas]

Have you tried this?

rgSel = &quot;B&quot; & i & &quot;&quot; & i

instead of the entire If below

If x < 1 Then
rgSel = &quot;B&quot; & i
Else
rgSel = rgSel & &quot;,B&quot; & i
End If

HTH

P.S. There is an Office Forum and guys there are much more experienced in Excel...

Dan

 

[APElliott]

Cookin on gas!

Cheers Loomah!

Cheers Dan

Andrew