Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!

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

  • #2681 Delila_1 veterán bundli #2679
    Új Válasz #2681
    Ú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 bundli #2679 üzenetére

    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