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

• #50259 Fferi50 Topikgazda Pá #50257

  Új Válasz 2023-01-11 17:18:22 #50259

  Ú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 Pá #50257 üzenetére

  Szia!
  Eseménykezelő makróval megoldható.
  Mindkét munkalapra kell eseménykezelő, amit az adott munkalap kódlapjára kell bemásolnod:
  A Munka1 munkalapra:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   Application.EnableEvents = False
   Sheets("Munka2").Range("C1").Value = Target.Value
   Application.EnableEvents = True
End If
End Sub
  A Munka2 munkalapra:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
   Application.EnableEvents = False
   Sheets("Munka1").Range("A1").Value = Target.Value
   Application.EnableEvents = True
End If
End Sub
  Ez a Munka1 A1 cellája és a Munka2 C1 cellája között teremt azonosságot.
  A munkalap nevét és a cella címét írd át a sajátodra.
  A munkafüzetet makróbarátként (vagy binárisként) kell mentened.
  Természetesen tartományt is meg lehet határozni, amin belül a változás egy másik munkalap megfelelő tartományában eltérő helyre másolódik.
  Üdv.

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