You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Inserimento dati in riga
[RISOLTO] Inserimento dati in riga2020-05-11T20:15:27+02:00

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

Taggato: 

Visualizzazione 3 filoni di risposte
  • Autore
    Post
    • Avatargiorgioantonio
      Partecipante
        Post totali: 436

        Salve a tutti,

        cortesemente che se mi potete scrive un macro

        che sostituirebbe i dati della riga 6 a cominciare da colonna DK

        L’attenzione da portare è che fra virgolette ci sono lettere che
        riguardano la rispettiva colonna.
        per esempio dk6 riporta fra “”dk”la cella successiva dl ha
        fra virgolette “DL” e via per 90 colonne.
        allego il file
        https://www.dropbox.com/s/ldy7gmaehx016wm/Macro.xlsx?dl=0

        Grazie per la pazienza

        • Questo topic è stato modificato 1 mese, 4 settimane fa da sidsid.
      • 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 2 mesi, 1 settimana fa da sidsid.
        • Avatargiorgioantonio
          Partecipante
            Post totali: 436

            Salve,

            la macro fa quello che desideravo,

            Grazie

          • sidsid
            Moderatore
              Post totali: 749

              Grazie a te per il riscontro👍

          Visualizzazione 3 filoni di risposte
          • Devi essere connesso per rispondere a questo topic.