premetto che sono un principiante, e con l'aiuto di amici ho creato questa macro che quando nel menu' a tendina si seleziona la voce "OCCUPATO", in un altra casella mi compare una scritta, ora vorrei utilizzare la stessa macro, che quando si seleziona la voce: "RISERVATO"; mi inserisca nella riga adiacente un riquadro con l'esecuzione di un altra macro (mi deve comparire un timer).
MACRO PER MENU' A TENDINA:
- Codice: Seleziona tutto
Sub AreaSosta()
Dim i As Long, j As Long
Dim WS As Worksheet
Set WS = Worksheets("foglio2")
nR = WS.Cells(Rows.Count, "A").End(xlUp).Row
Range("K3:M" & nR).ClearContents
With WS
i = 3
Do
j = 1
Do While .Cells(i, "H") = .Cells(i + j, "H") And .Cells(i, "I") = "PRENOTATO" And .Cells(i + j, "I") = "PRENOTATO" And .Cells(i + j, "H") <> ""
j = j + 1
Loop
Select Case j
Case 1
Case 2
.Cells(i, "K") = "MEZZO IN AREA 1"
Case 3
.Cells(i, "L") = "MEZZO IN AREA 2"
Case Is >= 4
.Cells(i, "M") = "MEZZO IN AREA 3"
End Select
i = i + j
Loop While i <= nR
End With
End Sub
-------------------------------------
MACRO PER TIMER:
- Codice: Seleziona tutto
Sub Avvia2()
Foglio2.Select
[Z1] = [E1] + Time
Call Ciclo2
End Sub
Sub Ciclo2()
If ThisWorkbook.Worksheets("Foglio2").Range("Z1").Value < Time Then
MsgBox "PRENOTAZIONE SCADUTA!"
Exit Sub
End If
ThisWorkbook.Worksheets("Foglio2").Range("G1").Value = Format(ThisWorkbook.Worksheets("Foglio2").Range("Z1").Value - Time, "hh:mm:ss")
DoEvents
Application.OnTime Now + TimeSerial(0, 0, 1), "Ciclo2"
End Sub
