Risultati da 1 a 21 di 21

Discussione: Cercare il prodotto nel foglio azienda selezionato dalla combobox



  1. #1
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Un saluto a tutti voi,

    Eccomi qui ancora una volta a chiedere il vostro aiuto per risolvere un problema per me insuperabile...
    nel file allegato ho il foglio commissioni che lo compilo con una UserForm, suggerita da Baloon che saluto cordialmente,
    dove seleziono l'azienda, seleziono il cliente, e cerco gli articoli da ordinare in un foglio con nome "Azienda1" e fin qui tutto bene.....
    Quello che chiedo e che non riesco a fare è:
    vorrei creare per ogni azienda un foglio dove inserire solo i prodotti di quella determinata azienda(questo non è un problema) e
    dalla Userform quando compilo la commissione e cerco l'articolo da inserire mi vada a cercare la descrizione, articolo ecc...nel foglio
    dell'azienda selezionata nella combobox della Userform......
    Spero di essere stato chiaro e nell'attesa di un vostro suggerimento
    Saluto

    questo una parte del codice:

    Codice: 
    Dim a As Integer, b As Integer
    
    Dim banca As String, iban As String
    Dim importo As Double
    Private Sub UserForm_Initialize()
    
    '*******dichiaro le variabili**************************
    Dim uriga As Long
    Dim i As Integer
    Dim wsh As Worksheet, wsh1 As Worksheet
    
    Set wsh = ThisWorkbook.Worksheets("ElencoClienti")
    Set wsh1 = ThisWorkbook.Worksheets("ElencoAziende")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    uriga1 = wsh1.Range("A" & Rows.Count).End(xlUp).Row
    
    With Me
        For i = 3 To uriga1
            .CmbFornitore.AddItem (wsh1.Range("A" & i).Value)
        Next
    End With
    
    With Me
        For i = 4 To uriga
            .CmbSocietà.AddItem (wsh.Range("A" & i).Value)
        Next
    End With
    '*************************************************************
    Set wsh = ThisWorkbook.Worksheets("Azienda1")
    uriga = wsh.Range("B" & Rows.Count).End(xlUp).Row
    
    With Me
        For i = 3 To uriga
            .CmbDescrizioneF.AddItem (wsh.Range("B" & i).Value)
        Next
    End With
    '*************************************************************
    Set wsh = ThisWorkbook.Worksheets("Azienda1")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    
    With Me
        For i = 3 To uriga
            .CmbArticoloF.AddItem (wsh.Range("A" & i).Value)
        Next
    End With
    '*************************************************************
    
    TxtArticoloF = ""
    TxtUMF = ""
    TxtQtaF = 0
    TxtPrezzoF = 0
    TxtSc1F = 0
    TxtSc2F = 0
    TxtSc3F = 0
    TxtSc4F = 0
    TxtPercIvaF = 0
    CmbDescrizioneF = ""
    CmbArticoloF = ""
    CmbSocietà.SetFocus
    
    Set wsh = Nothing
    
    End Sub
    Private Sub CmbArticoloF_Change()
      Dim uriga As Long
        Dim i As Integer
        Dim wsh As Worksheet
        
        Set wsh = ThisWorkbook.Worksheets("Azienda1")
        uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
        
        If CmbArticoloF <> "" Then
            For i = 3 To uriga
                If wsh.Range("A" & i).Value = CmbArticoloF.Text Then
                    CmbDescrizioneF = wsh.Range("B" & i).Value
                    TxtUMF = wsh.Range("C" & i).Value
                    TxtPercIvaF = wsh.Range("E" & i).Value
                    TxtPrezzoF = wsh.Range("D" & i).Value
                    TxtSc1F = wsh.Range("F" & i).Value
                    TxtSc2F = wsh.Range("G" & i).Value
                    TxtPrezzoF = Replace(TxtPrezzoF, ",", ".")
                End If
            Next
        End If
        
        Set wsh = Nothing
    End Sub
    
    Private Sub CmbDescrizioneF_Change()
    
        Dim uriga As Long
        Dim i As Integer
        Dim wsh As Worksheet
        
        Set wsh = ThisWorkbook.Worksheets("Azienda1")
        uriga = wsh.Range("B" & Rows.Count).End(xlUp).Row
        
        If CmbDescrizioneF <> "" Then
            For i = 3 To uriga
                If wsh.Range("B" & i).Value = CmbDescrizioneF.Text Then
                    CmbArticoloF = wsh.Range("A" & i).Value
                    TxtUMF = wsh.Range("C" & i).Value
                    TxtPercIvaF = wsh.Range("E" & i).Value
                    TxtPrezzoF = wsh.Range("D" & i).Value
                    TxtSc1F = wsh.Range("F" & i).Value
                    TxtSc2F = wsh.Range("G" & i).Value
                    TxtPrezzoF = Replace(TxtPrezzoF, ",", ".")
                End If
            Next
        End If
        
        Set wsh = Nothing
    
    
    End Sub
    
    Private Sub CmbFornitore_Change()
    
    Dim uriga As Long
    Dim i As Integer
    Dim wsh1 As Worksheet
    
    Set wsh1 = ThisWorkbook.Worksheets("ElencoAziende")
    uriga = wsh1.Range("A" & Rows.Count).End(xlUp).Row
    
    If CmbFornitore <> "" Then
        For i = 3 To uriga
            If wsh1.Range("A" & i).Value = CmbFornitore.Text Then
                TxtPivaForn = wsh1.Range("K" & i).Value
                TxtIndirizzoForn = wsh1.Range("B" & i).Value
                TxtCAPForn = wsh1.Range("D" & i).Value
                TxtCittàForn = wsh1.Range("C" & i).Value
                TxtProvinciaForn = wsh1.Range("E" & i).Value
                TxtTelefonoForn = wsh1.Range("F" & i).Value
                bancaForn = wsh1.Range("M" & i).Value
                ibanForn = wsh1.Range("N" & i).Value
                TxtE_mailForn = wsh1.Range("I" & i).Value
                TxtMailForn = wsh1.Range("J" & i).Value
                TxtContattoForn = wsh1.Range("O" & i).Value
                TxtFaxForn = wsh1.Range("G" & i).Value
                TxtBancaForn = wsh1.Range("M" & i).Value
                TxtIbanForn = wsh1.Range("N" & i).Value
                
            End If
        Next
    End If
    Set wsh1 = Nothing
    
    End Sub
    
    Private Sub CmbSocietà_Change()
    
    Dim uriga As Long
    Dim i As Integer
    Dim wsh As Worksheet
    
    Set wsh = ThisWorkbook.Worksheets("ElencoClienti")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    
    If CmbSocietà <> "" Then
        For i = 4 To uriga
            If wsh.Range("A" & i).Value = CmbSocietà.Text Then
                TxtPivaCli = wsh.Range("K" & i).Value
                TxtIndirizzoCli = wsh.Range("B" & i).Value
                TxtCAPCli = wsh.Range("D" & i).Value
                TxtCittàCli = wsh.Range("C" & i).Value
                TxtProvinciaCli = wsh.Range("E" & i).Value
                TxtTelefonoCli = wsh.Range("F" & i).Value
                TxtCondizioniCli = wsh.Range("L" & i).Value
                'TxTId = wsh.Range("L" & i).Value
                TxtTrasportoCli = wsh.Range("P" & i).Value
                TxtE_mailCli = wsh.Range("I" & i).Value
                TxtE_mailFattCli = wsh.Range("I" & i).Value
                TxtContattoCli = wsh.Range("O" & i).Value
                TxtFaxCli = wsh.Range("G" & i).Value
                TxtIbanCli = wsh.Range("N" & i).Value
                TxtBancaCli = wsh.Range("M" & i).Value
                
            End If
        Next
    End If
    
    Set wsh = ThisWorkbook.Worksheets("ArchComm")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    TxtNumeroF = wsh.Range("A4").Value + 1
    TxtData = Date
    Set wsh = Nothing
    
    End Sub
    
    Private Sub CmdAggiungiRiga_Click()
    
    ListBox1.AddItem CmbDescrizioneF.Text
    ListBox1.List(a, 1) = CmbArticoloF '******
    ListBox1.List(a, 2) = TxtUMF
    ListBox1.List(a, 3) = TxtQtaF
    ListBox1.List(a, 4) = TxtPrezzoF
    ListBox1.List(a, 5) = TxtSc1F
    ListBox1.List(a, 6) = TxtSc2F
    ListBox1.List(a, 7) = TxtSc3F
    ListBox1.List(a, 8) = TxtSc4F
    ListBox1.List(a, 9) = TxtPercIvaF
    importo = Val(TxtQtaF) * Val(TxtPrezzoF)
    importo = importo - (importo * Val(TxtSc1F)) / 100
    importo = importo - (importo * Val(TxtSc2F)) / 100
    importo = importo - (importo * Val(TxtSc3F)) / 100
    importo = importo - (importo * Val(TxtSc4F)) / 100
    ListBox1.List(a, 9) = importo
    
    a = a + 1
    
    TxtArticoloF = ""
    TxtUMF = ""
    TxtPrezzoF = 0
    TxtQtaF = 0
    TxtPercIvaF = 0
    TxtSc1F = 0
    TxtSc2F = 0
    TxtSc3F = 0
    TxtSc4F = 0
    CmbDescrizioneF = ""
    CmbArticoloF = "" '******
    CmbDescrizioneF.SetFocus
    
    End Sub
    Allego file

    ----------Post unito in automatico----------

    Spero che riusciate a risolvere il problema dal codice allegato perchè

    Non riesco a inserire il File, è troppo pesante
    Windows8.1 office 2010

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

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    allega un file con meno dati, serve solo per testare il codice

  3. #3
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Ecco il file alleggerito......
    File Allegati File Allegati
    Windows8.1 office 2010

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ecco il file alleggerito......
    Ciao Vincenzo sono appena arrivato a casa e sono stravolto ho dato una velocissimissima occhiata al file penso che nellaq routine CmbArticoloF_Change il
    set wsh....("Azienda1")
    dovresti mettere set wsh....(CmbFornitore) che sarebbe la combobox col nome del fornitore che da quanto ho capito è anche il nome del foglio.

    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Ciao Baloon,
    Ben tornato
    ho provato ad inserire (CmbFornitore) e mi dice "tipo non corrispondente"
    Grazie
    Windows8.1 office 2010

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ciao Baloon,
    Ben tornato
    ho provato ad inserire (CmbFornitore) e mi dice "tipo non corrispondente"
    Grazie
    Ciao Vincenzo prova a vedere se è quello che volevi
    La modifica era su CmbDescrizioneF_Change (non mi ero accorto che volevi la descrizione e non l'articolo)
    Ho dovuto modificare l'inizializzazione della userform in quanto l'articolo e la descrizione deve prenderli al momento dell'inserimento del fornitore.

    Codice: 
    Private Sub CmbDescrizioneF_Change()
    
        Dim uriga As Long
        Dim i As Integer
        Dim wsh As Worksheet
        
        Set wsh = ThisWorkbook.Worksheets(CmbFornitore.Value)
        uriga = wsh.Range("B" & Rows.Count).End(xlUp).Row
        
        If CmbDescrizioneF <> "" Then
            For i = 3 To uriga
                If wsh.Range("B" & i).Value = CmbDescrizioneF.Text Then
                    CmbArticoloF = wsh.Range("A" & i).Value
                    TxtUMF = wsh.Range("C" & i).Value
                    TxtPercIvaF = wsh.Range("E" & i).Value
                    TxtPrezzoF = wsh.Range("D" & i).Value
                    TxtSc1F = wsh.Range("F" & i).Value
                    TxtSc2F = wsh.Range("G" & i).Value
                    TxtPrezzoF = Replace(TxtPrezzoF, ",", ".")
                End If
            Next
        End If
        
        Set wsh = Nothing
    
    
    
    
    End Sub
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ciao Vincenzo prova a vedere se è quello che volevi
    La modifica era su CmbDescrizioneF_Change (non mi ero accorto che volevi la descrizione e non l'articolo)
    Ho dovuto modificare l'inizializzazione della userform in quanto l'articolo e la descrizione deve prenderli al momento dell'inserimento del fornitore.

    Codice: 
    Private Sub CmbDescrizioneF_Change()
    
        Dim uriga As Long
        Dim i As Integer
        Dim wsh As Worksheet
        
        Set wsh = ThisWorkbook.Worksheets(CmbFornitore.Value)
        uriga = wsh.Range("B" & Rows.Count).End(xlUp).Row
        
        If CmbDescrizioneF <> "" Then
            For i = 3 To uriga
                If wsh.Range("B" & i).Value = CmbDescrizioneF.Text Then
                    CmbArticoloF = wsh.Range("A" & i).Value
                    TxtUMF = wsh.Range("C" & i).Value
                    TxtPercIvaF = wsh.Range("E" & i).Value
                    TxtPrezzoF = wsh.Range("D" & i).Value
                    TxtSc1F = wsh.Range("F" & i).Value
                    TxtSc2F = wsh.Range("G" & i).Value
                    TxtPrezzoF = Replace(TxtPrezzoF, ",", ".")
                End If
            Next
        End If
        
        Set wsh = Nothing
    
    
    
    
    End Sub
    Buon giorno Baloon,
    purtroppo mi da errore di compilazione:
    impossibile trovare il progetto o la libreria.
    Voglio ricordarti che la ricerca del prodotto viene fatta o come articolo oppure come descrizione....
    Grazie per il tuo interessamento.
    attendo tuoi consigli
    Windows8.1 office 2010

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Buon giorno Baloon,
    purtroppo mi da errore di compilazione:
    impossibile trovare il progetto o la libreria.
    Voglio ricordarti che la ricerca del prodotto viene fatta o come articolo oppure come descrizione....
    Grazie per il tuo interessamento.
    attendo tuoi consigli
    Vincenzo a me funziona sinceramene non saprei che dire. Non è che per caso è dovuto alla data? (è una mia pur labile supposizione)



    ----------Post unito in automatico----------

    Ma tu lo vai ad applicare su un altro file?
    se sì ricordati che devi togliere quanto ho ridotto a testo nell'inizializzazione della form ed aggiungere nella routine

    Private Sub CmbFornitore_Change()

    la parte dove ho scritto il testo :

    ' Da questo punto inserisco codice articolo e descrizione dell'azienda selezionata

    prova e fammi sapere


    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Ciao Baloon,
    al momento stò provando lo stesso file che mi hai allegato e mi da l'errore sulla data....
    allego immagine
    File Allegati File Allegati
    Windows8.1 office 2010

  10. #10
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ciao Baloon,
    al momento stò provando lo stesso file che mi hai allegato e mi da l'errore sulla data....
    allego immagine
    Ciao Vincenzo prova a mettere l'apice sulla riga TxtData = Date per trasformala in informazione, dovrebbe funzionare lo stesso (a me funziona sia con che senza la riga incriminata)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  11. #11
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Ciao a tutti
    ERRORE>>> Set wsh1 = ThisWorkbook.Worksheets(CmbFornitore.Value)
    1° e 2° OK, gli altri no
    Naturale non hai ancora i fogli Azienda3/4/5 ecc ecc

    Da ieri avevo grossi problemi usare il file, oggi meglio con allegato post6
    Manca Microsoft word 15.0
    Manca: Ref Edit control
    Del 1° presumo sia colpa di Office 2007 (uso 12.0), del 2° non saprei cosa sia?
    Oltre a vari errori di DLL (primo post), adesso nessuno

    Modificato
    Riga9>>>Dim uriga As Long, uriga1 As Long
    Riga136>>> TxtbancaForn = wsh1.Range("M" & i).Value
    Riga137>>> TxtibanForn = wsh1.Range("N" & i).Value

    Se premo Private Sub CmbSocietà_Change()
    Errore in riga206>>> TxtData = Date
    Se metto la spunta, ok. Però devo andare in TxtData e mettere una data manualmente

    Non capisco Private Sub TxtData_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cosa possa servire, comunque tanti altri file mi ponevano lo stesso problema. Rifatti da zero funzionavano

    Ps In DATI COMMISIONE messo la data, non mi piace quel numero 609 (non sò a cosa si riferisce, però sembra funzionare il tutto)

  12. #12
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Ciao Baloon,
    Ho copiato tutte le macro in un altro foglio e l'errore della data non lo dà più.
    però ho notato che cambiando l'azienda non cambia il foglio dove cercare i prodotti.....
    attendo tuoi suggerimenti.
    grazie
    Windows8.1 office 2010

  13. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ciao Baloon,
    Ho copiato tutte le macro in un altro foglio e l'errore della data non lo dà più.
    però ho notato che cambiando l'azienda non cambia il foglio dove cercare i prodotti.....
    attendo tuoi suggerimenti.
    grazie
    Nel mio post #8 ho inserito un'immagine dove si vede che se metto fornitore Azienda2 posso scegliere il codice articolo del foglio Azienda2 ed in automatico mi mette la descrizione ed i dati relativi all'articolo. Nello specifico articolo JK50 descrizione Sigarette con prezzo unitario e percentuale IVA

    Non capisco cosa intendi con "cambiando l'azienda non cambia il foglio dove cercare i prodotti....." spiegami meglio

    ----------Post unito in automatico----------

    Ricordati che nel file che stiamo usando ci sono solo due fornitori Azienda1 e Azienda2

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  14. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ciao Baloon,
    Ho copiato tutte le macro in un altro foglio e l'errore della data non lo dà più.
    però ho notato che cambiando l'azienda non cambia il foglio dove cercare i prodotti.....
    attendo tuoi suggerimenti.
    grazie
    Ciao Vincenzo ho riguardato il codice e, a parte i controlli che fai sui vai campi, ho sistemato un po' le cose.
    Così dovrebbe andare bene - Fammi sapere
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #15
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Scusate se intervengo nuovamente

    @Baloon_50
    Gli errori descritti sopra sono ancora presenti.
    C'è forse un qualcosa che non capisco?

  16. #16
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Scusate se intervengo nuovamente

    @Baloon_50
    Gli errori descritti sopra sono ancora presenti.
    C'è forse un qualcosa che non capisco?
    Ciao Raffaele non è che non ti ho letto ma sinceramente non ho capito dove sono gli errori se mi alleghi le routine con evidenziati in rosso gli errori che hai riscontrato gli darò un occhiata e ti farò sapere.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  17. #17
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Ciao Baloon_50
    Sin'ora ho guardato solo UsrFrmFattura e ho trovato quei errori (l'unico che accetto è TxtData = Date, rifaccendo il tutto dovrebbe funzionare)
    1) uriga1 non è dichiarata (a me si blocca il codice)
    Le altre due righe pure, manca il Txt davanti e non le riconosce (vedi n° riga nel codice)
    Ps Non vorrei aver problemi col PC e solo io che le vedo. Già dall'inizio questo file mi ha mostrato diversi errori, solo con i Tuoi allegati riesco a farlo girare togliendo gli errori

  18. #18
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Ciao Baloon_50
    Sin'ora ho guardato solo UsrFrmFattura e ho trovato quei errori (l'unico che accetto è TxtData = Date, rifaccendo il tutto dovrebbe funzionare)
    1) uriga1 non è dichiarata (a me si blocca il codice)
    Le altre due righe pure, manca il Txt davanti e non le riconosce (vedi n° riga nel codice)
    Ps Non vorrei aver problemi col PC e solo io che le vedo. Già dall'inizio questo file mi ha mostrato diversi errori, solo con i Tuoi allegati riesco a farlo girare togliendo gli errori
    dunque :
    1 - uriga1 ok da definire
    2 - le righe in cui manca il txt si possono togliere perchè se guardi sono scritte giuste dopo (le ultime due)
    3 - TxtData = Date a me non da alcun problema (l'unico problema che c'è è che dopo aver inserito il fornitore se vado nella zona commissione mi chiede la data ma quì non ci metto mano perchè è un controllo che ha inserito Vincenzo)

    Spero di essere stato esauriente e grazie a te per la segnalazione.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  19. #19
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Grazie mille, almeno il PC non è fuso
    Mi sai anche dire cosè in strumenti\riferimenti >>>Manca: Ref Edit control

  20. #20
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Grazie mille, almeno il PC non è fuso
    Mi sai anche dire cosè in strumenti\riferimenti >>>Manca: Ref Edit control
    sinceramente non saprei dirti perchè nel mio excel c'è ed è attivo.
    Prova a fare una ricerca su internet.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  21. #21
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    419
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    636

    Re: Cercare il prodotto nel foglio azienda selezionato dalla combobox

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    sinceramente non saprei dirti perchè nel mio excel c'è ed è attivo.
    Prova a fare una ricerca su internet.
    Ciao Baloon,
    Grazie per i preziosi consigli.....
    Gli errori della libreria gli ho risolto copiando la tua macro in un altro file...
    adesso tutto funziona bene.
    Grazie ancora
    metto risolto a questa discussione

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Ciao a tutti
    ERRORE>>> Set wsh1 = ThisWorkbook.Worksheets(CmbFornitore.Value)
    1° e 2° OK, gli altri no
    Naturale non hai ancora i fogli Azienda3/4/5 ecc ecc

    Da ieri avevo grossi problemi usare il file, oggi meglio con allegato post6
    Manca Microsoft word 15.0
    Manca: Ref Edit control
    Del 1° presumo sia colpa di Office 2007 (uso 12.0), del 2° non saprei cosa sia?
    Oltre a vari errori di DLL (primo post), adesso nessuno

    Modificato
    Riga9>>>Dim uriga As Long, uriga1 As Long
    Riga136>>> TxtbancaForn = wsh1.Range("M" & i).Value
    Riga137>>> TxtibanForn = wsh1.Range("N" & i).Value

    Se premo Private Sub CmbSocietà_Change()
    Errore in riga206>>> TxtData = Date
    Se metto la spunta, ok. Però devo andare in TxtData e mettere una data manualmente

    Non capisco Private Sub TxtData_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cosa possa servire, comunque tanti altri file mi ponevano lo stesso problema. Rifatti da zero funzionavano

    Ps In DATI COMMISIONE messo la data, non mi piace quel numero 609 (non sò a cosa si riferisce, però sembra funzionare il tutto)
    Scusami Raffaele,
    non avevo letto il tuo post...
    Grazie per i suggerimenti
    Windows8.1 office 2010

Discussioni Simili

  1. Risposte: 6
    Ultimo Messaggio: 29/09/16, 23:54
  2. [Risolto] combobox da foglio a form
    Di cguizzardi86 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 23/09/16, 15:22
  3. cercare valore in un secondo foglio
    Di lucas22f nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 28/07/16, 00:08
  4. Cercare valori in un foglio e riportarli in un altro con tutti i duplicati
    Di lala10 nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 07/05/16, 00:26
  5. Valore Combobox uguale all'item selezionato
    Di cromagno nel forum Domande su Excel VBA e MACRO
    Risposte: 24
    Ultimo Messaggio: 19/12/15, 11:40

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
  •