offset every other row down a column (2 merged rows)

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have to send values from a form to column D every other row. Here is that
piece of code from my form. Currently, it sends only the first value
(Me.Pocket1.Value) then the loop ends. Could you tell me how to fix it?
I should mention that the reason why I'm trying to insert the value every
other row is because every 2 rows are merged down column D (such as D3:D4 are
merged and so on).

Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(2, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = Me.Pocket1.Value
ActiveCell.Offset(2, 0) = Me.Pocket2.Value
ActiveCell.Offset(4, 0) = Me.Pocket3.Value
ActiveCell.Offset(6, 0) = Me.Pocket4.Value
ActiveCell.Offset(8, 0) = Me.Pocket5.Value
ActiveCell.Offset(10, 0) = Me.Pocket6.Value
ActiveCell.Offset(12, 0) = Me.Pocket7.Value
ActiveCell.Offset(14, 0) = Me.Pocket8.Value
 
With ActiveSheet
iLastRow = .Cells(.Rows.Count,"D").End(xlUp).Row + 1
.Cells(ilastrow+2, "D").Value = Me.Pocket1.Value
.Cells(ilastrow+4, "D").Value = Me.Pocket2.Value
.Cells(ilastrow+6, "D").Value = Me.Pocket3.Value
.Cells(ilastrow+8, "D").Value = Me.Pocket4.Value
.Cells(ilastrow+10, "D").Value = Me.Pocket5.Value
.Cells(ilastrow+12, "D").Value = Me.Pocket6.Value
.Cells(ilastrow+14, "D").Value = Me.Pocket7.Value
.Cells(ilastrow+16, "D").Value = Me.Pocket8.Value
End With

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Back
Top