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
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
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 |
Visitano il forum: Nessuno e 84 ospiti