title: VBA: Offset for cell relative to selection
body: <p>I compare two Columns and pull the identical parts of the comparison-range to the right.</p>
  
  <p>Now I want for the identical parts, the content in the cell 6 columns to the right of the compared data to be extracted too, in case there is a match.</p>
  
  <p>It is some kind of double-related offset.</p>
  
  <p>In other words, I want the cell 6 rows to the right of the comparison range to be offset another 8 cells further right.</p>
  
  <p>The code looks like this:</p>
  
  <pre><code>Dim CompareRange, x , y As Variant
  
  ActiveSheet.Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Select
  
  Set CompareRange = Worksheets("pumps").Range("B4:B67")
  
  Dim SelDate As Date
  
  For Each x In Selection
      For Each y In CompareRange
          If x = y Then x.Offset(0, 13) = x _
            And Range(x).Offset(0, 6).Select = SelDate _
            And Date1.Offset(0, 8) = SelDate
       Next y
   Next x
  </code></pre>
  
  <p>This part does not seem to be correct:</p>
  
  <pre><code>          And Range(x).Offset(0, 6).Select = SelDate _
            And Date1.Offset(0, 8) = SelDate
  </code></pre>