I'm trying to look at a cell on worksheet 2, and based on whether it is empty, matches a cell in worksheet 1, or other do some stuff. I can't figure out how to work the references between the sheets. Any advice?
Sub Extrac ()
SpreadsRow = 2
For DataRow = 2 To LastRow 'defined earlier
Set ADataRow = Sheets("Data").Range("A" & DataRow)
Set BDataRow = Sheets("Data").Range("B" & DataRow)
Set JDataRow = Sheets("Data").Range("J" & DataRow)
Set KDataRow = Sheets("Data").Range("K" & DataRow)
Set ASpreadsRow = Sheets("Spreads").Range("A" & SpreadsRow)
Set BSpreadsRow = Sheets("Spreads").Range("B" & SpreadsRow)
Set CSpreadsRow = Sheets("Spreads").Range("C" & SpreadsRow)
Sheets("Data").Select
If JDataRow.Value = "Average" Then
If ASpreadsRow.Value = "" Then
Sheets("Data").Range("B" & DataRow).Select
Selection.Copy
Sheets("Spreads").Select
Range("A" & SpreadsRow).Select
ActiveSheet.Paste
End If
If ASpreadsRow = BDataRow Then
If ADataRow.Value = "L" Then
Sheets("Data").Select
Range("K" & DataRow).Select
Selection.Copy
Sheets("Spreads").Select
Range("C" & SpreadsRow).Select
ActiveSheet.Paste
End If
If ADataRow.Value = "B" Then
Sheets("Data").Select
Range("K" & DataRow).Select
Selection.Copy
Sheets("Spreads").Select
Range("B" & SpreadsRow).Select
ActiveSheet.Paste
End If
SpreadsRow = SpreadsRow + 1
End If
End If
Next DataRow
End Sub
Sub Extrac ()
SpreadsRow = 2
For DataRow = 2 To LastRow 'defined earlier
Set ADataRow = Sheets("Data").Range("A" & DataRow)
Set BDataRow = Sheets("Data").Range("B" & DataRow)
Set JDataRow = Sheets("Data").Range("J" & DataRow)
Set KDataRow = Sheets("Data").Range("K" & DataRow)
Set ASpreadsRow = Sheets("Spreads").Range("A" & SpreadsRow)
Set BSpreadsRow = Sheets("Spreads").Range("B" & SpreadsRow)
Set CSpreadsRow = Sheets("Spreads").Range("C" & SpreadsRow)
Sheets("Data").Select
If JDataRow.Value = "Average" Then
If ASpreadsRow.Value = "" Then
Sheets("Data").Range("B" & DataRow).Select
Selection.Copy
Sheets("Spreads").Select
Range("A" & SpreadsRow).Select
ActiveSheet.Paste
End If
If ASpreadsRow = BDataRow Then
If ADataRow.Value = "L" Then
Sheets("Data").Select
Range("K" & DataRow).Select
Selection.Copy
Sheets("Spreads").Select
Range("C" & SpreadsRow).Select
ActiveSheet.Paste
End If
If ADataRow.Value = "B" Then
Sheets("Data").Select
Range("K" & DataRow).Select
Selection.Copy
Sheets("Spreads").Select
Range("B" & SpreadsRow).Select
ActiveSheet.Paste
End If
SpreadsRow = SpreadsRow + 1
End If
End If
Next DataRow
End Sub