Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
If cella contiene Filtro
- Hai un problema con Excel?
If cella contiene Filtro
di SAVIO88 (utente non iscritto) data: 11/05/2015 14:12:15
Come faccio a scrivere:
Se nella cella (x,y ) c'è il testo 123 ????
If cells(1,1 ) ???????????
di Lucas87 data: 11/05/2015 14:24:22
Ciao
if cells(1,1)="123" then ... ... ... end if
di SAVIO88 (utente non iscritto) data: 11/05/2015 15:40:26
Non il testo specifico 123, ma se quella cella contiene quella parola
cioè l'if parte quando trova le celle Ciao123, Addio123, 123Comeva.... Spero di esser stato chiaro
di SAVIO88 (utente non iscritto) data: 11/05/2015 15:59:48
Cioè parte un ciclo for i = 1 to 5 per esempio, e io scrivo:
For i = 1 to 5
If cells(i,1) = "*123" the
cells ( i,2 ) = cells ( i,2 ) +1 cioè se la cella nella colonna 1 contiene la parola 123, allora allo stesso
numero di riga ma della colonna 2 si deve aggiungere 1
Però non me lo fa, perchè???
di alfrimpa data: 11/05/2015 16:11:44
Ciao io ho provato così ed a me funziona.
Ovviamente non ho usato il ciclo For ma non credo sia quello il problema.
Alfredo
Sub prova() If Cells(1, 1) = "123" Then Cells(1, 2) = Cells(1, 2) + 1 End If End Sub
di Lucas87 data: 11/05/2015 16:14:13
Prova a usare la funzione INSTR()
di SAVIO88 (utente non iscritto) data: 11/05/2015 17:24:03
Non trova quello che voglio, l'if parte solo per le celle 123, se nella cella c'è scritto 1234, non mi parte la macro!
Cerco di farmi capire meglio, esistono queste 3 celle
Marco Rossi 1€
Giuseppe Rossi. 2€
Fabio Bianchi. 1€
Voglio far aumentare i Rossi di 1€... Come faccio?
di SAVIO88 (utente non iscritto) data: 11/05/2015 17:31:26
Il problema sta che nome e cognome stanno in un'unica cella per questo devo dire se la cella (1,1) = "*Rossi*" cioè che contiene la parola Rossi, ma non mi funziona
di Marius44 data: 11/05/2015 18:16:39
Per buona regola Cognome, Nome, etc devono stare in celle separate. Comunque, se almeno l'importo che vuoi variare è in una cella a parte prova la sub seguente
Sub prova() For i = 1 To 4 If InStr(Cells(i, 1), "Rossi") Then Cells(i, 3) = Cells(i, 2) + 1 End If Next End Sub
di SAVIO88 (utente non iscritto) data: 12/05/2015 11:28:30
Grazie Mille, funziona :)
- Vuoi Approfondire?
