Several simple questions

  • Thread starter Thread starter Stuart
  • Start date Start date
S

Stuart

Would be grateful for help with a few simple questions, please:

1. If Not IsEmpty(.Range("F65536").End(xlUp) _
.Offset(-1, -4)) Then
is fine, but "F" is hard-coded. If it were to be the variable
'£Col', how can I change the code so as to get back to
that "B" cell, please?
.Range("B" & ......) ?

Similarly:

2 For Each Cell In .Range("H2", "J" & LastRow) _
.SpecialCells(xlConstants)
is fine, but how to replace "H" with '£Col + 2' and
therefore "J" becoming '£Col + 4' ?

Regards.
 
Stuart said:
Would be grateful for help with a few simple questions, please:

1. If Not IsEmpty(.Range("F65536").End(xlUp) _
.Offset(-1, -4)) Then
is fine, but "F" is hard-coded. If it were to be the variable
'£Col', how can I change the code so as to get back to
that "B" cell, please?
.Range("B" & ......) ?
Click to expand...

If Not IsEmpty(.Cells(Rows.Count, £Col).End(xlUp) _
.Offset(-1, 2 - £Col)) Then
Similarly:

2 For Each Cell In .Range("H2", "J" & LastRow) _
.SpecialCells(xlConstants)
is fine, but how to replace "H" with '£Col + 2' and
therefore "J" becoming '£Col + 4' ?
Click to expand...

For Each Cell In .Range(.Cells(2, £Col + 2), .Cells(LastRow, £Col + 4)) _
.SpecialCells(xlConstants)
 
Back
Top