how to continue a macro if above "if" is true

Question

So I have the above code, I want to continue on this logic: if K4 is not empty then copy L3 to L4 and so on, until one cell is empty (for example K32 is not empty then copy L31 to L32, but if K33 is empty then stop) Im sorry if this is a basic question, I have just started working with VBA. Thank you in advance

   Sub kepletmasolos()

Sheets("XTR MSTR").Select

 If IsEmpty(Range("K3").Value) = False Then

      Range("L2").Copy Range("L3")

   End If

End Sub

There are numerous example how to loop through a given range, e.g. [Loop through each cell ...](https://stackoverflow.com/questions/3875415/loop-through-each-cell-in-a-range-of-cells-when-given-a-range-object). — T.M., Oct 06 '21 at 14:57
Does this answer your question? [Loop through each cell in a range of cells when given a Range object](https://stackoverflow.com/questions/3875415/loop-through-each-cell-in-a-range-of-cells-when-given-a-range-object) — nima, Oct 08 '21 at 10:51

SJR · Answer 1 · 2021-10-06T15:13:01.960

0

Here is one way, using a Do loop:

Sub kepletmasolos()

Dim r As Long: r = 3

With Sheets("XTR MSTR")
    Do Until IsEmpty(.Cells(r, "K"))
        '.Cells(r, "L").Value = .Cells(r - 1, "L").Value
        .Cells(r - 1, "L").copy .Cells(r, "L")
        r = r + 1
    Loop
End With

End Sub

edited Oct 06 '21 at 15:13

answered Oct 06 '21 at 14:49

SJR

22,986
6
18
26

okay, and lets say the cell "L3" contains a formula =SUM(N3;P3;R3) and i want the "L4" cell to contain =SUM(N4;P4;R4) and so on how do you do that? thank you so much for your help! – Tamás Hrubos Oct 06 '21 at 15:10
1

Probably simplest to just revert to copy/paste - code amended above. – SJR Oct 06 '21 at 15:13
Thanks, its working perfectly – Tamás Hrubos Oct 06 '21 at 15:28

score 0 · Answer 2 · answered Oct 06 '21 at 15:48

0

new to VBA myself, Just thought i would through my idea in?

row = where you would start, let me know what you think.

Sub kepletmasolos()

Dim Row As Long 
Row = 1

Start:
With Sheets("XTR MSTR")
    If Not isEmpty(.Cells(Row, "K")) Then
        .Cells(Row, "L").Copy .Cells(Row + 1, "L")
        Row = Row + 1
        GoTo Start
    Else
End If
End With

End Sub

answered Oct 06 '21 at 15:48

Kieran

1
3

Hint: `GoTo` is widely considered as harmful to structured programming (originating in former BASIC times with excessive *Spaghetti programming*) - except its use in error handling; c.f. [GoTo](https://en.wikipedia.org/wiki/Goto) or [GoTo still considered harmful?](https://stackoverflow.com/questions/46586/goto-still-considered-harmful) – T.M. Oct 07 '21 at 14:21

how to continue a macro if above "if" is true

2 Answers2