title: How to find value of cell above each cell
body: <p>I want to screen all sheets for values that starts with "D"
  In the sheets I formed blocks (1 column, 4 rows) with 
  - owner
  - area
  - parcel (that is allways starting with a "D")
  - year of transaction (blocks of 1 column and 4 rows).</p>
  
  <p>I want to make a summary in sheet "Test".</p>
  
  <p>I'm able to find the parcel, but how can I get the info from the cell above?</p>
  
  <pre><code>Sub Zoek_kavels()
  
  Dim ws As Worksheet
  Dim rng As Range
  Dim Area
  Dim Kavel As String
  
  rij = 1
  
  For Each ws In ActiveWorkbook.Sheets
      Set rng = ws.UsedRange
      For Each cell In rng
          If Left(cell.Value, 1) = "D" Then             'Starts with D
              Sheets("Test").Cells(rij, 1) = cell.Value       'Kavel D..
              Cells(cell.row - 1, cell.Column).Select
              Area = ActiveCell.Value
  
              Sheets("Test").Cells(rij, 2) = Area             'Oppervlakte
              Sheets("Test").Cells(rij, 3) = ws.Name          'Werkblad naam
              rij = rij + 1
          End If
      Next
  Next
  
  End Sub
  </code></pre>