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

• #43075 Zola007 veterán

  Új Válasz 2020-02-16 12:31:44 #43075

  Ú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

  

  Zola007

  veterán

  adatok -> érvényesítés -> lista: "cégek" hivatkozással több munkalapon használok egy közös legördülő listát, amit egy külön lapon tárolok
  Arra lenn szükségem, hogy ha a "cégek" listában megváltoztatok egy elemet (pl. Piros Kft -> Zöld Zrt), akkor a többi lapon is mindenhol változzon meg a Zöld Zrt-re , ahol a legördülő listából korábban a Piros Kft. lett kiválasztva
  
  talámtam egy ilyen kódot, de nem tudom hogyan módosítsam:
  Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim count_cells As Integer
Dim new_value As String
Dim old_value As String
Dim rng As Range
For count_cells = 1 To Range("A1").CurrentRegion.Rows.Count - 1
    Set rng = Worksheets("7").Range("J3:J100")
    If Intersect(Target, Range("A" & count_cells + 1)) Is Nothing Then
    Else
        Application.EnableEvents = False
        new_value = Target.Value
        Application.Undo
        old_value = Target.Value
        Target.Value = new_value
        rng.Replace What:=old_value, Replacement:=new_value
        Target.Select
    End If
Next count_cells
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

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