COMBOBOX

Question

Ciao,

ho questa combobox che funziona con userform1,2,3,4

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

    For i = 0 To ListBox2.ListCount - 1

        ListBox2.Selected(i) = True

    Next i

End If

If CheckBox1.Value = False Then

    For i = 0 To ListBox2.ListCount - 1

        ListBox2.Selected(i) = False

        Next i

End If

Dim tmpSheet As Worksheet

Dim r As Integer, c As Integer

'Dim i As Integer

Set tmpSheet = ThisWorkbook.Worksheets.Add

tmpSheet.Name = "tmpPrintSheet"

i = 2

tmpSheet.Cells(2, 1).Value = "NOME"

tmpSheet.Cells(2, 2).Value = "SOCIETA"

tmpSheet.Cells(2, 3).Value = "INDIRIZZO"

tmpSheet.Cells(2, 4).Value = "CAP_CITTA_PROV"

'tmpSheet.Cells(1, 4).Value = "CAP"

'tmpSheet.Cells(1, 5).Value = "CITTA_PROV"

'tmpSheet.Columns("D:D").Value = NormalText

With ListBox2

For r = 0 To .ListCount - 1

        If .Selected(r) = True Then

            For c = 0 To .ColumnCount - 1

                tmpSheet.Cells(i, c + 1).Value = .Column(c, r)             (errore di column)

            Next c

            i = i + 1

        End If

    Next r

'Creo un file trasposto

Call mb ' Sub macro trasponi in colonne(9)

End With

'tmpSheet.PrintOut

Application.DisplayAlerts = False

tmpSheet.Delete

Application.DisplayAlerts = True

Set tmpSheet = Nothing

'Stampa1

End Sub

Ma con userform 5,7,8 mi segnala errore column nella parte sottolineata

la uf 6 non da problemi, la uf9 è una multipage non da problemi

tutte con la stessa combobox e listbox, ho provato a cambiare il nome combobx a 2

e listbox a 3 ma mi si ferma sempre li

Answer 1

non so piu come comportarmi, dove scrivere, cosa scrivere e perche scrivere...............

se ho postato su sei post diversi chiedo scusa ma non so come fare per chiedere un consiglio per una soluzione ad un caso insolito come quello che mi sta capitando ho una UF con 1listbox 5textbox e 1 combobox che preleva le righe filtrate e le traspone in un file tmp creato dalla combobox, il problema è che con 4 UF il problema non si pone con le altre 3UF si.(sono tutte uguali ma prelevano dati diversi).

Il problema è che la combobox segnala errore di "Impossibile leggere le proprietà column (argomento non valido)". 

Non so se sto abusando della pazienza di qualcuno, e se è così chiedo scus. Se ho precedentemente capito e risolto la maggior parte dei miei problemi (grazie a voi),

pensavo di poter continuare ad usufruire del vostri consigli,ditemi voi.

Per voi, i miei, SONO piccoli problemi che a me bloccano il lavoro fatto fino adesso

fatemi sapere se posso continuare ad esporre le mie problematiche o no.

cordialità

Massimo Bacile

Answer 2

Ciao Massimo,

Io capisco anche meno di Mauro:

Di quanto sopra capisco poco o nulla.

Comunque, per aiutarti a identificare l'errore, ti suggerisco di sostituire temporaneamente

'parte del combobox

For r = 0 To .ListCount - 1

        If .Selected(r) = True Then

            For c = 0 To .ColumnCount - 1

                tmpSheet.Cells(i, c + 1).Value = .Column(c, r)             (errore di column)

   

            Next c

            i = i + 1

        End If

con:

        For r = 0 To .ListCount - 1

            If .Selected(r) = True Then

                For c = 0 To .ColumnCount - 1

                    On Error GoTo XIT

                    tempSheet.Cells(i, c + 1).Value = .Column(c, r)           '  (errore di column)

                Next c

                i = i + 1

            End If

        Next r

    End With

XIT:

    Call MsgBox(Prompt:="i=" & i _

           & vbNewLine _

           & "r=" & r _

           & vbNewLine _

           & "c= " _

           & c _

           & vbNewLine _

           & "Listbox1(" & c & "," & r & ") =" & ListBox1.Column(c, r), _

           Buttons:=vbCritical, _

           Title:="Error Values")

End Sub

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

Ora, verifica che i valori di tutte le variabili sono ragionevoli e corretti. In caso di errore, almeno uno di questi valori dovrebbe preoccuparti

... e se non ci sono errori, non ti sarà mai visualizzato quel messaggio! 

===

Regards,

Norman

Answer 3

le ho provate tutte anche creare una nuova UF e ricaricare tutto ma sto fondendo

Spargere domande inerenti lo stesso problema in 6 post con n risposte e nuove domande, porta a non capirci più nulla. Per ora siamo a 117 domande e risposte + 2 domande in questo post. Non aiuta a voler rispondere.

Come già scritto, la Community dovrebbe risolvere *piccoli* problemi, una domanda con un argomento chiaro e preciso.

Di quanto sopra capisco poco o nulla.

Answer 4

Niente da fare,

come non detto,

con la UF1,UF3,UF4,eUF9Multipage funziona benissimo la combobox con la caricalistbox questa combinazione

combobox1 = vedi sopra

caricalistbox = questa

'Private Sub mCaricaListBox()

 '   Dim Rng As Range

  '  Set Rng = SH.Range("A1").CurrentRegion

   ' With Me.ListBox2

    '    .ColumnCount = Rng.Columns.Count

     '   .RowSource = SH.Name & "!" & Rng.Address

    'End With

'End Sub

perche con questa combinazione mi filtra bene le richieste di ricerca nomi da textbox ma sulle altre userform gemelle con fogli diversi la combobox mi restituisce l'errore column sottolineato

'parte del combobox

For r = 0 To .ListCount - 1

        If .Selected(r) = True Then

            For c = 0 To .ColumnCount - 1

                tmpSheet.Cells(i, c + 1).Value = .Column(c, r)             (errore di column)

            Next c

            i = i + 1

        End If

le ho provate tutte anche creare una nuova UF e ricaricare tutto ma sto fondendo

un caro saluto

massimo

Answer 5

scusate

risolto cambiando il caricalistbox

da :

'Private Sub mCaricaListBox()

 '   Dim Rng As Range

  '  Set Rng = SH.Range("A1").CurrentRegion

   ' With Me.ListBox2

    '    .ColumnCount = Rng.Columns.Count

     '   .RowSource = SH.Name & "!" & Rng.Address

    'End With

'End Sub

A:

Private Sub mCaricaListBox()

    Dim lng As Long

    Dim lCont As Long

    lCont = 0

    With SH

       Me.ListBox2.Clear

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

        For lng = 1 To lRiga

        Me.ListBox2.AddItem

        Me.ListBox2.List(lCont, 0) = .Range("A" & lng).Value

        Me.ListBox2.List(lCont, 1) = .Range("B" & lng).Value

        Me.ListBox2.List(lCont, 2) = .Range("C" & lng).Value

        Me.ListBox2.List(lCont, 3) = .Range("D" & lng).Value

        Me.ListBox2.List(lCont, 4) = .Range("E" & lng).Value

        Me.ListBox2.List(lCont, 5) = .Range("G" & lng).Value

        lCont = lCont + 1

        Next

    End With

End Sub

grazie lo stesso

un salutone

massimo