Usa la macro che ti ho suggerito: selezioni il tavolo, avvii la macro che resettera' quel tavolo.esiste un modo piu semplice?
Ciao
Moderatori: Anthony47, Flash30005
Usa la macro che ti ho suggerito: selezioni il tavolo, avvii la macro che resettera' quel tavolo.esiste un modo piu semplice?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myArea As String, Rispo, myMatch
'
miofoglio = "Foglio 2" '<<<Il PRIMO foglio di lavoro dei doppioclick
If ThisWorkbook.Sheets(miofoglio).Range("Z1").Value = 0 Then ThisWorkbook.Sheets(miofoglio).Range("Z1").Value = 10: Call oneSec
myArea = "B:I" '<<< Le colonne dedicate agli stati
'
If Not Application.Intersect(Target, Application.Intersect(Range(myArea), Range("2:2"))) Is Nothing Then
Cancel = True
Rispo = Application.InputBox("Numero del tavolo:", "Tavolo?", , , , , , 1)
If Rispo = False Then Exit Sub
myMatch = Application.Match(Rispo, Range("A:A"), 0)
If Not IsError(myMatch) Then
Cells(myMatch, Target.Column) = Now - Int(Now)
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myArea As String, Rispo, myMatch
'
miofoglio = "Foglio 2" '<<<Il PRIMO foglio di lavoro dei doppioclick
If ThisWorkbook.Sheets(miofoglio).Range("Z1").Value = 0 Then ThisWorkbook.Sheets(miofoglio).Range("Z1").Value = 10: Call oneSec
myArea = "B:I" '<<< Le colonne dedicate agli stati
'
If Not Application.Intersect(Target, Application.Intersect(Range(myArea), Range("2:2"))) Is Nothing Then
Cancel = True
UserFT.Show
End If
End Sub
Private Sub UserForm_Activate()
czoom = ActiveWindow.Zoom
Me.Width = 225
Me.Height = 115
Me.Left = Selection.Offset(0, 1).Left
Me.TextBox1.Text = ""
Me.TextBox1.Font.Size = 16
Me.Width = Me.Width * czoom / 100
Me.Height = Me.Height * czoom / 100
Me.Zoom = czoom
Me.TextBox1.SetFocus
End Sub
La mia conoscenza deriva da "qualche anno" di pratica e non ho mai seguito corsi sull'argomento.
Mi sento di suggerirti di partire da qualche buon libro che tratti di vba; se parli l'inglese ne trovi parecchi, in Italiano c'e' meno offerta.
Se passi in una buona libreria (le Feltrinelli o Mondadori sono tra le piu' dotate) troverai certamente qualcosa di appropriato.
Poi una volta partito solo la pratica ti puo' far fare il salto di qualita'.
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 57 ospiti