Risultati da 1 a 8 di 8

Discussione: Abilitare pulsante al verificarsi di una condizione



  1. #1
    L'avatar di Gianluca85
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Roma
    Messaggi
    9
    Versione Office
    2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Question Abilitare pulsante al verificarsi di una condizione

    Buonasera a tutti!! Volevo sottoporre alla vostra attenzione un problema che non riesco a risolvere:

    vorrei far abilitare un pulsante quando si verifica una certa condizione. Nello specifico vorrei che quando i dati della colonna E sono uguali ai dati della colonna F (foglio packaging, la cui lunghezza è variabile) allora il pulsante funziona. qui sotto riporto il codice che ho provato a scrivere, ma.. non va! Inoltre vorrei che il pulsante non eseguisse solo la pulizia che ho scritto ma che cerchi nel foglio database il cliente con ha il codice uguale a quello inserito in B12 ( foglio packaging) e faccia un taglia e incolla dei dati nella prima riga disponibile del foglio magazzino. Io ragazzi pensavo che un semplice ciclo If scritto così potesse andare bene e poi aggiungere qualche macro sul copia e incolla che si trovano on line, ma.. se non supero il ciclo IF figuriamoci il taglia incolla... Qui sotto riporto il codice. AIUTO!

    Codice: 
    Option Explicit
    Sub Pulisci()
    
    
    Dim Ur As Long
    
    
    Sheets("Foglio1 ").Select
    
    
    Ur = Range("G" & Rows.Count).End(xlUp).Rows
    
    
    If Sheets("Foglio1").Range(Cells(12, 5), Cells(Rows.Count, 5).End(xlDown)) = Sheets("Foglio1").Range(Cells(12, 6), Cells(Rows.Count, 6).End(xlDown)) Then
    
    
    Application.ScreenUpdating = False
    Sheets("Foglio1 ").Select
    Sheets("Foglio1 ").Range(Cells(12, 5), Cells(Rows.Count, 7).End(xlDown)).ClearContents
    Sheets("Foglio1").Range(Cells(12, 2), Cells(Rows.Count, 2).End(xlDown)).ClearContents
    Sheets("Foglio1").Range(Cells(12, 5), Cells(Rows.Count, 9).End(xlDown)).ClearFormats
    Range("B12").Select
    
    
    End If
    
    
    End Sub
    File Allegati File Allegati
    • Tipo File: xlsm 1.xlsm (70.8 KB, 6 Visualizzazioni)
    Ultima modifica fatta da:Marius44; 22/09/16 alle 18:06 Motivo: inserimento Tag

  2. #2
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    44
    Messaggi
    650
    Versione Office
    Excel 2010
    Mi Piace ricevuti
    214
    Mi Piace dati
    174

    Re: Abilitare pulsante al verificarsi di una condizione

    ...domande:
    -ho visto il file che hai allegato ma non ho capito dove hai copiato il codice che hai indicato (non inserito nei tag!), quindi la domanda è come hai provato il codice? che tipo di errori ti ha dato?
    -se i fogli si chiamano "database", "Packaging" e "Magazzino", perché fai riferimento a "Foglio1 " e "Foglio1"?

    ...prova a spiegare con maggiore precisione, per esempio cosa intendi per dati della colonna E uguali ai dati della colonna F?

    saluti
    GG

  3. #3
    L'avatar di Gianluca85
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Roma
    Messaggi
    9
    Versione Office
    2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Re: Abilitare pulsante al verificarsi di una condizione

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    ...domande:
    -ho visto il file che hai allegato ma non ho capito dove hai copiato il codice che hai indicato (non inserito nei tag!), quindi la domanda è come hai provato il codice? che tipo di errori ti ha dato?
    -se i fogli si chiamano "database", "Packaging" e "Magazzino", perché fai riferimento a "Foglio1 " e "Foglio1"?

    ...prova a spiegare con maggiore precisione, per esempio cosa intendi per dati della colonna E uguali ai dati della colonna F?

    saluti
    GG

    Hai ragione! adesso ho allegato il file corretto per la prova. Per dati uguali tra colonna E ed F intendo che le celle, per esempio E12 and F11 del foglio 1, contengano lo stesso numero. Il codice che ho riportato nel file, pulisce il formats di alcune celle contenute nel foglio 1 ma vorrei che il pulsante si abilitasse al verificarsi della condizione citata prima e, inoltre, facesse l'azione taglia incolla descritta nel post precedente. La prossima volta uso il tag per il codice, promesso!
    File Allegati File Allegati
    • Tipo File: xlsm 1.xlsm (71.9 KB, 5 Visualizzazioni)

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    44
    Messaggi
    1811
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    608
    Mi Piace dati
    559

    Re: Abilitare pulsante al verificarsi di una condizione

    Ciao a tutti.
    Se ho capito bene, devi sostituire il pulsante con un controllo ActiveX, poi devi aggiungere questi codici:
    Nel Modulo di Classe "Questa_cartella_di_lavoro"
    Codice: 
    Private Sub Workbook_Open()
    Foglio4.CommandButton1.Enabled = False
    End Sub
    Nel modulo di Classe del Foglio:
    Codice: 
    Private Sub CommandButton1_Click()
    Dim Ur As Long
    
    
    Ur = Foglio4.Range("E" & Rows.Count).End(xlUp).Row
    If Ur < 12 Then Exit Sub
    
    
    Foglio4.Range("E12:G" & Ur).ClearContents
    Foglio4.CommandButton1.Enabled = False
    End Sub
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("e12:e100")) Is Nothing Then
        If Target = Target.Offset(, 1) Then
            Foglio4.CommandButton1.Enabled = True
        Else
            Foglio4.CommandButton1.Enabled = False
        End If
    ElseIf Not Intersect(Target, Range("f12:f100")) Is Nothing Then
        If Target = Target.Offset(, -1) Then
            Foglio4.CommandButton1.Enabled = True
        Else
            Foglio4.CommandButton1.Enabled = False
        End If
    End If
    End Sub
    File Allegati File Allegati
    • Tipo File: xlsm 1.xlsm (75.5 KB, 9 Visualizzazioni)

  5. #5
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    44
    Messaggi
    650
    Versione Office
    Excel 2010
    Mi Piace ricevuti
    214
    Mi Piace dati
    174

    Re: Abilitare pulsante al verificarsi di una condizione

    ...io sono rimasto sul semplice, ma Gianluca è stato ancora poco chiaro a mio avviso sarebbe meglio allegasse un foglio con qualche dato in più (anche inventato) per poter interpretare cosa intende. Ad ogni modo io ho inteso (almeno per la prima parte della sua richiesta) che, nelle condizioni che ha indicato, cliccando sul pulsante la macro non produca effetti, quindi:
    Codice: 
    Option Explicit
    Sub Pulisci()
    
    
    Dim Ur5 As Long, Ur6 As Long
    Dim i As Long
    Dim ArrE, ArrF
    
    
    Sheets("Foglio1").Select
    
    
    Ur5 = Sheets("Foglio1").Range(Cells(11, 5), Cells(Rows.Count, 5).End(xlUp)).Rows.Count
    Ur6 = Sheets("Foglio1").Range(Cells(11, 6), Cells(Rows.Count, 6).End(xlUp)).Rows.Count
    
    
    ArrE = Sheets("Foglio1").Range(Cells(11, 5), Cells(11 + Ur5 - 1, 5)).Value
    ArrF = Sheets("Foglio1").Range(Cells(11, 6), Cells(11 + Ur6 - 1, 6)).Value
    
    
    If Ur5 = Ur6 And Ur5 * Ur6 > 1 Then
    For i = 2 To Ur5
    If ArrE(i, 1) <> ArrF(i, 1) Then Exit Sub
    Next
    With Sheets("Foglio1").Range(Cells(12, 2), Cells(12 + Ur5 - 1, 7))
    .ClearContents
    .ClearFormats
    End With
    Range("B12").Select
    End If
    
    
    End Sub
    per come è scritta la macro cancella formato e contenuto dei dati sotto la riga11 dalla colonna B (2) alla colonna G (7), diversamente se si intende cancellare solo i formati e contenuti delle colonne E-G o altre, i riferimenti delle istruzioni .ClearContents e .ClearFormats vanno opportunamente modificati.

    saluti
    GG

  6. #6
    L'avatar di Gianluca85
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Roma
    Messaggi
    9
    Versione Office
    2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Re: Abilitare pulsante al verificarsi di una condizione

    Ggratis ho riadattato la tua macro e funziona benissimo!!! Grazie! e un grazie anche a Rubik72 per avermi dedicato un po del suo tempo. Ora il mio dubbio è: è possibile inserire in questa macro la possibilità di cercare il valore di B12 nel foglio1 all'interno del foglio2 e successivamente tagliare la riga corrispondente e incollarla nella prima riga libera del foglio3?? é fattibile secondo voi?

  7. #7
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    44
    Messaggi
    650
    Versione Office
    Excel 2010
    Mi Piace ricevuti
    214
    Mi Piace dati
    174

    Re: Abilitare pulsante al verificarsi di una condizione

    Certo, il concetto da applicare è molto simile a quello espresso in questa discussione che però si riferisce alla ricerca dell'ultima colonna.
    http://www.forumexcel.it/forum/showthread.php?t=5214

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  8. #8
    L'avatar di Gianluca85
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Roma
    Messaggi
    9
    Versione Office
    2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Re: [RISOLTO] Abilitare pulsante al verificarsi di una condizione

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    Certo, il concetto da applicare è molto simile a quello espresso in questa discussione che però si riferisce alla ricerca dell'ultima colonna.
    http://www.forumexcel.it/forum/showthread.php?t=5214

    Inviato dal mio GT-I9105P utilizzando Tapatalk
    Ragazzi grazie!! Finalmente sono riuscito nel mio intento!!
    GRAZIE GRAZIE!

Discussioni Simili

  1. Macro/Pulsante +1/-1
    Di Ariel89 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 20/07/16, 19:26
  2. Creare un alert al verificarsi di due condizioni contemporaneamente
    Di mirko.esposito nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 03/06/16, 07:20
  3. pulsante che azzera
    Di pers78 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 17/11/15, 21:29
  4. Help associato a pulsante
    Di zio_tom nel forum Domande su Excel VBA e MACRO
    Risposte: 26
    Ultimo Messaggio: 24/10/15, 21:37
  5. Somma al verificarsi di una condizione ma per un range variabile
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 07/10/15, 17:57

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
  •