Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro ricerca commento

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro ricerca commento

Postdi mrjoeseme » 05/05/15 08:16

ho necessità di creare una macro con input di nome da cercare nei commenti di una cartella e mi dia come risposta il nome del foglio e il contenuto della cella relativa alla colonna a corrispondente alla riga nella quale è contenuto il commento ricercato.
non so se sono stato chiaro:
io ho una cartella formata da fogli corrispondenti ai mesi dell'anno, nella colonna A sono segnati i giorni del mese e sulla corrispondente riga i vari appuntamenti contenuti nei commenti ;
ora la mia macro dovrebbe chiedermi di inserire il nome da cercare e restituirmi il nome del foglio (mese) e della riga (giorno) nel quale è contenuto il nome cercato.

grazie
mrjoeseme
Newbie
 
Post: 4
Iscritto il: 28/04/15 08:35

Sponsor
 

Re: macro ricerca commento

Postdi Anthony47 » 06/05/15 00:21

Una macro come questa cerca in tutti i commenti, e presenta il risultato in un messagebox finale; comunque quanto visualizzato e' disponibile nella variabile myFound, che quindi puoi usare per fare delle cose piu' articolate.
Codice: Seleziona tutto
Sub mykmt()
Dim mySrc As String, myCCmt As String, I As Long, J As Long, myFound As String
'
mySrc = InputBox("Chi cercare?", "Ricerca in commenti")
For I = 3 To ThisWorkbook.Worksheets.Count
    With Sheets(I)
        'myK1 = 0
        For J = 1 To .Comments.Count
        'aaa = Worksheets("Archivio").Comments(I).Text
    '        Set myOCmt = .Comments(J)
            myCCmt = .Comments(J).Text
            If InStr(1, myCCmt, mySrc, vbTextCompare) > 0 Then
                myFound = myFound & vbCrLf & .Cells(.Comments(J).Parent.Row, 1) & " - " & .Name
            End If
        Next J
        '
    End With
Next I
MsgBox ("Elenco trovati:" & myFound)
End Sub

Sai come gestirla?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro ricerca commento

Postdi mrjoeseme » 06/05/15 11:07

ho provato ma non mi da alcun risultato
mrjoeseme
Newbie
 
Post: 4
Iscritto il: 28/04/15 08:35

Re: macro ricerca commento

Postdi ricky53 » 06/05/15 12:30

Ciao,
potresti essere più ... "dettagliato".

Almeno il messaggio "Elenco trovati:" ti deve comparire anche senza alcuna valore dopo i due punti !

Tu cosa hai ottenuto?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: macro ricerca commento

Postdi mrjoeseme » 06/05/15 13:02

si, mi da la finestra "elenco trovati:" e poi nulla con il tasto OK sotto che cliccandolo chiude la finestra

grazie
mrjoeseme
Newbie
 
Post: 4
Iscritto il: 28/04/15 08:35

Re: macro ricerca commento

Postdi Anthony47 » 06/05/15 14:02

Ecco cosa mi restituisce cercando Pippo nel mio workbook:
Immagine
caricare immagini
L' esito su Foglio4 e' visibilmente coerente, idem per Foglio3 non visibile nell'immagine.
In prima battuta direi che quel che hai cercato non e' presente, ma se dici in dettaglio che cosa hai fatto allora posso fare ipotesi piu' articolate.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "macro ricerca commento":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti