Torna indietro   Hardware Upgrade Forum > Software > Programmazione

OVHcloud Summit 2025: le novità del cloud europeo tra sovranità, IA e quantum
OVHcloud Summit 2025: le novità del cloud europeo tra sovranità, IA e quantum
Abbiamo partecipato all'OVHcloud Summit 2025, conferenza annuale in cui l'azienda francese presenta le sue ultime novità. Abbiamo parlato di cloud pubblico e privato, d'intelligenza artificiale, di computer quantistici e di sovranità. Che forse, però, dovremmo chiamare solo "sicurezza"
Un mostro da MSI: QD-OLED WQHD a 500 Hz con AI Care e DisplayPort 2.1a
Un mostro da MSI: QD-OLED WQHD a 500 Hz con AI Care e DisplayPort 2.1a
Abbiamo potuto mettere le mani in anteprima sul nuovo monitor MSI dedicato ai giocatori: un mostro che adotta un pannello QD-OLED da 26,5 pollici con risoluzione 2560 x 1440 pixel, frequenza di aggiornamento fino a 500 Hz e tempo di risposta di 0,03 ms GtG
DJI Neo 2 in prova: il drone da 160 grammi guadagna il gimbal e molto altro
DJI Neo 2 in prova: il drone da 160 grammi guadagna il gimbal e molto altro
DJI aggiorna la sua linea di droni ultraleggeri con Neo 2, un quadricottero da 160 grammi che mantiene la compattezza del predecessore ma introduce una stabilizzazione meccanica a due assi, sensori omnidirezionali e un sistema LiDAR
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 25-08-2009, 11:57   #1
Holy_Bible
Senior Member
 
L'Avatar di Holy_Bible
 
Iscritto dal: May 2006
Città: Brescia
Messaggi: 1720
[Excel - Macro] Dimenticanza Su Ciclo Do-While

Ciao a tutti, Vi ringrazio gia per l'aiuto che mi date sempre :P

Ho necessità di creare una macro di Excel (Per esercizio) che effettui una scansione dei valori presenti in una colonna (Colonna C ) da index = 2 in giu, vorrei che il ciclo alla presenza di un certo valore "Roma Fiumicino" Selezioni l'intera riga e passi alla successiva effettuando il controllo ed in caso selezionandola o meno per passare alla prossima, alla fine vorrei avere tutte le caselle "Roma Fiumicino" Selezionate in modo da poterle incollare in un'altro Foglio di lavoro.

L'esercizio se puo essere utile chiede:

Nelle celle delle colonne dalla a alla E a partire dalla riga 2 devono essere copiati i dati dei voli presenti nel foglio di lavoro "milano_malpensa" che hanno i valori della colonna "Destinazione" uguale a " Roma Fiumicino"

In Poche parole devo copiare dei determinati valori, da un foglio all'altro gli elementi che devo copiare sono contraddistinti dal termine "Roma Fiumicino" nella casella C.

Sperando possiate capire qualcosa nella mia confusione

grazie


Edit

Codice che gia ho scritto:

Codice:
Sub macroAerei()

Dim MioWork As Workbook
Dim mioFoglio As Worksheet
Dim Nuovo As Worksheet
Dim index As Integer
Dim intestazione As Range
Dim intestazione2 As Range
Dim Miointervallo As Range

Set MioWork = Application.Workbooks("Orari_voli.xls.xlsx")
Set mioFoglio = MioWork.Worksheets("Milano-Malpensa")
index = 1
Set intestazione = mioFoglio.Range("1:1")
intestazione.Select
intestazione.Copy

Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = "Milano-Roma"
Set Nuovo = MioWork.Worksheets("Milano-Roma")
index = 1
Set intestazione2 = Nuovo.Range("1:1")
intestazione2.Select
intestazione2.PasteSpecial clPasteAll

mioFoglio.Select
index = 2

Set Miointervallo = mioFoglio.Range("C2")
Do While Miointervallo.Select



End Sub
Come mi si presenta il foglio:

Ultima modifica di Holy_Bible : 25-08-2009 alle 12:00.
Holy_Bible è offline   Rispondi citando il messaggio o parte di esso
Old 26-08-2009, 09:43   #2
Holy_Bible
Senior Member
 
L'Avatar di Holy_Bible
 
Iscritto dal: May 2006
Città: Brescia
Messaggi: 1720
Up
Holy_Bible è offline   Rispondi citando il messaggio o parte di esso
Old 27-08-2009, 11:09   #3
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Una soluzione possibile :

1. Con un semplice ciclo ( For i = 2 To ... ) interroghi la cella C delle righe dalla 2 in poi. Se il valore è quello giusto, il numero riga ( i ) viene aggiunto ad un array...

2. A ciclo finito basta prendere l'array, ciclarlo, e copiare/incollare nel foglio desiderato, una per volta, le righe che hanno indice uguale ai numeri contenuti nell'array stesso...
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


OVHcloud Summit 2025: le novità del cloud europeo tra sovranità, IA e quantum OVHcloud Summit 2025: le novità del cloud...
Un mostro da MSI: QD-OLED WQHD a 500 Hz con AI Care e DisplayPort 2.1a Un mostro da MSI: QD-OLED WQHD a 500 Hz con AI C...
DJI Neo 2 in prova: il drone da 160 grammi guadagna il gimbal e molto altro DJI Neo 2 in prova: il drone da 160 grammi guada...
L'IA "seria" di Appian è diversa: inserita nei processi e rispetta dati e persone L'IA "seria" di Appian è divers...
Polestar 3 Performance, test drive: comodità e potenza possono convivere Polestar 3 Performance, test drive: comodit&agra...
I social network hanno stancato gli ital...
Star Citizen supera i 900 milioni di dol...
Netflix ha eliminato la funzione Cast pe...
L'IA è una bolla e scoppier&agrav...
Un rapporto collega i data center di Ama...
Troppa concorrenza per Cherry (quella de...
Entro il 2035 la Cina vuole costruire de...
Tineco in super sconto: ultimo giorno di...
La Cina creerà una costellazione ...
I veicoli elettrici emettono radiazioni ...
Stai per acquistare una PS5? Attento al ...
iPhone 17 Pro Max finalmente disponibile...
Apple, Sony, Bose, Beats, Sennheiser, CM...
Arriva il Raspberry Pi 5 da 1 GB, ma por...
Draghi scuote l'Europa: 'rischio stagnaz...
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: 20:50.


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