Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007]-Macro per ricerca testo Opzioni
aetio
Inviato: Monday, October 07, 2013 4:29:51 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
dovrei convertire questa sub affinché possa cercare e trovare testo anziché numeri (da riga 3 a fine tabella, da col.1 a col.5), ma non so proprio da dove cominciare
Sub cerca_con_Colore()
Dim Myvalue As Long
Dim Mycolor As Long
Myvalue = InputBox("DIGITA IL VALORE DA CERCARE", "CERCA VALORE")
Mycolor = InputBox("DIGITA RIFERIMENTO COLORE : numerico", "DIGITA COLORE")
For N = 3 To Cells(3, 1).End(xlDown).Row
Set Area = Range(Cells(N, 1), Cells(N, 5))
For Each cl In Area
If cl = Myvalue Then
With cl
.Interior.ColorIndex = Mycolor
End With
End If
Next cl
Set Area = Nothing
Next N
End Sub
E' fattibile oppure occorre riscrivere i codici in modo totalmente diverso? A intutito credo che uno dei parametri che andranno riscritti è il Myvalue, ma non vorrei dire una sciocchezza.
Grazie assai, buona serata
eZio
Sponsor
Inviato: Monday, October 07, 2013 4:29:51 PM

 
a10n11
Inviato: Monday, October 07, 2013 5:00:57 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
La variabile Myvalue è battezzata di tipo long, quindi numerica prova a cambiarla in tipo String
saluti
Giap

aetio
Inviato: Monday, October 07, 2013 5:16:55 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
Grazie assai, non sapevo proprio dove e come intervenire in modo corretto senza rischiare di fare danni.
Buona serata
eZio
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.