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

• #25626 Delila_1 veterán grondby #25623

  Új Válasz 2015-02-27 09:34:04 #25626

  Ú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 grondby #25623 üzenetére

  Az I oszlopban lévő adatokból is hozz létre listát. Az eredeti makró a laphoz rendelve, kibővítve

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Variant
  
  If Target.Column = 2 Then
  sor = Application.Match(Target, Columns(8), 0)
  If IsError(sor) Then Range("H" & Application.WorksheetFunction.CountA(Columns(8)) + 1) = Target
  End If
  
  If Target.Column = 3 Then
  sor = Application.Match(Target, Columns(9), 0)
  If IsError(sor) Then Range("I" & Application.WorksheetFunction.CountA(Columns(9)) + 1) = Target
  End If
  End Sub

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