Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro legate con scelta subordinata

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro legate con scelta subordinata

Postdi tempusfugit » 29/07/20 11:21

Buongiorno ragazzi,
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
tempusfugit
Newbie
 
Post: 6
Iscritto il: 29/07/20 07:27

Sponsor
 

Re: Macro legate con scelta subordinata

Postdi Anthony47 » 29/07/20 15:25

La comprensibilita' della tua macro e della richiesta e' migliore se pubblichi anche un foglio di lavoro dimostrativo.
Per le istruzioni su come allegare un file, vedi viewtopic.php?f=26&t=103893&p=605487#p605487

Ti aspettiamo con queste informazioni, ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17106
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Macro legate con scelta subordinata":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti