Új hozzászólás Aktív témák

• #53005 Delila_1 veterán hajbel #53004

  Új Válasz 2024-07-26 12:37:29 #53005

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz hajbel #53004 üzenetére

  Írtam hozzá egy makrót, amit modulba kell bemásolnod (lásd az Összefoglalóban). A füzetet makróbarátként kell mentened.

  Sub Osszefuz()
    Dim sor As Long, oszlop As Integer, usor As Long
    usor = Range("AG" & Rows.Count).End(xlUp).Row
    For sor = 7 To usor
        For oszlop = 15 To 32
            If Cells(sor, oszlop) = "Yes" Then
                If Cells(sor, 34) = "" Then
                    Cells(sor, 34) = Cells(4, oszlop)
                Else
                    Cells(sor, 34) = Cells(sor, 34) & "," & Cells(4, oszlop)
                End If
            End If
        Next oszlop
    Next sor
End Sub

Új hozzászólás Aktív témák