Excel VBA #24 Loop For Next nidificato dentro il ciclo For Next Macro per verificare condizioni

Benvenuto nel mio canale, prendi nota dei link qui sotto potrebbero esserti utili 😉

*****************DOWNLOAD*********************

*****************SUPPORTA*********************
☑ Abbonati a questo canale per accedere ai vantaggi:

**************SEGUIMI! *************************

************** I MIEI LIBRI***********************

*************ATTREZZATURE***********************

#GerardoZuccalà #PowerQuery #Excel_Vba

[vincenzobadalucco]

Complimenti Gerardo, grazie per i tuoi video! sto imparando tantissimo

[FB-tiod]

Spiegazione chiara e fluida di un esercizio anche impegnativo.Bene sig.Gerardo continui così senza ripensamenti! Grazie.

[sscire]

Grandissimo Gerardo! Ottima spiegazione ! Hai ragione, il ciclo FOR ...NEXT è assolutamente necessario e fondamentale nella programmazione VBA.
Naturalmente ci darai la la tua soluzione per la macro PULISCI 👌😂
E naturalmente aspettiamo la seconda parte della spiegazione.
ps: ho visto quell' ESK, e ... subito installato 👌👍

[frasier]

Ciao Gerardo.
Grazie per i tuoi video, sempre interessanti.
Ho costruito la routine VBA in coerenza fin quanto hai spiegato nei tuoi video.

Sub Pulisci()
For I = 2 To Range("A2",
Range("A" & I, "C" & I).Interior.Color = xlNone
Next I
End Sub

[vittoriomanfredini]

Esaustivo. Apprezzo molto la volontà di farci fare pratica. Insegnante unico

[enricozingaretti]

Ciao Gerardo..fatta la macro "Pulisci"...sei il top, questi video sono utilissimi sei molto bravo nella spiegazione, per favore non ti fermare...Grazie

[perronemarcello]

Sei un grande!

uno dei mille modi:

Sub Pulisci()



Dim ws As Worksheet, uR As Long

For Each ws In ThisWorkbook.Worksheets

uR = ws.Cells(Rows.Count, "A").End(xlUp).Row
ws.Range("A2:C" & uR).Interior.Color = xlNone



Next ws

MsgBox "Colori di riempimento eliminati!", vbExclamation, "Ripristino colori"

End Sub

Ciao

[salsaciro]

Ciao Gerardo, continua senza fermarti. La tua didattica è molto efficace, diretta, semplice da comprendere ecc. ecc. …

[paolosoloperto]

È veramente un piacere vedere i tuoi video....molti istruttivi

[alessiopustorino]

Ottimo. Il ciclo for io lo usavo quando programmavo in JavaScript. Aspetto un video di approfondimento per il ciclo for each.

[inload]

Complimenti! Bravissimo sei molto chiaro!

[flaviomarini]

bellissimo esempio molto chiaro, grazie gerardo

[salsaciro]

Un aspetto tecnico che ti suggerisco di sottolineare e portare alla luce senza preoccuparti della ridondanza, è il grosso vantaggio (in termini di prestazioni) che offre la programmazione VBA rispetto all’uso delle classiche funzioni. Un mio vecchi progetto ha fatto acqua per un uso eccessivo della funzione indiretto all'interno delle caselle combinate (comandi activex). Tale problema è superabile solo con una buona programmazione del VBA.

[ranger]

Grande Gerardo come al solito. Al prossimo video

[Liam]

Ciao Gerardo, grazie per i tuoi video sempre molto precisi e risolutivi. Ti pongo una domanda, se posso: è possibile usare una data cella X al posto del classico pulsante che mi faccia un determinato comando? Cioè senza dover creare un pulsante inserendo una forma a piacimento o direttamente il pulsante modulo, è possibile associare una macro ad una cella qualsiasi che poi funga da pulsante per attivare il codice istruzione VBA creato? Grazie!

[Ringo...]

Ciao Gerardo, eccoti la mia soluzione per cancellare i colori:

Sub cancellaColori()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationAutomatic
.StatusBar = False
.EnableEvents = False
End With

Dim Fogli As Long

For Fogli = 1 To Worksheets.Count

Worksheets(Fogli).Select


= xlNone

Next Fogli

Worksheets(1).Select

With Application
.CutCopyMode = False
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub

saluti Ringo

[robertomele]

Salve, seguo spesso i suoi tutorial e li trovo molto utili e spiegati benissimo. Vorrei chiederle un favore, ho un'esigenza in progetto che sto realizzando. Come faccio a lanciare un msgbox quando due numeri di una colonna sono uguali? La ringrazio anticipatamente e spero che mi possa aiutare. Buona Giornata. Roberto Mele

[brunoamato]

Sub


Dim Fogli As Byte

Application.ScreenUpdating = False

For Fogli = 1 To Worksheets.Count
Worksheets(Fogli).Select

= xlNone


Next Fogli

Worksheets(1).Select

End Sub

[marcop]

Non riesco a trovare info per il codice di DUE reiterazioni For Next contemporanee ma NON ANNIDATE.
Mi servono due variabili (non correlate tra loro) che avanzino contemporaneamente.
E' possibile?
Grazie

[raffaele]

Gerardo non riesco a starti dietro😂😂😂 sono fermo al 10. Devo accelerare un po