IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - [Risolto]Con VBA confronto celle prima di scrivere
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[Risolto]Con VBA confronto celle prima di scrivere

 Post Reply Post Reply
Author
Message
antoniomlg View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 13/Gen/2009
Location: Italy
Status: Offline
Points: 494
Post Options Post Options   Thanks (0) Thanks(0)   Quote antoniomlg Quote  Post ReplyReply Direct Link To This Post Topic: [Risolto]Con VBA confronto celle prima di scrivere
    Posted: 23/Apr/2019 at 19:41
Salve eccomi nuovamente a chiedere l'aiuto di Voi esperti

con una macro elimino una riga dal foglio "media semes" (elimino sempre la riga 3)
copio i dati da un range di celle  (I42:R42) dal foglio " inserimento dati)
torno nel foglio "media semes" inserisco una riga  (inserisco sempre la riga 14)
ed incollo i dati precedentemente copiati.
---------------
vorrei evitare di incollare i dati se il valore di una cella gi esiste.
nello specifico vorrei confrontare la cella I42 (facente parte del range di celle incollate,
del foglio "inserimento dati" con la cella B13 del foglio di destinazione "media semes"

e se equivalente inserire il messaggio di errore "gi inseriti procedere al controllo manuale"
 non riesco a trovare l'istruzione che f al caso, 

certo del vostro aiuto vi ringrazio in anticipo
-----------------
la macro si chiama "aggmedie
la macro si lancia dal foglio "inserimento dati" tasto "aggiorna medie semes




GRAZIE......


Edited by antoniomlg - 05/Mag/2019 at 21:29
Back to Top
Sponsored Links


Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 11546
Post Options Post Options   Thanks (1) Thanks(1)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 24/Apr/2019 at 18:00
Ciao
potresti provare ad inserire le seguenti istruzioni all'inizio della macro AggMedie:

Sub AggMedie()
'
' AggMedie Macro
'
 mese = Range("I42")
 With Worksheets("media semes").Range("B:B")
    Set f = .Find(mese, LookIn:=xlValues, lookat:=xlWhole)
    If Not f Is Nothing Then
        MsgBox "dati gi inseriti......"
        Exit Sub
    End If
 End With
...etc...etc

saluti


domenico
win 10- office 2016
Back to Top
antoniomlg View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 13/Gen/2009
Location: Italy
Status: Offline
Points: 494
Post Options Post Options   Thanks (0) Thanks(0)   Quote antoniomlg Quote  Post ReplyReply Direct Link To This Post Posted: 24/Apr/2019 at 19:42
Grazie Dodo47 per il tuo gentilissimo interesse/aiuto...

sono fuori per lavoro domani 25 sono libero , salvo compliczioni

e provo 

grazie ancora
Back to Top
antoniomlg View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 13/Gen/2009
Location: Italy
Status: Offline
Points: 494
Post Options Post Options   Thanks (0) Thanks(0)   Quote antoniomlg Quote  Post ReplyReply Direct Link To This Post Posted: 25/Apr/2019 at 17:53
Vi aggiorno 
grazie al suggerimento di Dodo47,

ho risolto , 

ma ho dovuto modificare il campo "mese" in modo da inserire anche l'anno, in quanto 
faccio l'esempio attuale mi trovo ad avere gi il mese che si chiama "Aprile" essendo del 2018, e
quindi succederebbe tutti i mesi che troverebbe il nome del mese attuale identico a quello di 12 mesi f...

grazie ancora

Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 11546
Post Options Post Options   Thanks (1) Thanks(1)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 25/Apr/2019 at 18:40
Ciao
bene per aver risolto. Per quanto riguarda l'anno, ci avevo pensato, ma nel tuo foglio "media semes" in colonna B ci sono solo stringhe dalle quali non rilevabile l'anno.

saluti
domenico
win 10- office 2016
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,070 seconds.