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

• #11564 Delila_1 veterán Mythunderboy #11563

  Új Válasz 2011-10-04 15:11:36 #11564

  Ú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 Mythunderboy #11563 üzenetére

  Ha a Munka1 lap A vagy B oszlopába írsz, a makró megcsinálja. Ezt a makrót a lapodhoz kell rendelned - amire több leírást találsz itt a fórumon.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Or Target.Column = 2 Then
  Dim WS2 As Worksheet, usor%
  Set WS2 = Sheets("Munka2")
  
  Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Sheets("Munka2").Range("A1:B1"), Unique:=True
  
  usor% = WS2.Range("A1").End(xlDown).Row
  WS2.Range("A1:B" & usor%).Sort Key1:=WS2.Range("A2"), Order1:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  End If
  End Sub

  Szerk.: a régi makrót töröld ki.

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