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

• #51843 karlkani aktív tag govl4545 #51840

  Új Válasz 2023-11-30 08:27:55 #51843

  Ú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

  

  karlkani

  aktív tag

  válasz govl4545 #51840 üzenetére

  Szia!

  Ha jól értem, azt szeretnéd, hogy A1-t keresse meg az E oszlopban. Teljes egyezés esetén másolja B1 cellába az adott E cellát, ha nincs egyezés, hagyja üresen. Kérdés, mi értelme van egyezés esetén B1-be ugyanazt átmásolni, ami az A1 cellában már ott van (ezt írtad)?

  Ha például A1 cella megegyezik E5 cellával, akkor az E5 sorában lévő E5 cellát másolja be a B1 cellába

  B1 =HAHIÁNYZIK(FKERES(A1;E:G;1;HAMIS);"")
  C1 =HAHIÁNYZIK(FKERES(A1;E:G;2;HAMIS);"")
  D1 =HAHIÁNYZIK(FKERES(A1;E:G;3;HAMIS);"")

  

  #51842 Delila_1
  DARABHA Microsoft 365-ben van csak, régebbi verziókban DARABTELI.
  Miért van rögzítve az oszlop A2 esetén (csak lefele lesz "húzva")?

• #51842 Delila_1 veterán govl4545 #51840

  Új Válasz 2023-11-30 07:57:29 #51842

  Ú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

  Makró nélkül, képletekkel is meg lehet oldani. Ekkor nem kell makróbarátként menteni a fájlt.

  B2: =HA(DARABHA($E$1:$E$14;$A2)>0;INDEX($E$1:$G$14;HOL.VAN($A2;$E$1:$E$14;0);1);"")

  C2:
  =HA(DARABHA($E$1:$E$14;$A2)>0;INDEX($E$1:$G$14;HOL.VAN($A2;$E$1:$E$14;0);2);"")

  D2:
  =HA(DARABHA($E$1:$E$14;$A2)>0;INDEX($E$1:$G$14;HOL.VAN($A2;$E$1:$E$14;0);3);"")

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