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

• #30643 Delila_1 veterán gyga #30641

  Új Válasz 2016-02-18 14:32:30 #30643

  Ú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 gyga #30641 üzenetére

  Az eredeti kérdésedben a C oszlop értéke az A és B oszlopétól függött. A laphoz rendelt makróban azt az oszlopo(ka)t figyeld, amelyik(ek) befolyásolják az X értékét. Ha pl. az E és G oszlopok adják az X értékét, akkor:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column =5 Or Target.Column =7 Then Masolas
  End Sub

  Modulba:

  Sub Masolas()
  Dim usor As Long
  
  Sheets("Munka2").Range("A:X").ClearContents
  ActiveSheet.Range("$A:$X").AutoFilter Field:=24, Criteria1:="<>0"
  usor = Range("X" & Rows.Count).End(xlUp).Row
  Range("A1:X" & usor).Copy
  Sheets("Munka2").Range("A1").PasteSpecial xlpaste.Values
  ActiveSheet.Range("$A:$X").AutoFilter Field:=24
  End Sub

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