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

• #29225 szatocs1981 aktív tag Traxx #29212

  Új Válasz 2015-10-27 06:42:23 #29225

  Ú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

  

  szatocs1981

  aktív tag

  válasz Traxx #29212 üzenetére

  Az elsö problémára (ezt az adott fülhöz kell bemásolni):

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Column = 8 Then 'H szlopot ha módosítod
  
  ertek = InputBox("Tuti ennyit akarsz?", "A nagy kérdés")
  
  If ertek <> CStr(Cells(Target.Row, 8).Value) Then
  
  MsgBox ("Elcseszted!")
  
  End If
  
  End If
  
  End Sub

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