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

• #29169 szatocs1981 aktív tag Traxx #29168

  Új Válasz 2015-10-25 10:05:48 #29169

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

  Makróval, nagyjából így. Nem teszteltem!

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Address = Cells(1, 1) Then 'A1-es cellát ha módosítod
  
  ertek = inputbox("Tuti ennyit akarsz?")
  
  If ertek <> Cells(1,1).value then
  
  MsgBox("Nem egyezik!")
  
  End If
  
  end If
  
  End Sub

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