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

• #51841 Delila_1 veterán govl4545 #51840

  Új Válasz 2023-11-30 07:38:42 #51841

  Ú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 govl4545 #51840 üzenetére

  Szia!
  Egy makróval meg lehet oldani. Feltételeztem, hogy az első címsor, az adatok a 2. sorban kezdődnek.
  A makrót modulba másold (lásd a téma összefoglalóban).
  Sub Parositas()
    Dim sorA As Integer, sorE As Integer, usor As Integer
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    sorA = 2: sorE = 2
    Do While sorA <= usor
        For sorE = 2 To usor
            If Cells(sorA, 1) = Cells(sorE, 5) Then
                Cells(sorA, 2) = Cells(sorE, 5)
                Cells(sorA, 3) = Cells(sorE, 6)
                Cells(sorA, 4) = Cells(sorE, 7)
                Cells(sorA, 1).Interior.ColorIndex = 6  '***
                Range("E" & sorE, "G" & sorE).Interior.ColorIndex = 6  '***
                Exit For
            End If
        Next
        sorA = sorA + 1
    Loop
End Sub

  Az eredmény:
  

  A két csillagozott sort kihagyhatod, azok a háttérszínt állítják be.
  A füzetet makróbarátként kell mentened.

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