Wrong code

[fraufreda]

Hello
I am using a user form to list entries in an excel sheet. the user form has 3 rows and in each one there are 4 text boxes.
I need a code that will list all rows only if the first text box in each row has a value.

if me.acc1.value <>"" then
    ws.Cells(iRow, 1).Value = Me.acc1.Value
    ws.Cells(iRow, 2).Value = Me.txtRef.Value
    ws.Cells(iRow, 4).Value = Me.desc1.Value
   end if
if me.acc1.value <>"" then
    ws.Cells(iRow, 1).Value = Me.acc2.Value
    ws.Cells(iRow, 2).Value = Me.txtRef.Value
    ws.Cells(iRow, 4).Value = Me.desc2.Value
  end if
if me.acc1.value <>"" then
    ws.Cells(iRow, 1).Value = Me.acc3.Value
    ws.Cells(iRow, 2).Value = Me.txtRef.Value
    ws.Cells(iRow, 4).Value = Me.desc3.Value
end if

this code actually didn't work for me. it only lists the last row. I need your help on this please.
thank you

 

[wigi]

If iRow is the same in the 3 blocks of code, obviously you will overwrite cells.

In addition, I do not understand why you use 3 times the same IF condition:

if me.acc1.value <>"" then

I guess you first need to check your own code on typos (resulting from copy/paste) before it will work as expected.

If the IF condition is 3 times the same, then you should get rid of the 2 last IF's as they are clearly redundant.

 

[fraufreda]

my mistake. I forgot to change them when pasting them here but in the actual code they're not the same. anyway here's the code again.

if me.ac1.value <>"" then
ws.Cells(iRow, 1).Value = Me.acc1.Value
ws.Cells(iRow, 2).Value = Me.txtRef.Value
ws.Cells(iRow, 4).Value = Me.desc1.Value
end if
if me.acc2.value <>"" then
ws.Cells(iRow, 1).Value = Me.acc2.Value
ws.Cells(iRow, 2).Value = Me.txtRef.Value
ws.Cells(iRow, 4).Value = Me.desc2.Value
end if
if me.acc3.value <>"" then
ws.Cells(iRow, 1).Value = Me.acc3.Value
ws.Cells(iRow, 2).Value = Me.txtRef.Value
ws.Cells(iRow, 4).Value = Me.desc3.Value
end if

but as i said this code didn't work for me.

 

[wigi]

Please re-read my post above, especially the first line.

 

[fraufreda]

Sloved
thank you anyway