Copy cells from a table to another table with conditions.

Here is one way that will hopefully do what you need and be easy enough to understand so you can adapt it to your workbook.

Sub MoveData()
    Dim LOSource As ListObject: Set LOSource = Sheets("Form1").ListObjects(1)
    Dim LOTarget As ListObject: Set LOTarget = Sheets("Sheet2").ListObjects(1)
    Dim LRSource As ListRow: Set LRSource = LOSource.ListRows(LOSource.ListRows.Count)
    Dim LRTarget As ListRow
    Dim i As Integer
    
    With LOSource
        For i = 8 To 23 Step 2
            If .Range(.ListRows.Count + 1, i) = "Yes" Then
                Set LRTarget = LOTarget.ListRows.Add
                LRTarget.Range(1) = LRSource.Range(5)
                LRTarget.Range(2) = LRSource.Range(i).Offset(, 1)
                LRTarget.Range(3) = LRSource.Range(27)
                LRTarget.Range(4) = LRSource.Range(6)
                LRTarget.Range(5) = LRSource.Range(7)
            End If
        Next i
    End With
End Sub

BSB

Hello, thanks for the answer. I am using Excel Online and it does not support Macros. What I am trying to do is to create an Script and then activates it automatically with Power Automate every time a new response is received.

Originally Posted by AlexisUANL

What I am trying to do is to create an Script and then activates it automatically with Power Automate every time a new response is received.

Quite an important piece of information to omit from the original request. A) because if you'd included it you could have attracted someone that could help and B) because it would have saved those that have looked and provided solutions so far from spending time doing that for no reason.

I'm afraid I cannot help with the scripting for Power Automate as I don't have access to it.

Good luck with the project.

BSB

Thanks for the answer and the time. I am just struggling in making the Script, your code in VBA really help me a lot so far, but I am just looking how to do the same thing but with TypeScript language.

This all because it is an Excel file located in One drive and I can only use Scripts, not macros

try

Option Explicit

Sub check_yes()
Dim lRow As Long, lRow2 As Long, i As Long
Dim strFind As String
Dim oRng As Range, fRng As Range

lRow = Sheets("Form1").Cells(Rows.Count, 5).End(xlUp).Row
strFind = "Yes" ' string to find
Set oRng = Sheets("Form1").Range("E" & lRow & ":" & "X" & lRow) ' Range to search

    Set fRng = oRng.Cells(oRng.Cells.Count)
    For i = 1 To Application.CountIf(oRng, strFind)
        Set fRng = oRng.Cells.Find(What:=strFind, _
                                   LookIn:=xlValues, _
                                   LookAt:=xlWhole, _
                                   After:=fRng, _
                                   MatchCase:=False)
        If Not fRng Is Nothing Then
            lRow2 = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row + 1
            Sheets("Sheet2").Range("C" & lRow2) = Sheets("Form1").Range("E" & lRow)
            Sheets("Sheet2").Range("D" & lRow2) = fRng.Offset(0, 1).Value
            Sheets("Sheet2").Range("E" & lRow2) = Sheets("Form1").Range("AA" & lRow)
            Sheets("Sheet2").Range("F" & lRow2) = Sheets("Form1").Range("F" & lRow)
            Sheets("Sheet2").Range("G" & lRow2) = Sheets("Form1").Range("G" & lRow)
        End If
    Next i
End Sub

Hello, would it be possible to transfer this to TypeScript language?, i am using Excel Online and does not support Macros.