Risultati da 1 a 16 di 16

Discussione: Migliorare il progettino sulle TextBox



  1. #1
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Migliorare il progettino sulle TextBox

    Buonasera a tutti,

    non riuscendo a migliorare il progettino, che con l'aiuto di Cromagno e Rollis13 che ringrazio per il loro supporto ho portato avanti, sono a chiederVi un'ulteriore aiuto.


    Ho inserito n. 3 pulsanti: Aggiungi, Modifica ed Elimina.
    Al pulsante Aggiungi, sono riuscito a completare mentre per le rimanenti non ci riesco.


    Inoltre se è possibile, alla visione dei Record che appare su UserForm, gradirei che sia elencato il numero di visione del record per es: "Record 4 di 15"


    Vi ringrazio come sempre anticipatamente per l'aiuto,
    Mauro

    Allego il file.
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Migliorare il progettino sulle TextBox

    Ho apportato le modifiche richieste:
    Codice: 
    Option Explicit
    Dim Elenco As Range
    Dim RecordCorrente As Range
    Public Riga As Long, iRiga As Long, uRiga As Long
    
    
    Private Sub Cmd_Aggiungi_Click()
    Dim h As Integer
    
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    
    h = 6
    Do Until Range("G" & h) = "" Or h = 50
        If Range("G" & h) = Txt_Prodotti Then
            MsgBox "Record già esistente!", vbCritical + vbOKOnly, "ATTENZIONE"
            GoTo Uscita
        End If
        h = h + 1
    Loop
    Range("G" & h) = Txt_Prodotti
    Range("H" & h) = Txt_Frutta
    Range("I" & h) = Txt_Verdura
    
    
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    
    Uscita:
    Sheets("Voci").Select
    
    
    Cmd_Azzera.Visible = True
    Cmd_Aggiungi.Visible = False
    
    
    End Sub
    
    
    Private Sub Cmd_Annulla_Click()
    
    
    
    
    
    
    End Sub
    
    
    Private Sub Cmd_Azzera_Click()
    
    
    Call PulisciTextBox
    Cmd_Azzera.Visible = False
    Cmd_Aggiungi.Visible = True
    
    
    End Sub
    
    
    Private Sub Cmd_Modifica_Click()
    Dim h As Integer
    
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    
    h = 6
    Do Until Range("G" & h) = Txt_Prodotti Or h = 50
        If Range("G" & h) = "" Then
            MsgBox "Record inesistente!", vbCritical + vbOKOnly, "ATTENZIONE"
            GoTo Uscita
        End If
        h = h + 1
    Loop
    Range("G" & h) = Txt_Prodotti
    Range("H" & h) = Txt_Frutta
    Range("I" & h) = Txt_Verdura
        
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    
    Uscita:
    Sheets("Voci").Select
    
    
    End Sub
    
    
    Private Sub Cmd_Prima_Voce_Click()
    
    
    Txt_Prodotti.Value = Range("G" & iRiga).Value
    Txt_Frutta.Value = Range("H" & iRiga).Value
    Txt_Verdura.Value = Range("I" & iRiga).Value
    Riga = iRiga
    
    
    End Sub
    
    
    Private Sub Cmd_Ultima_Voce_Click()
    
    
    Txt_Prodotti.Value = Range("G" & uRiga).Value
    Txt_Frutta.Value = Range("H" & uRiga).Value
    Txt_Verdura.Value = Range("I" & uRiga).Value
    Riga = uRiga
    
    
    End Sub
    
    
    Private Sub Cmd_Voce_giù_Click()
    
    
    If Riga < uRiga Then
        Txt_Prodotti.Value = Range("G" & Riga + 1).Value
        Txt_Frutta.Value = Range("H" & Riga + 1).Value
        Txt_Verdura.Value = Range("I" & Riga + 1).Value
        Riga = Riga + 1
    End If
    
    
    End Sub
    
    
    Private Sub Cmd_Voce_sù_Click()
    
    
    If Riga > iRiga Then
        Txt_Prodotti.Value = Range("G" & Riga - 1).Value
        Txt_Frutta.Value = Range("H" & Riga - 1).Value
        Txt_Verdura.Value = Range("I" & Riga - 1).Value
        Riga = Riga - 1
    End If
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    
    Txt_Prodotti.Value = Range("G6").Value
    Txt_Frutta.Value = Range("H6").Value
    Txt_Verdura.Value = Range("I6").Value
    
    
    iRiga = 6
    Riga = iRiga
    uRiga = Worksheets("Voci").Range("G" & Rows.Count).End(xlUp).Row
    
    
    Label1.Caption = "Record ....." & " di " & Range("M3").Value
    
    
    Cmd_Azzera.Visible = True
    
    
    End Sub
    
    
    Private Sub PulisciTextBox()
    
    
    Txt_Prodotti = ""
    Txt_Frutta = ""
    Txt_Verdura = ""
    Txt_Prodotti.SetFocus
    
    
    End Sub
    P.S. Non capisco il limite dei 50 record del database.
    P.P.S. Il tasto annulla quale funzione deve avere?
    File Allegati File Allegati

  3. #3
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Migliorare il progettino sulle TextBox

    Grazie come sempre per la disponibilità Rubik,

    ho avuto modo di provare: "Modifica", la prima voce dei "prodotti" non funziona "Record inesistente", mentre le rimanenti voci funzionano per es:
    "Sandalo, Pera, Cicoria", la variazione funziona solo su Pera e Cicoria.


    Per il tasto "Annulla", dovrebbe eliminare la riga del Record.

    Per il limite ho ritenuto il limite massimo di inserimento dei Record, ma si potrebbe benissimo eliminare.

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Migliorare il progettino sulle TextBox

    Strano, a me funziona, comunque ho apportato qualche modifica ed ho implementato il tasto "ANNULLA"
    Codice: 
    Option Explicit
    Dim Elenco As Range
    Dim RecordCorrente As Range
    Public Riga As Long, iRiga As Long, uRiga As Long
    
    
    Private Sub Cmd_Aggiungi_Click()
    Dim h As Integer
    
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    
    h = 6
    Do Until Range("G" & h) = "" Or h = 50
        If Range("G" & h) = Txt_Prodotti Then
            MsgBox "Record già esistente!", vbCritical + vbOKOnly, "ATTENZIONE"
            GoTo Uscita
        End If
        h = h + 1
    Loop
    Range("G" & h) = Txt_Prodotti
    Range("H" & h) = Txt_Frutta
    Range("I" & h) = Txt_Verdura
    
    
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    
    Uscita:
    Sheets("Voci").Select
    
    
    Cmd_Azzera.Visible = True
    Cmd_Aggiungi.Visible = False
    
    
    End Sub
    
    
    Private Sub Cmd_Annulla_Click()
    
    
    Range("G" & Riga & ":I" & Riga).Delete xlShiftUp
    
    
    End Sub
    
    
    Private Sub Cmd_Azzera_Click()
    
    
    Call PulisciTextBox
    Cmd_Azzera.Visible = False
    Cmd_Aggiungi.Visible = True
    
    
    End Sub
    
    
    Private Sub Cmd_Modifica_Click()
    
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    
    Range("G" & Riga) = Txt_Prodotti
    Range("H" & Riga) = Txt_Frutta
    Range("I" & Riga) = Txt_Verdura
        
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    
    Uscita:
    Sheets("Voci").Select
    
    
    End Sub
    
    
    Private Sub Cmd_Prima_Voce_Click()
    
    
    Txt_Prodotti.Value = Range("G" & iRiga).Value
    Txt_Frutta.Value = Range("H" & iRiga).Value
    Txt_Verdura.Value = Range("I" & iRiga).Value
    Riga = iRiga
    
    
    End Sub
    
    
    Private Sub Cmd_Ultima_Voce_Click()
    
    
    Txt_Prodotti.Value = Range("G" & uRiga).Value
    Txt_Frutta.Value = Range("H" & uRiga).Value
    Txt_Verdura.Value = Range("I" & uRiga).Value
    Riga = uRiga
    
    
    End Sub
    
    
    Private Sub Cmd_Voce_giù_Click()
    
    
    If Riga < uRiga Then
        Txt_Prodotti.Value = Range("G" & Riga + 1).Value
        Txt_Frutta.Value = Range("H" & Riga + 1).Value
        Txt_Verdura.Value = Range("I" & Riga + 1).Value
        Riga = Riga + 1
    End If
    
    
    End Sub
    
    
    Private Sub Cmd_Voce_sù_Click()
    
    
    If Riga > iRiga Then
        Txt_Prodotti.Value = Range("G" & Riga - 1).Value
        Txt_Frutta.Value = Range("H" & Riga - 1).Value
        Txt_Verdura.Value = Range("I" & Riga - 1).Value
        Riga = Riga - 1
    End If
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    
    Txt_Prodotti.Value = Range("G6").Value
    Txt_Frutta.Value = Range("H6").Value
    Txt_Verdura.Value = Range("I6").Value
    
    
    iRiga = 6
    Riga = iRiga
    uRiga = Worksheets("Voci").Range("G" & Rows.Count).End(xlUp).Row
    
    
    Label1.Caption = "Record ....." & " di " & Range("M3").Value
    
    
    Cmd_Azzera.Visible = True
    
    
    End Sub
    
    
    Private Sub PulisciTextBox()
    
    
    Txt_Prodotti = ""
    Txt_Frutta = ""
    Txt_Verdura = ""
    Txt_Prodotti.SetFocus
    
    
    End Sub
    File Allegati File Allegati

  5. #5
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Migliorare il progettino sulle TextBox

    Grazie Rubik per la cortesia e celerità,


    al momento funziona e, per completare, rimane l'ultimo ostacolo, se è possibile vorrei poter aggiustare anche la visione dei record.

    In pratica gradirei che sia elencato sull'UserForm il numero di visione al variare dei

    record per es: "Record 4 di 15 o Record 10 di 15".

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

    Re: Migliorare il progettino sulle TextBox

    Codice: 
    Option Explicit
    Dim Elenco As Range
    Dim RecordCorrente As Range
    Public Riga As Long, iRiga As Long, uRiga As Long
    
    Private Sub Cmd_Aggiungi_Click()
    Dim h As Integer
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    h = 6
    Do Until Range("G" & h) = "" Or h = 50
        If Range("G" & h) = Txt_Prodotti Then
            MsgBox "Record già esistente!", vbCritical + vbOKOnly, "ATTENZIONE"
            GoTo Uscita
        End If
        h = h + 1
    Loop
    Range("G" & h) = Txt_Prodotti
    Range("H" & h) = Txt_Frutta
    Range("I" & h) = Txt_Verdura
    
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    Uscita:
    Sheets("Voci").Select
    
    Cmd_Azzera.Visible = True
    Cmd_Aggiungi.Visible = False
    
    End Sub
    
    Private Sub Cmd_Annulla_Click()
    
    Range("G" & Riga & ":I" & Riga).Delete xlShiftUp
    
    End Sub
    
    Private Sub Cmd_Azzera_Click()
    
    Call PulisciTextBox
    Cmd_Azzera.Visible = False
    Cmd_Aggiungi.Visible = True
    
    End Sub
    
    Private Sub Cmd_Modifica_Click()
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    Range("G" & Riga) = Txt_Prodotti
    Range("H" & Riga) = Txt_Frutta
    Range("I" & Riga) = Txt_Verdura
        
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    Uscita:
    Sheets("Voci").Select
    
    End Sub
    
    Private Sub Cmd_Prima_Voce_Click()
    
    Txt_Prodotti.Value = Range("G" & iRiga).Value
    Txt_Frutta.Value = Range("H" & iRiga).Value
    Txt_Verdura.Value = Range("I" & iRiga).Value
    Riga = iRiga
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    End Sub
    
    Private Sub Cmd_Ultima_Voce_Click()
    
    Txt_Prodotti.Value = Range("G" & uRiga).Value
    Txt_Frutta.Value = Range("H" & uRiga).Value
    Txt_Verdura.Value = Range("I" & uRiga).Value
    Riga = uRiga
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value'<<<<<<<<<<<
    End Sub
    
    Private Sub Cmd_Voce_giù_Click()
    
    If Riga < uRiga Then
        Txt_Prodotti.Value = Range("G" & Riga + 1).Value
        Txt_Frutta.Value = Range("H" & Riga + 1).Value
        Txt_Verdura.Value = Range("I" & Riga + 1).Value
        Riga = Riga + 1
        Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value'<<<<<<<<<<<
    End If
    
    End Sub
    
    Private Sub Cmd_Voce_sù_Click()
    
    If Riga > iRiga Then
        Txt_Prodotti.Value = Range("G" & Riga - 1).Value
        Txt_Frutta.Value = Range("H" & Riga - 1).Value
        Txt_Verdura.Value = Range("I" & Riga - 1).Value
        Riga = Riga - 1
        Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value'<<<<<<<<<<<
    End If
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    Txt_Prodotti.Value = Range("G6").Value
    Txt_Frutta.Value = Range("H6").Value
    Txt_Verdura.Value = Range("I6").Value
    
    iRiga = 6
    Riga = iRiga
    uRiga = Worksheets("Voci").Range("G" & Rows.Count).End(xlUp).Row
    
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value'<<<<<<<<<<<
    
    Cmd_Azzera.Visible = True
    
    End Sub
    
    Private Sub PulisciTextBox()
    
    Txt_Prodotti = ""
    Txt_Frutta = ""
    Txt_Verdura = ""
    Txt_Prodotti.SetFocus
    
    End Sub

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Migliorare il progettino sulle TextBox

    Grazie Patel,

    la visione dei record funziona ad eccezione di "Annulla" che non viene aggiornato.
    Se annullo per es. il record n. 3, il Record totale, rimane invariato.





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

    Re: Migliorare il progettino sulle TextBox

    non solo, ma non si aggiornano neppure le textbox, d'altra parte la sub si limita ad eliminare la riga dal foglio,ogni volta che si elimina una riga occorrerebbe prima rileggere daccapo la riga successivai e questo lo potresti provare a fare tu

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

    Re: Migliorare il progettino sulle TextBox

    mi spiego meglio, se elimini la riga 2 dal foglio la 3 diventa 2 quindi devi rileggere la seconda riga e visualizzarla nelle textbox e poi rileggere la cella M3

  11. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Migliorare il progettino sulle TextBox

    Prova questa (è da testare):
    Codice: 
    Option Explicit
    Dim Elenco As Range
    Dim RecordCorrente As Range
    Public Riga As Long, iRiga As Long, uRiga As Long
    
    
    Private Sub Cmd_Aggiungi_Click()
    Dim h As Integer
    
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    
    h = 6
    Do Until Range("G" & h) = "" Or h = 50
        If Range("G" & h) = Txt_Prodotti Then
            MsgBox "Record già esistente!", vbCritical + vbOKOnly, "ATTENZIONE"
            GoTo Uscita
        End If
        h = h + 1
    Loop
    Range("G" & h) = Txt_Prodotti
    Range("H" & h) = Txt_Frutta
    Range("I" & h) = Txt_Verdura
    
    
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
        
        Riga = h
        Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    
    
    Uscita:
    Sheets("Voci").Select
    
    
    Cmd_Azzera.Visible = True
    Cmd_Aggiungi.Visible = False
    
    
    End Sub
    
    
    Private Sub Cmd_Annulla_Click()
    
    
    Range("G" & Riga & ":I" & Riga).Delete xlShiftUp
    uRiga = uRiga - 1
    
    
    If Riga < uRiga Then
        Riga = Riga + 1
    Else
        Riga = Riga - 1
    End If
    
    
    Txt_Prodotti.Value = Range("G" & Riga).Value
    Txt_Frutta.Value = Range("H" & Riga).Value
    Txt_Verdura.Value = Range("I" & Riga).Value
    
    
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    
    
    End Sub
    
    
    Private Sub Cmd_Azzera_Click()
    
    
    Call PulisciTextBox
    Cmd_Azzera.Visible = False
    Cmd_Aggiungi.Visible = True
    
    
    End Sub
    
    
    Private Sub Cmd_Modifica_Click()
    
    
    If Txt_Prodotti.Text = "" Then
        Txt_Prodotti.SetFocus
        GoTo Uscita
    End If
    
    
    Range("G" & Riga) = Txt_Prodotti
    Range("H" & Riga) = Txt_Frutta
    Range("I" & Riga) = Txt_Verdura
        
        Txt_Prodotti.Text = ""
        Txt_Prodotti.SetFocus
        Txt_Frutta.Text = ""
        Txt_Verdura.Text = ""
    
    
    Uscita:
    Sheets("Voci").Select
    
    
    End Sub
    
    
    Private Sub Cmd_Prima_Voce_Click()
    
    
    Riga = iRiga
    Txt_Prodotti.Value = Range("G" & Riga).Value
    Txt_Frutta.Value = Range("H" & Riga).Value
    Txt_Verdura.Value = Range("I" & Riga).Value
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    End Sub
    
    
    Private Sub Cmd_Ultima_Voce_Click()
    
    
    Riga = uRiga
    Txt_Prodotti.Value = Range("G" & Riga).Value
    Txt_Frutta.Value = Range("H" & Riga).Value
    Txt_Verdura.Value = Range("I" & Riga).Value
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    End Sub
    
    
    Private Sub Cmd_Voce_giù_Click()
    
    
    If Riga < uRiga Then
        Riga = Riga + 1
        Txt_Prodotti.Value = Range("G" & Riga).Value
        Txt_Frutta.Value = Range("H" & Riga).Value
        Txt_Verdura.Value = Range("I" & Riga).Value
        Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    End If
    
    
    End Sub
    
    
    Private Sub Cmd_Voce_sù_Click()
    
    
    If Riga > iRiga Then
        Riga = Riga - 1
        Txt_Prodotti.Value = Range("G" & Riga).Value
        Txt_Frutta.Value = Range("H" & Riga).Value
        Txt_Verdura.Value = Range("I" & Riga).Value
        Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    End If
    
    
    End Sub
    
    
    
    
    Private Sub UserForm_Initialize()
    
    
    Txt_Prodotti.Value = Range("G6").Value
    Txt_Frutta.Value = Range("H6").Value
    Txt_Verdura.Value = Range("I6").Value
    
    
    iRiga = 6
    Riga = iRiga
    uRiga = Worksheets("Voci").Range("G" & Rows.Count).End(xlUp).Row
    
    
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value '<<<<<<<<<<<
    
    
    Cmd_Azzera.Visible = True
    
    
    End Sub
    
    
    Private Sub PulisciTextBox()
    
    
    Txt_Prodotti = ""
    Txt_Frutta = ""
    Txt_Verdura = ""
    Txt_Prodotti.SetFocus
    
    
    End Sub

  12. #11
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Migliorare il progettino sulle TextBox

    Grazie Rubik della premura e pazienza.



    Ho provato il codice consigliato ed anche quello di Patel, ma presentano un inconveniente.
    All' eliminazione del Record, nella textBox viene visualizzato il record successivo che in fin dei conti potrebbe andare bene.

    Nel frattempo provando e riprovando sono riuscito nell'intento , eliminando un record nella TextBox si visualizza il primo Record.

    Considerando che sono autodidatta, invio il file in questione per un Vs. gradito giudizio/parere.

    Per migliorare il file, gradirei una modifica e francamente non so se continuare tenendo aperta questa o aprire una nuova discussione,

    consiste nell'inserire una TextBox ed un bottone per la ricerca del record.

    Mauro (ho allegato il file)


    File Allegati File Allegati

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

    Re: Migliorare il progettino sulle TextBox

    Codice: 
    Private Sub Cmd_Cerca_Click()
    Sheets("Voci").Select
    Call conteggio
    Riga = Range("G" & iRiga & ":I" & uRiga).Find(TextBox1.Text).Row
    Txt_Prodotti.Value = Range("G" & Riga).Value
    Txt_Frutta.Value = Range("H" & Riga).Value
    Txt_Verdura.Value = Range("I" & Riga).Value
    Label1.Caption = "Record " & Riga - iRiga + 1 & " di " & Range("M3").Value
    End Sub

  14. #13
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Migliorare il progettino sulle TextBox

    Grazie Patel, funziona perfettamente.

    Forse chiedo troppo ...... scusami e non so se è fattibile;
    se le voci sono più di una, come è tutt'ora il file, la ricerca funziona su di una voce, si può modificare?



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

    Re: Migliorare il progettino sulle TextBox

    non capisco

  16. #15
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    116
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Migliorare il progettino sulle TextBox

    Scusa se non sono stato chiaro.

    Nella colonna dei prodotti ci sono due voci uguali per es. Presa.
    Con la ricerca che funziona, mi visualizza la seconda Presa la n. 5.

    Vi è la possibilità di visualizzare sempre con la ricerca anche la prima?

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

    Re: Migliorare il progettino sulle TextBox

    per visualizzare la prima basta modificare la riga

    Riga = Range("G" & iRiga & ":I" & uRiga).Find(TextBox1.Text).Row

    in

    riga = Range("G4:I" & uRiga).Find(TextBox1.Text).Row

    per visualizzare tutte le occorrenze occorre organizzare diversamente la userform

Discussioni Simili

  1. [Risolto] Aiuto per modificare/migliorare una Macro su Excel
    Di indaco nel forum Domande su Excel VBA e MACRO
    Risposte: 52
    Ultimo Messaggio: 15/02/17, 09:35
  2. [Risolto] aiuto per migliorare formula stringa.estrai
    Di Eddie18 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 12/02/17, 21:30
  3. Errore sulle macro
    Di magnus nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 04/10/16, 23:09
  4. inibire il click del mouse sulle etichette dei fogli
    Di Japogi nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 17/08/16, 18:12
  5. Vorremmo fare una pizzata, ma ognuno dice la sua sulle date
    Di Paolino nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 23/06/15, 00:15

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
  •