|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
Excel: run macro only if...
Ciao,
ho un problema con la creazione di una macro vorrei farla partire premendo un pulsante (questo lo so fare), ma solo con la condizione che in una certa cella ci sia un determinato valore in caso contrario la macro non dovrebbe nemmeno partire e magari dare un messaggio di errore (impostabile) non mi va bene che la macro parta alla modifica della cella, devo avviarla premendo il pulsante grazie |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Apr 2005
Città: Venezia
Messaggi: 494
|
é molto semplice nel codice della macro fai un
if then
__________________
Ho trattato con successo con AttilaxXx, Pippo73 |
![]() |
![]() |
![]() |
#3 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
ma cosa devo scrivere per far riconoscere il testo (non la formula) di una cella?
è non mi funziona l'help, cmq sto cercando su internet questo so farlo, mi manca solo il riconoscimento del valore nella cella if ... then else exit sub end if |
![]() |
![]() |
![]() |
#4 |
Senior Member
Iscritto dal: Apr 2005
Città: Venezia
Messaggi: 494
|
range("A1").select
If cells.value = "testo da verificare" then
__________________
Ho trattato con successo con AttilaxXx, Pippo73 |
![]() |
![]() |
![]() |
#5 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
grazie
![]() |
![]() |
![]() |
![]() |
#6 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
non funziona
![]() sia se mi riferisco ad una cella con la forumula che se mi riferisco ad una cella con il riferimento ad un'altra cella con la formula (il testo finale è uguale) qlk consiglio? Sheets("Input").Select Range("d12").Select If Cells.Value = "Dati OK" Then ... Else Exit Sub End If End Sub senza l'if la macro funziona, quindi il problema sta in queste 7 righe grazie |
![]() |
![]() |
![]() |
#7 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
up
|
![]() |
![]() |
![]() |
#8 |
Senior Member
Iscritto dal: Nov 2002
Città: Morio Cho
Messaggi: 2595
|
Fai una cosa, esegui questo:
Codice:
sub pippo on error goto Errore If Sheets("Input").Range("d12").Value = "Dati OK" Then msgbox "uguale" Else msgbox "diverso" End If exit sub Errore: msgbox err.description End Sub
__________________
Sono GULDO, non Guido! Cioè, certo che guido... Bé, insomma, avete capito ![]() Linux 2.6.26|Debian|Debian@Hwupgrade|Debian Clan|Solo Puffin ti darà forza e grinta a volontà! NERD rank 62|Milla Jovovich|大事な物はいつも形の無い物だけ Sito e Forum sul Giappone|La mia libreria su aNobii |
![]() |
![]() |
![]() |
#9 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
grazie! funziona
![]() |
![]() |
![]() |
![]() |
#10 |
Senior Member
Iscritto dal: Aug 2004
Messaggi: 19355
|
Adesso togli questa firma!
![]()
__________________
"Le statistiche sono come le donne lascive: se riesci a metterci le mani sopra, puoi farci quello che ti pare" Walt Michaels |
![]() |
![]() |
![]() |
#11 |
Senior Member
Iscritto dal: Jan 2004
Messaggi: 1384
|
serve eh?
![]() x adesso la tolgo, ma a breve comnicio con vb ![]() |
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 08:54.