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

• #7136 Delila_1 veterán

  Új Válasz 2010-05-08 16:44:30 #7136

  Ú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

  Na, még egy, makrós megoldás Olynak

  

  A laphoz rendelt makró

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$H$3" Then
  oszlop = Application.Match(Target, Range("A1:F1"), 0)
  x = Cells(65536, oszlop).End(xlUp).Row
  Names.Add Name:="asdf", RefersTo:="=" & Range(Cells(2, oszlop), Cells(x, oszlop)).Address
  Range("I3").ClearContents
  End If
  End Sub

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