You are here:---Rispondi a: [RISOLTO] Cerca corrispondente
Rispondi a: [RISOLTO] Cerca corrispondente 2018-07-30T15:22:35+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Cerca corrispondente Rispondi a: [RISOLTO] Cerca corrispondente

sidsid
Moderatore
    Post totali: 433

    Per sicurezza ti passo il codice nuovo ;)

    Private Sub CommandButton2_Click()
    Dim ws As Worksheet
    Dim rng As Range, rCliente As Range
    Dim nRiga As Long, nColonna As Long
    Set ws = Sheets("Foglio1")
    
    nColonna = ws.Cells(2, Columns.Count).End(xlToLeft).Column
    Set rng = ws.Range(ws.Cells(2, 1), ws.Cells(2, nColonna)) ' range di ricerca in riga 2
    With rng
        Set rCliente = .Find(Me.ComboBox1.Value, rng(.Rows.Count, .Columns.Count), xlValues, xlWhole)
    End With
    
    If Not rCliente Is Nothing And Me.ComboBox1.Value <> vbNullString And Me.TextBox1.Value <> vbNullString Then
        With rCliente.Offset(0, 1)
            nRiga = IIf(.Value = vbNullString, 0, ws.Cells(Rows.Count, .Column).End(xlUp).Row - 1)
        End With
        rCliente.Offset(nRiga, 1).Value = Me.TextBox1.Value
        Set rCliente = Nothing
        Unload Me
    Else
        MsgBox "Combo e/o textbox vuote", vbExclamation, "ATTENZIONE"
    End If
    Set ws = Nothing
    Set rng = 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