Problem executing code vba

[sofas]

hi how can i modify the code to search in column (C )And put the result in an column (L)

Sub test()
    Dim lr As Long, rng As Range, StartRow As Long, EndRow As Long, StartVal, c
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range(Cells(1, 1), Cells(lr, 1))
    
    Set c = Columns(1).Find("yes", after:=Cells(lr, 1), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            StartRow = c.Row
            StartVal = c.Offset(0, 5).Value
            Set c = rng.FindNext(c)
            EndRow = IIf(c.Row > StartRow, c.Row, lr)
            Range(Cells(StartRow - 0, 12), Cells(EndRow - 0, 12)) = StartVal
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End Sub

 

[rollis13]

Since I have no idea about the layout of your data I'll take a guess. Change the search line to this where 3 = column C :

Set c = Columns(3).Find("yes", After:=Cells(lr, 3), LookIn:=xlValues, LookAt:=xlWhole)

 

[sofas]

Since I have no idea about the layout of your data I'll take a guess. Change the search line to this where 3 = column C :

Set c = Columns(3).Find("yes", After:=Cells(lr, 3), LookIn:=xlValues, LookAt:=xlWhole)

I want to repeat the value provided there is a word yes

 

[rollis13]

So what? What's wrong with my suggestion?
A screenshot is of no help if you don't show at least the whole used range and say what goes where.

 

[sofas]

So what? What's wrong with my suggestion?
A screenshot is of no help if you don't show at least the whole used range and say what goes where.

Sorry for not being able to communicate the idea. I just want when checking for the presence of the word Yes in column A, the corresponding value in column L is repeated several times until reaching the same word Yes, then re-execute the same command on the corresponding value, the other word yes, and so on

 

[RoryA]

I just want when checking for the presence of the word Yes in column A, the corresponding value in column L is repeated

Your current code appears to do exactly that. If you want to look in column C instead of column A, then you have been given code for that. If that code is not doing what you want, then you need to explain in what way it is not working.

 

[Alex Blakenburg]

See if this helps:

Sub test()
    Dim lr As Long, rng As Range, StartRow As Long, EndRow As Long, StartVal, c as Range    
    Dim firstAddress As String
    
    lr = Cells(Rows.Count, "C").End(xlUp).Row
    Set rng = Range(Cells(1, "C"), Cells(lr, "C"))
    
    Set c = Columns("C").Find("yes", after:=Cells(lr, "C"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            StartRow = c.Row
            StartVal = Cells(StartRow, "E").Value
            Set c = rng.FindNext(c)
            EndRow = IIf(c.Row > StartRow, c.Row, lr)
            Range(Cells(StartRow - 0, "L"), Cells(EndRow - 0, "L")) = StartVal
        Loop While c.Address <> firstAddress
    End If
End Sub

 

[sofas]

See if this helps:

Sub test()
    Dim lr As Long, rng As Range, StartRow As Long, EndRow As Long, StartVal, c as Range   
    Dim firstAddress As String
   
    lr = Cells(Rows.Count, "C").End(xlUp).Row
    Set rng = Range(Cells(1, "C"), Cells(lr, "C"))
   
    Set c = Columns("C").Find("yes", after:=Cells(lr, "C"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            StartRow = c.Row
            StartVal = Cells(StartRow, "E").Value
            Set c = rng.FindNext(c)
            EndRow = IIf(c.Row > StartRow, c.Row, lr)
            Range(Cells(StartRow - 0, "L"), Cells(EndRow - 0, "L")) = StartVal
        Loop While c.Address <> firstAddress
    End If
End Sub

Thank you, the code works fine when copying the values from column E. I want the same values as those in column L It is repeated with an existing condition in column C

 

[Alex Blakenburg]

I have logged off for the night. If you are saying that you want to copy the value from the yes row and L column down the L column, then just change the StartVal line from column E to column L

  StartVal = Cells(StartRow, "L").Value

 

[sofas]

I have logged off for the night. If you are saying that you want to copy the value from the yes row and L column down the L column, then just change the StartVal line from column E to column L

  StartVal = Cells(StartRow, "L").Value

Loop to Fill Down to Next Specified Value and Repeat

I have qualitative values in column A and quantitative values in column B associated with them. I want to look for a specific value in column A, starting with A1. Once the value is found, I want to...

stackoverflow.com