Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Peugeot Polygon Concept: ecco il futuro delle utilitarie
Peugeot Polygon Concept: ecco il futuro delle utilitarie
Polygon è la concept car di Peugeot che mostra il futuro delle soluzioni del segmento B: tra design compatti e innovativi affiancati da dimensioni compatte uno scherzo dalla manovrabilità incredibile per le manovre a bassa velocità
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione
OPPO ha portato in Italia, dal 1° luglio 2026, Reno16 Pro: display AMOLED da 6,32 pollici a 144Hz, tripla fotocamera con sensore principale da 200 megapixel, chip Dimensity 8550 Super e batteria da 6000mAh, al prezzo di lancio di 899 euro. Lo abbiamo provato per due settimane insieme al nuovo accessorio Bubble, per capire se la formula compatta della serie regge ancora di fronte a un listino da 1099 euro
 Hisense 55U7SE: tuttofare e accessibile, il MiniLED per film, sport e gioco
Hisense 55U7SE: tuttofare e accessibile, il MiniLED per film, sport e gioco
MiniLED di fascia media con local dimming a 192 zone, 144 Hz nativi e audio firmato Devialet. La prova strumentale riscontra colori affidabili e gaming reattivo, per un prodotto molto accessibile e convincente. Ma la soundbar aggiuntiva è quasi d'obbligo
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


Peugeot Polygon Concept: ecco il futuro delle utilitarie Peugeot Polygon Concept: ecco il futuro delle ut...
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione Reno16 Pro: il compatto di OPPO punta su fotocam...
 Hisense 55U7SE: tuttofare e accessibile, il MiniLED per film, sport e gioco Hisense 55U7SE: tuttofare e accessibile, il Min...
Kindle Scribe Colorsoft: riduce le cornici e diventa a colori, ma il prezzo è alto Kindle Scribe Colorsoft: riduce le cornici e div...
L'IA cambia tutte le regole della sicurezza tra vulnerabilità e sorveglianza. Intervista al CEO di Proofpoint L'IA cambia tutte le regole della sicurezza tra ...
Apple potrebbe aver sospeso il progetto ...
Nintendo non seguirà l'esempio di...
Motorola ha lanciato un'app dedicata all...
Cyberpunk 2077 non si ferma e raggiunge ...
Samsung alza ancora i prezzi delle memor...
4 sconti tutti nuovi riscrivono la TOP 1...
Portatile HP con Intel Core Ultra 7 155H...
Smart TV Haier 50'' 4K crolla a 225,99€ ...
Google Pixel 10a a 399€ o 497€ (256GB) c...
Compare dal nulla e blocca lo schermo: c...
Tornano i super prezzi Nikon su Amazon, ...
Compatto, leggerissimo (1,2Kg), ma con 3...
Privacy Display per tutti i Galaxy S: Sa...
Le migliori cuffie in offerta su Amazon ...
SpaceX Starship: Ship 40 ha eseguito un ...
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:23.


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