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

• bundli tag

  #2682

  #2681 Delila_1

  2016-03-01 10:58:34

  Ú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

  

  bundli

  tag

  #2681 Delila_1

  #2681 Delila_1

  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

  Köszönöm, ez most úgy néz ki, hogy működik, viszont egy csavar kimaradt belőle, amit lehet nem túl jól írtam le. Összesen max 6 ilyen táblázat lehet amelyeket ki lehetne választani, de alapjáraton egy sincs feltöltve, ezt a felhasználónak kéne tudnia egyesével hozzáadni, de lehet hogy csak 4-re van szüksége, ebben az esetben nem lenne szabad kiválasztani az ötödiket, mert az nem is létezik.

  Röviden úgy képzelem el, hogy van egy munkalap, ahol csak kiválasztgatja ezeket a táblázatokat és egy másik munkalapon (vagy ugyanezen a munkalapon rejtett cellákban) lennének magák a táblázatok.

  Alapértelmezetten lenne egy 0. menü ahol az új táblázatokat lehetne felvenni.

  Köszönöm mégegyszer az eddigi segítséget!

  

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