buongiorno
dopo molti tentativi sono riuscito in parte ad ottenere qualcosa, ma oltre non riesco ad andare
quello che vorrei ottenere è spiegato nel file
grazie
link
http://www.filedropper.com/mio_2
Moderatori: Anthony47, Flash30005
=SOSTITUISCI(ANNULLA.SPAZI(SOSTITUISCI(GD5;"-";" "))&"-"&ANNULLA.SPAZI(SOSTITUISCI(GE5;"-";" "));" ";"-")
Function myLnD(ByVal myTeam As String, ByRef myTTab As Range, ByRef myDTab As Range) As String
Dim I As Long, rCnt As Long, Resul As String
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=110222
'
For I = 1 To myTTab.Rows.Count
For j = 1 To 2
If myTTab.Cells(I, j) = myTeam Then
If Len(myDTab.Cells(I, 1)) > 0 Then
Resul = Resul & myDTab.Cells(I, j) & "-"
Else
Resul = Resul & "#-"
End If
rCnt = rCnt + 1
End If
Next j
If rCnt = 6 Then
myLnD = Left(Resul, Len(Resul) - 1)
Exit For
End If
Next I
myLnD = Left(Resul, Len(Resul) - 1)
End Function
=myLnD(BZ4;$FH$5:$FI$900;$FR$5:$FS$900)
Torna a Applicazioni Office Windows
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Ricerca valore su colonna altro foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Nessuno e 39 ospiti