Moderatori: Anthony47, Flash30005
Sub LastSix()
Dim myFCol As String, myDest As String, lUsed As Long
'
myFCol = "A" '<<< La colonna dove prendere i dati
myDest = "F1" '<<< La posizione di copia
'
lUsed = Cells(Rows.Count, myFCol).End(xlUp).Row
If lUsed >= 6 Then
Cells(lUsed - 5, myFCol).Resize(6, 1).Copy Range(myDest)
Else
Cells(1, myFCol).Resize(6, 1).Copy Range(myDest)
End If
End Sub
=SE.ERRORE(INDICE($A$1:$A$100;GRANDE(SE($A$1:$A$100<>"";RIF.RIGA($A$1:$A$100);"");RIF.RIGA(A1)));"")
Che bella idea, così capiamo di che cosa si parla...Grazie ragazzi per le risposte,ho pensato di postare il link per poter visionare il file per avere un idea di quello che mi occore,perchè ancora non sono riuscito nell'intento.
=GRANDE(SE(calendario!$F$2:$F$1000=$C$3;RIF.RIGA($F$2:$F$1000);0)+SE(calendario!$G$2:$G$1000=$C$3;RIF.RIGA($F$2:$F$1000);0);RIF.RIGA(A1))
=INDICE(calendario!$D$1:$I$1000;A6;0)
=INDICE(COLONNA DATA;GRANDE(SE((COLONNA SQ.CASA=CELLA DI RICERCA DATO)+(COLONNA SQ. OSPITE=CELLA DI RICERCA DATO );RIF.RIGA(COLONNA SQ.CASA)-1);RIGHE(CELLA DELLA FORMULA)))
=INDICE(calendario.D$2:D$381;GRANDE(SE((calendario.$F$2:$F$381=$C$3)+(calendario.$G$2:$G$381=$C$3);RIF.RIGA(calendario.$F$2:$F$381)-1);RIGHE($C$6:$C6)))
Torna a Applicazioni Office Windows
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 42 ospiti