Certamente Si, ma l'algoritmo va affinato...
Semplificando si potrebbe realizzare un primo loop che cerchi la corrispondenza secondo la prima regola; poi un secondo loop che, partendo dalla cella corispondente alla prima regola, parta con la ricerca applicando la seconda regola. Esempio con Find
- Codice: Seleziona tutto
Dim Rng As Range, retCell As String, mCell As Range
Dim Simil As Boolean, myMask As String
dovecerco = "Foglio3"
compl = "YYYYY"
lastD = Sheets(dovecerco).Cells(Rows.Count, "D").End(xlUp).Row
Set Rng = Sheets(dovecerco).Range("D:D").Find(What:=compl, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
myMask = "?A??A"
retWord = ""
For Each mCell In Rng.Resize(lastD, 1)
If mCell.Value Like myMask Then
retCell = mCell.Address
Exit For
End If
Next mCell
End If
A completamento del codice la variabile retCell conterra' l'indirizzo, all'interno del foglio indicato, della prima parola che risponde alla condizione myMask = "?A??A" dopo aver trovato la stringa indicata.
Ciao