Ciao a tutti! Girando tra i forum ho trovato questa funzione che permette di far aprire una finestra popup cliccando su una determinata cella.
Quello che vorrei fare è integrare questa funzione nel mio codice: in pratica, la Sub seguente effettua una ricerca di una parola su un range di celle e, se trovata, marca la cella di rosso. A questo punto dovrebbe anche abilitare l'apertura di un form (newarticle) presente nel VBAproject.codice:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$3" Then Cancel = True MsgBox "Here is your code!" End If End Sub
La mia domanda quindi è: come abilitare l'apertura del form (newarticle) cliccando sulle celle marcate dalla ricerca?codice:Sub CheckRecords() ... With Sheets(1).Range("B6:B100") 'ricerco la parola contenuta nella variabile stringa nel range B6:B100 Set Rng = .Find(What:=stringa, _ After:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) 'Se trova la parola colora la cella corrispondente di rosso e abilita apertura form If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3 'Rng.Address restituisce l'indirizzo assoluto della cella (es: $B$9) ???abilitare form??? End If End With ... End Sub
Spero di aver esposto chiaramente il problema...e un grazie in anticipo a tutti!

Rispondi quotando