Aggiornare una ComboBox

Question

Buongiorno a tutti,

avrei bisogno del vostro aiuto, ho due procedure:

la prima , mi dà il seguente errore quando clicco sulla listbox2

e quando seleziono la data alla combobox pur essendo

identica a quella che si trova nella UserForm_Initialze()

Private Sub dbGenVenDataAggiorna()

    Dim Rng As Range

       With SH2

            Set Rng = .Range("A" & .Rows.Count).End(xlUp)

        End With

            arrDati = Rng.Value

        With Me.ComboBox3

            .Clear

                                                                             '.RowSource = RngTabella.Offset(1).Resize(Rng - 2, 1).Address

            .Column = Application.Transpose(arrDati)

            .ColumnHeads = False

        End With

End Sub

'arrDati l'ho inserita in testa al modulo Private arrDati As Variant

la seconda procedura:

Private Sub dbGenVenDataAggiorna()

    Dim Rng As Long

    Me.ComboBox3.Clear

            With SH2

               'Rng = .Range("A" & .Rows.Count).End(xlUp).Row

                    For arrDati = 6 To Rng

                        If Len(.Cells(arrDati, 1).Value) <> 0 Then

                            Me.ComboBox3.AddItem .Cells(arrDati, 1).Value

                        End If

                    Next

            End With

End Sub

non permette la selezione della data nella combobox3!

funziona correttamente solo quando nella procedura cmddbGenVenInserisci chiamo cmddbGenVenFine_Click.

Proteste cortesemente spiegarmi il motivo di questi comportamenti e se possibile avere qualcosa di più

adeguato\corretto per il funzionamento della combobox?

Questo accade quando inserisco una data nella Page2 di Inserisci generi venduti

tramite il pulsante Nuovo ed Inserisci.

Grazie mille per l'aiuto. Per qualsiasi chiarimento sono a vostra disposizione.

il file è in :http://1drv.ms/1Ht0y5T

Answer 1

Ciao Danilo,

Non posso testare il codice con il tuo file in quanto non trovo il CommandButton o la ComboBox di interesse sulla tua Userform. 

Comunque, ipotizzando che l'unico scopo del codice sia di caricare/ricaricare una ComboBox con le date nella colonna A del foglio dbGenVenData, forse prova qualcosa del genere:

'=========>>

Private Sub dbGenVenDataAggiorna()

    Dim Rng As Range

    Dim LRow As Long

    Dim arrDati As Variant

    With SH2

        LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        Set Rng = .Range("A6:A" & LRow)

    End With

    arrDati = Rng.Value

    With Me.ComboBox1

        .Clear

        .List() = arrDati    '

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao Danilo,

ti ringrazio per il costante aiuto.

You are very welcome!

Buona serata.

===

Regards,

Norman

Answer 3

Ciao Norman,

ti ringrazio per il costante aiuto.