You are here:---Rispondi a: [RISOLTO] Controllo doppioni
Rispondi a: [RISOLTO] Controllo doppioni2019-04-28T22:37:56+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Controllo doppioni Rispondi a: [RISOLTO] Controllo doppioni

AvatarKris_9951
Partecipante
    Post totali: 84

    Potrebbe andare così secondo voi?

    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim Cod, dd
    If Not Intersect(Target, [C:C]) Is Nothing Then
    r = Target.Row
    c = Target.Column
    If r < 15 Then Exit Sub
    Tot = Target
    Cod = Cells(r, c)
    dd = Cells(r, c + 1)
    If Cod = “” Or Cod = “CODICE” Then GoTo 1
    Call VediDopp1(Cod, dd)
    1 End If

    End Sub

    Doppio Click sulla colonna C

    Poi alla fine della Macro VediDopp1 ho scritto:

    ActiveCell.Offset(0, 3).Select

    Altrimenti la cella rimaneva con il testo selezionato…

    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