Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Doppio codice vba excel
- Hai un problema con Excel?
Doppio codice vba excel
di Luca87itc (utente non iscritto) data: 09/02/2012
Ecco, già che ci sono ne approfitto e ci scrivo un altro problema.
riguarda excel questa volta.
ho iniziato a scrivere il seguente codice, applicato in un file excel 2007.
in questo file, nella colonna a, sono inserite le estensioni di 101 file excel a cui si deve applicare il codice.
come vedete ho iniziato definendo una variabile che mi definisca dove finisce il range di file a cui applicare il codice (il loro numero non è fisso).
ora, il problema che si presenta è come continuare.
in pratica io dovrei:
- in ogni file excel, filtrare la colonna c per i seguenti valori: "null", "immediate requirement", "short-term requirement", "medium-term requirement", "long-term requirement".
- prendere la prima cella della colonna c (che sono sicuro sarà "null") e eliminarla.
- fare uno "shift up" della colonna c
la tabella così definita sarà poi esportata in access dove dovrò prendere solo le celle che hanno contenuto <> "null".
ovviamente per il code dovrò eseguire un loop, secondo la sequenza:
open (the excel file)
do (filter the table and delete&shift)
close&save
next mycounter
vi ringrazio per ogni aiuto/input
Dim var_stop As Integer Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Activate var_stop = ActiveCell.Row For myCounter = 1 To var_stop
Doppio codice vba excel
di Luca87itc (utente non iscritto) data: 09/02/2012
Ecco, già che ci sono ne approfitto e ci scrivo un altro problema.
riguarda excel questa volta.
ho iniziato a scrivere il seguente codice, applicato in un file excel 2007.
in questo file, nella colonna a, sono inserite le estensioni di 101 file excel a cui si deve applicare il codice.
come vedete ho iniziato definendo una variabile che mi definisca dove finisce il range di file a cui applicare il codice (il loro numero non è fisso).
ora, il problema che si presenta è come continuare.
in pratica io dovrei:
- in ogni file excel, filtrare la colonna c per i seguenti valori: "null", "immediate requirement", "short-term requirement", "medium-term requirement", "long-term requirement".
- prendere la prima cella della colonna c (che sono sicuro sarà "null") e eliminarla.
- fare uno "shift up" della colonna c
la tabella così definita sarà poi esportata in access dove dovrò prendere solo le celle che hanno contenuto <> "null".
ovviamente per il code dovrò eseguire un loop, secondo la sequenza:
open (the excel file)
do (filter the table and delete&shift)
close&save
next mycounter
vi ringrazio per ogni aiuto/input
Dim var_stop As Integer Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Activate var_stop = ActiveCell.Row For myCounter = 1 To var_stop
Doppio codice vba excel
di Luca87itc (utente non iscritto) data: 09/02/2012
Ecco, già che ci sono ne approfitto e ci scrivo un altro problema.
riguarda excel questa volta.
ho iniziato a scrivere il seguente codice, applicato in un file excel 2007.
in questo file, nella colonna a, sono inserite le estensioni di 101 file excel a cui si deve applicare il codice.
come vedete ho iniziato definendo una variabile che mi definisca dove finisce il range di file a cui applicare il codice (il loro numero non è fisso).
ora, il problema che si presenta è come continuare.
in pratica io dovrei:
- in ogni file excel, filtrare la colonna c per i seguenti valori: "null", "immediate requirement", "short-term requirement", "medium-term requirement", "long-term requirement".
- prendere la prima cella della colonna c (che sono sicuro sarà "null") e eliminarla.
- fare uno "shift up" della colonna c
la tabella così definita sarà poi esportata in access dove dovrò prendere solo le celle che hanno contenuto <> "null".
ovviamente per il code dovrò eseguire un loop, secondo la sequenza:
open (the excel file)
do (filter the table and delete&shift)
close&save
next mycounter
vi ringrazio per ogni aiuto/input
Dim var_stop As Integer Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Activate var_stop = ActiveCell.Row For myCounter = 1 To var_stop
di Luca87itc (utente non iscritto) data: 09/02/2012
Scusate, c'è stato un problema di connessione internet, ecco il perchè di 3 messaggi
di Luca87itc (utente non iscritto) data: 09/02/2012
Scusate, c'è stato un problema di connessione internet, ecco il perchè di 3 messaggi
- Vuoi Approfondire?
