Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

saltare controllo di alcune colonne

Ultimo Aggiornamento: 24/02/2018 17:12
trittico69
Post: 220
Registrato il: 02/04/2010
Città: MILANO
Età: 54
Utente Junior
2002
OFFLINE
24/02/2018 11:09
00#1
saltare controllo di alcune colonne
Salve, qualcuno mi aiuta a modificare questo codice in modo che salti il controllo di alcune colonne?
In pratica mi deve saltare la Colonna CN:CP CU:CW DB:DD
grazie

Sheets("presenti").Select Dim iki As Long
For iki = 1 To 238 Step 7
Cells(2, iki).Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Next iki


excel 2003
rollis13
Post: 660
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
24/02/2018 11:33
00#2
Dato che il For/Next procede a Step di 7 e le colonne da saltare sono in gruppo di 3 forse è il caso di dire come si procede dopo aver saltato il primo gruppo CN:CP perché questo scombina la sequenza in base 7 e gli altri 2 gruppi (CU:CW DB:DD) da saltare non sono più esattamente multipli di 7 nel For/Next.
Forse è il caso di allegare un file esempio.

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
trittico69
Post: 220
Registrato il: 02/04/2010
Città: MILANO
Età: 54
Utente Junior
2002
OFFLINE
24/02/2018 12:09
00#3
Rolly se potresti aiutarmi anche qui
www.freeforumzone.com/mobile/discussione.aspx?idd=11477660
Per quanto riguarda il file d'esempio appena posso te lo allego
excel 2003
GiuseppeMN
Post: 2.700
Registrato il: 03/04/2013
Utente Veteran
Excel 2000 - 2013
OFFLINE
24/02/2018 17:12
00#4
Buona sera, @trittico;
non vorei aver male interpretato la tua richiesta ma potresti provare con: 
Option Explicit

Sub Test()
Application.ScreenUpdating = False
Dim iki As Integer

    Sheets("presenti").Select
        For iki = 1 To 238 Step 7
            If iki <> 92 And iki <> 99 And iki <> 106 Then
                Cells(2, iki).Select
                     Selection.QueryTable.Refresh BackgroundQuery:=False
            End If
        Next iki
Application.ScreenUpdating = True
End Sub

Molto probabilmente potresti semplificare con: 
Option Explicit

Sub Test()
Application.ScreenUpdating = False
Dim iki As Integer

    Sheets("presenti").Select
        For iki = 1 To 238 Step 7
            If iki <> 92 And iki <> 99 And iki <> 106 Then
                Cells(2, iki).QueryTable.Refresh BackgroundQuery:=False
            End If
        Next iki
Application.ScreenUpdating = True
End Sub

ma, essendo: 
.QueryTable.Refresh BackgroundQuery:=False

una Query di Access, non sono riuscito a testare completamente questo Codice VBA; mi sono limitato a testare: 
Cells(2, iki).Select




A disposizione.

Buona serata.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 06:54. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima