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
Excel (office 365): alcuni file non si aprono Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 8 |
configurazione su excel 16 della casella di testo Autore: gianscooby |
Forum: Applicazioni Office Windows Risposte: 8 |
Ricerca valore su colonna altro foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
posizionati prima cella non "popolata" ma contenente formula Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: mirmidone21 e 38 ospiti