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

• #26942 Delila_1 veterán Hulioboy #26938

  Új Válasz 2015-05-18 07:25:55 #26942

  Ú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 Hulioboy #26938 üzenetére

  Szia!

  Az érvényesítésben (J5 cella) 5 név közül választhatsz.

  A laphoz kell rendelned a makrót. Kiválasztod a nevet, és mikor a J7-be beírod az összeget, az ennek megfelelő cella eddigi összegét növeli a beírt összeggel.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cim As String
  If Target.Address = "$J$7" Then
  Select Case Range("J5")
  Case "Pisti"
  cim = "$F$79"
  Case "Misi"
  cim = "$F$80"
  Case "Jóska"
  cim = "$F$81"
  Case "Béla"
  cim = "$F$82"
  Case "Kleofás"
  cim = "$F$83"
  End Select
  
  Range(cim) = Range(cim) + Target
  End If
  End Sub

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