Risultati da 1 a 3 di 3

Discussione: Creare un alert al verificarsi di due condizioni contemporaneamente



  1. #1
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Creare un alert al verificarsi di due condizioni contemporaneamente

    Ciao ragazzi!!
    Mi sono da pochissimo approcciato al vba per la risoluzione di alcuni problemi quindi non ne capisco granché...
    In questo momento sto cercando di creare un alert che deve attivarsi al verificarsi di due condizioni.
    La prima condizione è che la data sia inferiore o uguale a 7 giorni a partire dalla data del giorno corrente, la seconda è che nella colonna affianco ci sia un "No" o un vuoto.
    Allego il codice ed il file...
    Codice: 
    Private Sub workbook_open()
    
    
    
    
    ' For Each cl In Range("$G$10:G50")
    ' If cl.Value = "Si" Then
    ' cl.EntireRow.Delete = True
    ' End If
    
    
    
    
    ' ORDINAMENTO Macro
    
    
    Range("Tabella1[[Scadenza ]]").Select
    ActiveWorkbook.Worksheets("Scadenziario").ListObjects("Tabella1").Sort. _
    SortFields.Clear
    ActiveWorkbook.Worksheets("Scadenziario").ListObjects("Tabella1").Sort. _
    SortFields.Add Key:=Range("F10"), SortOn:=xlSortOnValues, Order:= _
    xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Scadenziario").ListObjects("Tabella1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    
    
    Dim oggi As String
    Dim scadenza As Range
    Dim pagato As Range
    Set scadenza = Range("F10:F12")
    Set pagato = Range("G10:G12")
    
    
    oggi = CDate(Format(Now, "dd/mm/aa"))
    ' controlla scadenza maggiore di 7 giorni
    
    
    For Each Cl In scadenza
    For Each Cl In pagato
    
    
    If Cl(10, 6) <= oggi And Cells(10, 7) = "" Then
    
    
    Messaggio = MsgBox("Attenzione! Ci sono scadenze questa settimana!", vbExclamation)
    
    
    End If
    Exit Sub
    Next Cl
    
    
    End Sub
    Grazie in anticipo per ogni risposta!!
    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 03/06/16 alle 01:30 Motivo: ho messo il codice VBA tra i tag CODE

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1121
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Creare un alert al verificarsi di due condizioni contemporaneamente

    Codice: 
    Private Sub workbook_open()
    
    oggi = Date
    ' controlla scadenza maggiore di 7 giorni
    LR = Cells(Rows.Count, "F").End(xlUp).Row
    For r = 10 To LR
      d = Range("F" & r).Value - oggi
      If d <= 7 And Range("G" & r) <> "Si" Then
        Messaggio = MsgBox("Attenzione! Ci sono scadenze questa settimana!", vbExclamation)
        Exit For
      End If
    Next
    End Sub

  3. #3
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Re: Creare un alert al verificarsi di due condizioni contemporaneamente

    Fantastico, davvero! Grazie mille ancora!!
    Citazione Originariamente Scritto da patel Visualizza Messaggio
    Codice: 
    Private Sub workbook_open()
    
    oggi = Date
    ' controlla scadenza maggiore di 7 giorni
    LR = Cells(Rows.Count, "F").End(xlUp).Row
    For r = 10 To LR
      d = Range("F" & r).Value - oggi
      If d <= 7 And Range("G" & r) <> "Si" Then
        Messaggio = MsgBox("Attenzione! Ci sono scadenze questa settimana!", vbExclamation)
        Exit For
      End If
    Next
    End Sub

Discussioni Simili

  1. [Risolto] Creare una tabella estraendo i dati in base a determinate condizioni
    Di MaxpoweR nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 31/01/17, 00:15
  2. [Risolto] Formula per attivare un alert basata su un indicatore
    Di FB17 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 13/01/17, 09:58
  3. Abilitare pulsante al verificarsi di una condizione
    Di Gianluca85 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 03/10/16, 09:53
  4. Creare automaticamente fogli excel da un database in base a condizioni specifiche
    Di luigi.simone nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 30/07/16, 19:24
  5. Creare tabella avendo delle condizioni logiche
    Di carega83 nel forum Domande su Excel in generale
    Risposte: 19
    Ultimo Messaggio: 08/04/16, 14:03

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •