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)



"cj2k2k" wrote in message
...
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