You are here:---Rispondi a: [RISOLTO] Formattazione condizionale dato invisibile ;;; bis
Rispondi a: [RISOLTO] Formattazione condizionale dato invisibile ;;; bis 2019-02-04T15:21:42+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Formattazione condizionale dato invisibile ;;; bis Rispondi a: [RISOLTO] Formattazione condizionale dato invisibile ;;; bis

sidsid
Moderatore
    Post totali: 548

    Questo l’activate completo

    Private Sub UserForm_Activate()
    '  Me.CommandButton2.Enabled = True
    
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim PROMO As Range
    '===================================
    'NUOVE VARIABILI AGGIUNTE
    Dim rClienti As Range
    'Dim aElenco As Variant
    Dim aElenco() As Variant
    Dim vAppoggio As Variant
    Dim lX As Long, lY As Long
    Dim cl As Range
    
    '=====================================
    
    Set wb = Workbooks("ANAGRAFICA-ANNO.XLS")
    Set ws = wb.Sheets("DATI-CONTABILI")
    ws.Activate
    
    'NUOVO CODICE AGIUNTO
    '===========================================================================
    
    'Set rClienti = ws.Range("F11:F" & ws.Range("F" & Rows.Count).End(xlUp).Row)
     'Set rClienti = ws.Range("F10:F" & ws.Range("F" & Rows.Count).End(xlUp).Row)
      Set rClienti = ws.Range("F9:F" & ws.Range("F" & Rows.Count).End(xlUp).Row)
          
    'aElenco = rClienti
    For Each cl In rClienti
        If cl.NumberFormat <> ";;;" Then
            ReDim Preserve aElenco(k)
            aElenco(k) = cl.Value
           k = k + 1
        End If
    Next cl
    
    aElenco = Application.Transpose(aElenco)
    
    'ORDINO LA MATRICE
    For lX = LBound(aElenco) To UBound(aElenco) - 1
        For lY = lX + 1 To UBound(aElenco)
            If aElenco(lX, 1) > aElenco(lY, 1) Then
                vAppoggio = aElenco(lX, 1)
                aElenco(lX, 1) = aElenco(lY, 1)
                aElenco(lY, 1) = vAppoggio
            End If
        Next lY
    Next lX
    'POPOLO LA COMBO CON I NOMI DEI CLIENTI
    Me.ComboBox6.List = aElenco
    With Me.ComboBox6
         .Value = (ws.Range("f10:f10000").SpecialCells(xlCellTypeVisible).End(xlDown).Offset(0, 0))
    End With
    
    ComboBox6 = ""
    CommandButton2.Visible = False
    ComboBox6.SetFocus
    
    Set rClienti = Nothing
    Set Ws2 = Nothing
    Set wb = Nothing
    Set ws = Nothing
    Set PROMO = Nothing
    '===============================================================================
    
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi