Moderatori: Anthony47, Flash30005
Dim cSel As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If cSel <> "" Then Range(cSel).Select
On Error GoTo 0
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
cSel = Target.Address
End Sub
Dim cSel As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ignora = Array("Foglio2", "Foglio4") '<<<
If IsError(Application.Match(Sh.Name, ignora, 0)) Then
On Error Resume Next
If cSel <> "" Then Range(cSel).Select
On Error GoTo 0
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ignora = Array("Foglio2", "Foglio4") '<<<
If IsError(Application.Match(Sh.Name, ignora, 0)) Then
cSel = Target.Address
End If
End Sub
Torna a Applicazioni Office Windows
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Incolla prendendo riferimento da cella esterna Autore: scanacc |
Forum: Applicazioni Office Windows Risposte: 4 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 39 ospiti