Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Deactivate()
Dim mioadd As String
mioadd = Sheets("foglio2").Range(Sheets("foglio2").Cells(2, 1), Sheets("foglio2").Cells(65536, 1).End(xlUp)).Address
ActiveWorkbook.Names.Add Name:="CODICE", RefersTo:="=foglio2!" & mioadd
mioadd = Sheets("foglio2").Range(Sheets("foglio2").Cells(2, 1), Sheets("foglio2").Cells(65536, 3).End(xlUp)).Address
ActiveWorkbook.Names.Add Name:="DATI", RefersTo:="=foglio2!" & mioadd
Sheets("foglio2").Range("A1").Sort Key1:=Sheets("foglio2").Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Private Sub Worksheet_Activate()
Range("b2").Select
ActiveCell.FormulaR1C1 = "=INDEX(DATI,MATCH(RC[-1],Codice,0)+1,2)"
Range("c2").Select
ActiveCell.FormulaR1C1 = "=INDEX(DATI,MATCH(RC[-2],Codice,0)+1,3)"
End Sub
messaggio = "Scrivi i dati che vuoi salvare"
titolo = "Pc Facile.com"
x = InputBox(messaggio, titolo)
If x = "" Then Exit Sub
[A65536].End(xlUp).Offset(1, 0).Select
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 98 ospiti