You are here:---Rispondi a: riconoscere la posizione
Rispondi a: riconoscere la posizione2018-03-29T21:19:38+02:00

Home Forum Domande su Excel VBA e MACRO riconoscere la posizione Rispondi a: riconoscere la posizione

sidsid
Moderatore
    Post totali: 718

    Ciao ad entrambi
    Una sforbiciata alla tua macro; una volta scelta la ruota, chiama la subroutine che cicla le celle
    Questa la macro principale

    Sub Conta_Numeri()
    
    Dim nColonna As Integer
    Dim bEsci As Boolean
    
    Select Case Cells(2, 1).Value
    Case "nz": nColonna = 7
    Case "ba": nColonna = 17
    Case "ca": nColonna = 27
    Case "fi": nColonna = 37
    Case "ge": nColonna = 47
    Case "mi": nColonna = 57
    Case "na": nColonna = 67
    Case "pa": nColonna = 77
    Case "rm": nColonna = 87
    Case "to": nColonna = 97
    Case "ve": nColonna = 107
    Case Else: bEsci = True
    End Select
    
    If Not bEsci Then
    Call CICLA(nColonna)
    End If
    
    End Sub

    questa la subroutine

    Sub CICLA(ByVal ncol As Integer)
    Dim nConta As Integer
    
    For nConta = 1 To 89
    Cells(2, ncol).Value = Cells(2, ncol).Value + 1
    If Cells(3, ncol).Value >= Cells(3, 1).Value Then
    Exit For
    End If
    If Cells(2, ncol).Value >= 91 Then
    Cells(2, ncol).Value = 0
    Exit Sub
    End If
    
    Next nConta
    End Sub
    • Questa risposta è stata modificata 1 anno, 5 mesi fa da sid sid.

    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