VBA If, Then, Else Loop Until

[AMJ]

Hi,

I would appreciate help on the following. I've attached an XLS - I'm trying to learn this concept to use for a plethora of other macros

The two columns I want to populate are M and N

My mindset is to start with C3... IF(C3>0,offset(c3,-1,0),[if its = 0 then it should just move to D3 and repeat until the cell value >0])

Then once there's an answer it will begin looping to the next row 4 and repeat the process until column B is empty

Really appreciate it. Thank you.

VBA_1.xlsx

[HaHoBe]

Hi, AMJ,

what shall go into Columns M and N? If you attach a sample it would be nice to see the data before and after to know what to code for.

Edit:
maybe I figured put what you are after.

Sub EF1021330()

Dim lngCol  As Long
Dim lngRC   As Long
Dim blnSkip As Boolean

lngCol = 3
For lngRC = 3 To Range("B" & Rows.Count).End(xlUp).Row
  Do
    If Cells(lngRC, lngCol).Value > 0 Then
      If blnSkip = False Then
        Cells(lngRC, "M").Value = Cells(2, lngCol).Value
      End If
      blnSkip = True
    Else
      If blnSkip = True Then
        Cells(lngRC, "N").Value = Cells(2, lngCol - 1).Value
      End If
      blnSkip = False
    End If
    lngCol = lngCol + 1
  Loop While lngCol < 13
  lngCol = 3
Next lngRC

End Sub

Ciao,
Holger

[AMJ]

Holger, Thank you so much! This is exactly what I am looking for.