IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - [RISOLTO] ActiveSheet cella non vuota: Warning
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO] ActiveSheet cella non vuota: Warning

 Post Reply Post Reply
Author
Message
il_betto View Drop Down
Veterano
Veterano
Avatar

Joined: 13/Giu/2011
Status: Offline
Points: 3332
Post Options Post Options   Thanks (0) Thanks(0)   Quote il_betto Quote  Post ReplyReply Direct Link To This Post Topic: [RISOLTO] ActiveSheet cella non vuota: Warning
    Posted: 15/Gen/2019 at 10:59
Ciao a Tutti,
ho il seguente file Excel:uploads/19358/test2.rar

in questo file ho diversi fogli di lavoro: per semplicità ne ho messi 2.

L' utente che apre il file deve ricevere un Warning se inserisce un valore nuovo su una cella non vuota, nel / nei fogli in cui lavora.

Ho provato nel codice sopra riportato a fare diversi tests ma vedo che il controllo o non funziona oppure funziona male ...

Grazie mille in anticipo !!!


Edited by il_betto - 15/Gen/2019 at 14:12
Back to Top
Sponsored Links


Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 11215
Post Options Post Options   Thanks (0) Thanks(0)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 15/Gen/2019 at 11:58
Ciao
quando vuoi utilizzare un evento per tutti i fogli, (quindi in questa cartella di lavoro) devi utilizzare:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

mentre tu hai probabilmente copia/incollato un evento change da un foglio qualsiasi.

Ciò premesso, funziona così:

ho valorizzato una variabile a livello generale (PrecValue) nella quale va a finire il valore precedentemente contenuto  nella cella che viene selezionata; poi viene confrontato con quello immesso e se diverso, avvisa.

saluti

domenico
win 10- office 2016
Back to Top
il_betto View Drop Down
Veterano
Veterano
Avatar

Joined: 13/Giu/2011
Status: Offline
Points: 3332
Post Options Post Options   Thanks (0) Thanks(0)   Quote il_betto Quote  Post ReplyReply Direct Link To This Post Posted: 15/Gen/2019 at 14:11
Grazie mille dodo, ho imparato una cosa nuova !!!

E' Perfetto !!!

Clap Clap Clap


Edited by il_betto - 15/Gen/2019 at 14:11
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,062 seconds.