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

• Delila_1 veterán

  #2681

  #2679 bundli

  2016-03-01 09:39:00

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2679 bundli

  Nem látszanak a képeken a sor- és oszlopazonosítók, így csak találgatni lehet, mi melyik cellában van. A makrót arra az esetre írtam, ha a képeken láthatóak az A1 cellában kezdődnek.

  A két tábla képleteiben fixáld az oszlopokat $ jellel. Pl. =B3-D3 helyére =$B3-$D3 kerüljön.

  Az A8 cellába vigyél be érvényesítést, ahol a forrás =Verziószám=1;Verziószám=2

  Az eseményvezérelt makrót a lapodhoz kell rendelned.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim terulet As Range
  If Target.Address = "$A$8" Then
  Application.EnableEvents = False
  Select Case Target
  Case "Verziószám=1"
  Set terulet = Range("B2:D4")
  Case "Verziószám=2"
  Set terulet = Range("G2:I4")
  End Select
  terulet.Copy Range("B9")
  Application.EnableEvents = True
  End If
  End Sub

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