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

• #32394 Sprite75 tag Fferi50 #32392

  Új Válasz 2016-08-20 18:00:14 #32394

  Ú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

  

  Sprite75

  tag

  válasz Fferi50 #32392 üzenetére

  Hello

  Az ez előző összefoglaló írásomban nem írtam, hogy egy ilyent is raktam bele

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:AY108]) Is Nothing Then
Cells(Target.Row, 52).Value = Time
End If
End Sub

  Ezt a Munka 1 kódlapjára írtam, de most , hogy bemásoltam azt is amit csináltál hibát ír, ha oda akarom berakni.

  Próbálgattam többféle módon de nem sikerült. Össze tudnád hegeszteni a két kódot?

  E nélkül működik amit írtál, nagyon szuper, de arra lenne lehetőség hogy úgy jelenjen meg a figyelmeztetés, hogy azért valahogyan tudja módosítani a cella értékét ha pl hibás éréket írt be a felhasználó vagy pl a megrendelő módosítaná a rendelését.

  Eddig volt érvényesítés is beállítva a C4 AY108 területre de most azt kivettem, mert ha jól látom akkor a kód ezt is figyeli.
  Viszont ha pl tévedésből szöveget írokilyen hibát ír ki

  Bocsi hogy ennyit akadékoskodok de te nem ismered mire képes a munkahelyemen Pali bácsi aki majd használná ezt a táblát

  Köszi előre is

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