Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine porta Logan in un'avventura inedita, violenta e fortemente narrativa, costruita attorno alla sua natura di combattente e al difficile rapporto con il proprio passato. Insomniac Games punta su combattimenti spettacolari, progressione e personalizzazione, inserendo l'azione in un mondo segnato dalla persecuzione dei mutanti. Un viaggio intenso, che alterna mattanza, esplorazione e momenti sorprendentemente emotivi.
DJI Romo 2: tante novità lo rendono un robot completo
DJI Romo 2: tante novità lo rendono un robot completo
Romo 2 è la seconda generazione di robot lavapavimenti di DJI, un modello che si caratterizza per la precisione nel sistema di navigazione e per il funzionamento particolarmente silenzioso. Con le modifiche introdotte in questa seconda versione, e un posizionamento di prezzo più allineato alla concorrenza, rappresenta una valida alternativa sul mercato delle soluzioni di pulizia domestica
Sony Bravia 9 II: il True RGB alla prova, dove l'LCD sfida l'OLED
Sony Bravia 9 II: il True RGB alla prova, dove l'LCD sfida l'OLED
Il primo Sony con retroilluminazione True RGB alla prova del banco di misura e dei contenuti: luminanza enorme, colori accurati in HDR e un antiriflesso molto efficace. I limiti sono due sole HDMI 2.1 e il blooming fuori asse
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 30-11-2017, 11:58   #1
tiratardi12
Junior Member
 
Iscritto dal: Nov 2017
Messaggi: 1
[VB Excel] Macro inserimento dati e calcolo

Salva a tutti,
sto lavorando ad un progetto su Excel, che attraverso un form di input e una macro, mi permetta di trasferire i dati in un altro foglio e successivamente fare dei calcoli basilari.
Questa la macro:

Codice:
Sub copia()
Dim Risposta As String
Dim Domanda As String
Dim i As Byte
Dim lastRow As Long

    Domanda = "Eseguire la macro?"

    Risposta = MsgBox(Domanda, vbYesNo, "Conferma")

    If Risposta = vbYes Then
    
    lastRow = Sheets("Pippo").Cells(1, 1).CurrentRegion.Rows.Count + 1
       
        For i = 2 To 14
            If Sheets("Pippo").Cells(3, 3) <> "" Then
                lastRow = Sheets("Pippo").Cells(1, 1).CurrentRegion.Rows.Count + 1
            Else
                lastRow = Sheets("Pippo").Cells(1, 1).CurrentRegion.Rows.Count
            End If
        Next i
        
        Sheets("Sheet2").Range("B3:P3").Copy Sheets("Pippo").Range("B" & lastRow)
        Range("B3:P3").ClearContents
        Range("B3").Select

    Else
        Exit Sub
    End If

End Sub
La macro fa il suo lavoro, ovvero trasferisce i dati in modo corretto. Ora una volta che i dati vengono trasferiti nel foglio Pippo, ho due necessità: (1) dei calcoli per ogni riga e (2) alcune somme dei risultati derivanti dai calcoli precedentemente fatti.

(1) ogni riga ha dei calcoli basilari, uguali per tutti. Il problema che ho riscontrato è che se trascino la formula per una serie di righe (per esempio fino alla 10), la macro non funziona più a dovere perché inserisce i dati nella 11 (ovvero nella prima riga totalmente libera). La soluzione ottimale sarebbe quella di creare una macro che ad ogni riga occupata crei le celle di calcolo oppure che sorpassi il fatto che ci siano le colonne Q,R,S,T,U occupate e vada a riempire solo le restanti (ovvero quello indicate dal form di input)

(2) oltre ai risultati per ogni riga, mi interessano anche i dati aggregati di tutti i risultati per ogni singola riga (somma). La posizione delle somme non mi interessa molto, nel senso che possono stare a lato oppure in alto, la cosa che realmente mi interessa è che siano aggiornate ad ogni riga inserita. Naturalmente sarebbe grandioso farle scalare man mano che i dati vengano inseriti, ma non vorrei chiedere troppo.

Qua il file Excel: (non me lo faceva caricare come allegato)
https://goo.gl/TJu3Jo

Grazie per il supporto
tiratardi12 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa Marvel's Wolverine, la recensione: Logan torna p...
DJI Romo 2: tante novità lo rendono un robot completo DJI Romo 2: tante novità lo rendono un ro...
Sony Bravia 9 II: il True RGB alla prova, dove l'LCD sfida l'OLED Sony Bravia 9 II: il True RGB alla prova, dove l...
Geely EX5, un mese al volante: il SUV elettrico cinese che ci ha sorpreso (quasi) senza riserve Geely EX5, un mese al volante: il SUV elettrico ...
Mova Z70 Ultra Roller Complete: motore potente, rullo di lavaggio e l'IA a guidare Mova Z70 Ultra Roller Complete: motore potente, ...
Dopo 23 anni di silenzio, Warcraft 3 spi...
Roblox sfida l'ecosistema gaming: app st...
OpenAI accusata di plagio dai migliori m...
Altro attacco hacker dell'IA: gli agenti...
Stiamo davvero perdendo il controllo del...
Microsoft perde un pilastro: Frank Shaw ...
Diablo V annunciato a sorpresa: il colpo...
Meno di 5 euro per il 5G: l'offerta Kena...
World of Warcraft: Forever è il Classic+...
La Serie A con DAZN e Amazon Prime con l...
Giochi Ubisoft su Steam senza Ubisoft Co...
Miami Beach ha autorizzato la maxi opera...
Apple regala un altro anno di funzioni s...
Alla fine è successo davvero: Vol...
Il meglio di Amazon del weekend in uno s...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 01:53.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v