You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Inserimento dati in riga-Rispondi a: [RISOLTO] Inserimento dati in riga
Rispondi a: [RISOLTO] Inserimento dati in riga2020-05-02T16:29:16+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Inserimento dati in riga Rispondi a: [RISOLTO] Inserimento dati in riga

sidsid
Moderatore
    Post totali: 749

    Una possibile soluzione

    Sub CONTA_NUMERI()
    Dim v(1 To 90) As Variant
    Dim rng As Range
    Dim j As Long, nRifColonna As Long, nRiga As Long
    Dim ws As Worksheet
    
    Set ws = Sheets("Foglio1") 'nome tuo foglio
    nRifColonna = 115 'Riferimento Colonna "DK"
    With ws
        Set rng = .Range("DK6:GV6")
        nRiga = .Range("A1").Value
        For j = LBound(v) To UBound(v)
            v(j) = Evaluate("COUNT(" & .Range(.Cells(10, nRifColonna), _
                .Cells(nRiga, nRifColonna)).Address & ")")
            nRifColonna = nRifColonna + 1
        Next j
        With rng
            .ClearContents
            .Value = v
        End With
    End With
    Set rng = Nothing
    Set ws = Nothing
    End Sub

    Saluti

    • Questa risposta è stata modificata 1 mese fa da sidsid.