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



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).

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



Bob Phillips

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



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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question