Moderatori: Anthony47, Flash30005
=SE(D3<=11;SE(D3<1;"";E3);"")
Sub ordina()
UC = Worksheets("Foglio1").Range("AG2").End(xlToLeft).Column
ColT = 7
cicli = Int(UC / ColT)
CIni = 2
For Ord = 1 To cicli
Range(Cells(2, CIni), Cells(27, CIni + 5)).Select
Selection.Sort Key1:=Cells(3, CIni + 2), Order1:=xlAscending, Key2:=Cells(3, CIni + 3) _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
CIni = CIni + ColT
Next Ord
Range("A1").Select
End Sub
gigilatrottola ha scritto:...
il fatto che posso fare fino alla colonna ab, è perchè l'hai impostato tu oppure è la capacità max della macro?
gigilatrottola ha scritto:ultimissima cosa e ti giuro nn ti domanderò + niente....puoi rivedere il file con i contatti e il calendario?
=CERCA.ORIZZ(B2;R1:AK27;RIF.RIGA()-1;FALSO)
=CERCA.ORIZZ(B32;R1:AK27;RIF.RIGA()-31;FALSO)
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 86 ospiti