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

• #53596 Emod csendes tag hajbel #53595

  Új Válasz 2024-11-26 09:32:25 #53596

  Ú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

  

  Emod

  csendes tag

  válasz hajbel #53595 üzenetére

  Ezesetben kell egy-egy segédoszlop, ahol a "dupla oszlopok" vannak összefűzve és ezt a két új oszlopot kijelölve (ctrl+kijelölés, ha nem egymás mellett lesznek) a fentebb javasolt Feltételes formázás - ismétlődő értékek.

• #53594 Fferi50 Topikgazda hajbel #53593

  Új Válasz 2024-11-26 06:48:33 #53594

  Ú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

  

  Fferi50

  Topikgazda

  válasz hajbel #53593 üzenetére

  Szia!
  Feltételes formázás - ismétlődő értékeket próbáltad?
  Üdv.

• #53006 Fferi50 Topikgazda hajbel #53004

  Új Válasz 2024-07-26 13:32:24 #53006

  Ú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

  

  Fferi50

  Topikgazda

  válasz hajbel #53004 üzenetére

  Szia!
  Ha van SZÖVEGÖSSZEFŰZÉS függvényed, akkor AH7 cella képlete:
  =SZÖVEGÖSSZEFŰZÉS(",";1;HA(M7:AF7="Yes";$M$4:$AF$4;""))
  A képlet húzható lefelé - figyelj a $-os címzésre.
  Üdv.

• #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