VBA - Excel "Navigare fra i fogli di calcolo"

Ecco quali comandi usare per navigare fra i fogli di calcolo in excel usando VBA

A) Muoversi in uno sheet specifico:

Sheets("nome del foglio di calcolo").Select 

'seleziona il foglio di calcolo in base al nome che gli avete assegnato

B) Muoversi in uno sheet specifico usando le variabili (Valore Indice o Index value)

La regola è questa: per excel il primo foglio di calcolo (quello tutto a sx) assume valore 1, il secondo 2 il terzo 3 e così via. Non importa come li chiamiate, se li spostate, modificate o cancellate: il foglio di calcolo più a sx avrà sempre per excel valore 1, gli altri a seguire 2,3,4 ecc.

Detto questo:

Sheets(1).Select ' Seleziona il foglio di calcolo più a sx
Sheets(2).Select ' Seleziona il secondo
Sheets(3).Select ' Seleziona il terzo e così via

C) Muoversi sul successivo foglio o sul precedente

ActiveSheet.Next.Select ' Seleziona il foglio di calcolo successivo
ActiveSheet.Previous.Select ' Seleziona il foglio di calcolo precedentre

Ciao alla prox.
Salumi :v

Scaricare tutto il proprio profilo facebook sul PC

Avete paura che un giorno l'interweb esploda? che Facebook venga demolito da Hacker Indiani fan di Orkut? O che sarà acquisito dal Vaticano e in tutte le vostre foto compariranno corna e forcone?

Tutte queste paure vi spingono a voler salvare sul vostro PC tutto il vostro profilo, chiaccherate, foto scaborose, video e link?

Ecco come fare....

1) andate su Account e "Impostazioni Account"
2) all'altezza di "scarica le tue informazioni", cliccate su "maggiorni informazioni"
Vi appare questra finestra:


3) Cliccate su scarica

A questo punto aspettatevi qualche domanda per verificare che siate proprio voi e una mail in cui vi verrà dato un link per scaricare il profilo. Il formato è minimal chic ma va bene lo stesso, pazze!

Salumi :v

VBA - Excel- Operazioni con le stringhe

Sto lavorando ad una routine che mi trasfromi in automatico in pdf (la posterò se ce la farò) tutti i file presenti in una directory. Nel scriverla ho usato diverse operazioni con le stringhe. Ho deciso di riassumerle qui.

Funzione	Descrizione	Esempio	Risultato
Len()	Determina quanto è lunga una stringa di caratteri	variabilepippo= Len("asd")	3 (caratteri)
LCase()	Converte i caratteri della stringa da maiuscoli a minuscoli	variabilepippo = LCase("ASD")	asd
UCase()	Converte i caratteri da minuscoli a maiuscoli	NomeVar = UCase("Asd")	ASD
StrReverse()	Inverte le stringhe	variabilepippo = StrReverse("Asd")	dsA
Left()	Estrae i primi (n) caratteri di una stringa	variabilepippo = Left("Asd", 2)	As
Right()	Estrae gli ultimi (n) caratteri di una stringa	variabilepippo = Right("Asd", 2)	sd
Mid()	Estrae i caratteri (n) di una stringa, partendo da un punto specifico	variabilepippo = Mid("asdlol" 3,4) NB 3 = parti dal terzo carattere compreso NB 4= ed estrai 4 caratteri	dlol
InStr()	Trova una parte di stringa su un’altra	variabilepippo = InStr("asd", "d")	3
LTrim()	Elimina tutti gli spazi iniziali	variabilepippo = LTrim(" asd ")	"asd "
RTrim()	Elimina tutti gli spazi finali	variabilepippo = RTrim(" asd ")	" asd "
Trim()	Elimina tutti gli spazi iniziali e finali	variabilepippo = Trim(" asd ")	"asd"
CStr()	Converte in una stringa un numero intero	variabilepippo = CStr(10)	"10"
*CInt()	Converte in numero intero stringa	variabilepippo = CInt("10")	10

alla prox :v

WD TV Live e adattatori wireless/wifi compatibili

Per chi non lo conoscesse questo è un WD TV Live, WD sta per Western Digital, l'azienda che lo produce . Il WD TV live attaccato alla televisione vi permette di vedere dei contenuti multimediali direttamente sulla TV:

1) -o leggendoli da una memoria di massa (chiavetta USB, Hard Disk esterni, ecc.) che dovete attaccargli, tramite porta USB;

2) -o leggendoli tramite la vostra rete casalinga da un dispositivo appartenente alla rete (es: ho dei contenuti multimediali nella cartella C:/TORRENT/XXX del mio PC, che condivido sulla mia rete locale, il WD li legge e me li fa vedere sulla TV).

3) - oppure direttamente dal WEB, ma funziona solo per youtube (bella merda, e magavideo?)

Per i casi due e tre o riuscite ad attacare ad un cavo di rete il TV o vi serve un adattore wireless (conosciuto anche come chiavetta wi-fi).

ATTENZIONE ! Non tutte sono compatibili

quindi... guardate sulla lista qui sotto prima di acquistarne una.

Adattatori Compatibili con il WD TV Live

Adapter	Model	Version/Revision
Airlink Golden 150	AWLL5077	Rev 0200
ASUS Wireless USB adapter	USB-N10	Rev 0200
ASUS 802.11 Nework adapter	USB-N13	Ver 1.10
New! AZIO Wireless USB Adapter	AWU101N	Not Listed*
Belkin N1 Wireless USB adapter	F5D8051	V3100
New! Belkin N1 Wireless USB adapter	F5D8053	V3001
Belkin N1 Wireless USB adapter	F5D8055	v2
Belkin N 150 Wireless N	F6D4050	Ver 1000
Buffalo Wireless N compact USB 2.0 Adapter	WLI-UC-G300HP	Not Listed*
Buffalo Mini	WLI-UC-GN	US
Buffalo Wireless N compact USB 2.0 Adapter	WLI-UC-G300N	Not Listed*
Corega Mini USB Adapter	CG-WLUSBNM	Not Listed*
D-Link Wireless 150 USB Adapter	DWA-125	Version A1, FW 1.00
D-Link Wireless N Nano USB	DWA-131	Not Listed*
D-Link Rangebooster N USB Adapter	DWA-140	V1.30
D-Link Xtreme N dual band USB adapter	DWA-160	Not Listed*
EnGenius Wireless N adapter	EUB-9701	Not Listed*
EnGenius Wireless N USB adapter	EUB9706	Not Listed*
Hawking Wireless N USB adapter	HWNU3	Not Listed*
Hi Power Wireless USB Adapter	GW-USMicroN	Not Listed*
Hi Power Wireless Mini-USB Adapter	GW-USMini2N	Not Listed*
Hornettek JANUS	GW-USMini2N	Rev 0200
Level 1 Wireless USB adapter	WNC-0600USB	Ver 2.00
Linksys Rangeplus wireless network USB adapter	WUSB100	Must have no revision number
New! Linksys Rangeplus wireless network USB adapter	WUSB100	V2
Linksys Wireless-N USB network adapter with dual-band	WUSB600N	Not Listed*
Linksys Wireless-N USB network adapter with dual-band	WUSB600N	Ver 2
Netgear Netgear wireless USB adapter	EVAW111-100WWS	Not Listed*
Netgear RangeMax Wireless-N USB Adapter	wn111	Not Listed*
Rosewill Wireless N adapter	RNX-Easy-N1	Rev1.00
Sitecom Wireless Dualband USB Adapter	WL-329	V1 001
SMC EZ connect N	SMCWUSB-N2	Not Listed*
TP-Link Wireless N USB adapter	TL-WN821N	Ver 2.2
Trendnet Wireless N USB adapter	TEW-644UB	V1.0R
Trendnet Wireless N USB adapter	TEW-645UB	Not Listed*
Trendnet 300Mbps Dual Band WirelessN USB Adapter	TEW-664UB	V1.0R
ZyXel USB Client Adapter	NWD-210N	Not Listed*

Io ho questa, 20 euro al mediaworld:

D-Link Rangebooster N USB Adapter	DWA-140	V1.30

ciao :v

VBA - Trova e sostituisci

"Una semplice routine in VBA per trovare del testo all'interno di una cella e sostituirlo con altro"

Oggi mi son trovato a dover cancellare da un foglio excel con 25.000 record una speficica parola. In una colonna, infatti, oltre ad una data che mi è utile per un'analisi successiva , c'è la parola ASD.

Ad esempio:

11-04-1979 ASD
11-05-1979 ASD
11-06-1979 ASD
...

L'alternativa ad utilizzare VBA è il classico Trova e Sostituisci, dove nel campo Trova mettete "ASD" e in sostituisci lasciate vuoto.

Siccome devo automatizzare altre cose deciso di compilare una routine anche per questa piccola banalità.Eccola:

Sub togliasd()
Sheets(1).Activate
Cells.Replace What:="ASD", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Vediamola nel dettaglio passo passo:

• Sub togliasd() -> inizializzo la routine e la chiamo "togliasd".
• Sheets(1).Activate -> attiva il foglio di calcolo che mi interessa, il primo in ordine di apparizione, in alternativa potete mettere il nome che avete dato allo sheet al poste del numero 1.
• Cell.Replace -> richiama la funzione di sostituzione
• What:= -> Il parametro che indica cosa volete sostituire. Il cosa deve essere indicato dopo l'uguale e tra virgolette "ASD".
• Replacement:= -> Il parametro che indica con che cosa volete sostituire. Il con che cosa, sempre dopo l'uguale e sempre tra virgolette, in questo caso è nulla, quindi tra le "" non scrivo nulla.
• SearchOrder :=xlByRows -> Search order indica come deve procedere la ricerca, se riga per riga o (xlByRows) colonna per colonna (xlByColumns). In questo caso riga per riga. NB (il trattino basso _ serve per andare a capo)
• MatchCase:=False -> indica se la ricerca deve essere "case sensitive" o meno. Ossia se ritenga che maiuscole e minuscole siano la stessa cosa o meno.
• SearchFormat:=False -> è un ulteriore attributo di ricerca. In particolare si può selezionare il formato della cella...
• ReplaceFormat:=False ->... e sostituirlo con quello messo qui.
• End Sub -> conlude la routine.

Ciao :v


NB:
Per i perfezionisti attenti ai cicli di clock...e per chi vuole sostituire una specifica parola solo in una colonna o in una selezione specifica, aggiungete dopo Sheets(1).Activate:

Range("A1:R99").Select -> selezionare il rettangolone di celle da A1 a R99

oppure, nel caso in cui vogliate selezionare una o più colonne...

Columns("x:y").Select -> con x e y sostituite il range di colonne che volete selezionare es: B:Z" e per una colonna sola B:B

ari ciao :v

Dlink DWL 700 AP da usare come bridge / repeater

Premessa:
la presente procedura vale anche per i seguenti modelli dlink: DL524, DL524UP, DL624 Rev.C, DSLG604T e chiaramente DWL700AP.

________________________________________________________________

Ho questo access point da anni, per un po' è stato in cantina sostituito dal classico HAG Fastweb.
Recentemente ho avuto la necessità di ripetere il segnale wi-fi in una zona "buia" della casa.
Questo valido, se pur datato, apparecchio ha svolto perfettamente la funzione.
La configurazione in modalità bridge (o repeater) è veloce ed intuitiva.


Finite le presentazioni, vediamo come fare:

A) Premessa (il reset dell'access point D-link DWL700 AP):

Qualora l'access point abbia vecchie impostazioni che non volete preservare o nel caso in cui non
ricordiate la password per potervi accedere è necessario che lo resettiate. Sul sito ufficiale trovate informazioni poco chiare. Con me ha funzionato così:

1) ad apparecchio acceso, infilate la punta di una biro sul retro dell'access point, nel buchino con scritto "reset". Tenete premuto per un lasso di tempo non inferiore ai 10 secondi (e non superiore ai 20-25).

2)Togliete l'alimentazione all'access point.

3)Rimettere la punta della biro nel buchino e tenendo premuto accendete. Aspettate per oltre 10 secondi, sempre tenendo premuto ed il gioco è fatto.

B) Accedere all'access point
Per configurare l'AP in modalità repeater è necessario accedervi.

Per falro di norma basta:
1) connettersi via cavo di rete all'apprecchio o via wi-fi accedendo alla rete.

NB "In questo secondo caso se avete appena comprato o resattato l'apperecchio o nel caso abbiate ancora la configurazione standard, il nome della rete sarà "default", la rete inoltre sarà sprovvista di password e quindi aperta e facilmente accessibile."

2)avuto accesso alla rete (con cavo o via wi-fi) dovete andare nella barra degli indirizzi del vostro browser (Internet Explorer, Firefox, ecc) e digitare:

192.168.0.50

ossia, l'indirizzo di fabbrica del vostro Access Point.

NB (per altri modelli potrebbe essere 192.168.0.1, 192.168.1.1, 192.168.2.1)

Se tutto va bene*, vi comparirà una schermata di richiesta di user-id (nome utente) e password.

La user-id è:

admin

la password è nulla, quindi lasciate bianco e premete invio.

*NB Se non doveste riuscire ad accedere al router, e quindi vi comparisse la pagina di errore invece di quella di richiesta della user-id e passowrd, leggete l'ultimo paragrafo ("problemi ad accedere all'AP").

C)Configurare l'Access Point in modalità Bridge / Repeater

Avuto accesso al router sarà necessario configurarlo in modalità "repeater", ossia che ripeta il segnale di un altro Access Point Wi-fi, l'HAG di Fastweb, ad esempio.

Premuto invio alla richiesta del nome utente e della passowrd dovreste trovarvi davanti a una schermata simile a questa.



A) Andate nell'opzione "Home" (in alto)

B) e poi nell'opzione "wireless" (a sinistra) come indicato nella figura sottostante.




C) Nel menu a tendina "Mode" scegliete "Repeater"

D) Cliccate poi "Site Survey" e vi verranno mostrate le rete che sono visibili, cercate la vostra (quella di cui volete replicare il segnale) selezionatela e cliccate OK!

E) A questo punnto come si vede nell'immagine successiva, nel box SSID dovrebbe comparire il nome delle rete scelta (nel caso non comparisse mettetelo voi a mano, è il mone della vostra rete visto nella schermata precedente subito dopo che avete cliccato "site survey").

F)Mettete poi la chiave di sicurezza della rete di cui volete ripetere il segnale, avendo cura di selezionare il tipo corretto, per Fastweb è ad oggi una WPA/PSK.


Cliccate su OK e avete finito. :)

__________________________________________________________

Altre risorse:
Qui trovate manuale aggiornamenti e driver in inglese.
Qui il manuale in italiano

_______________________________________________________________

Problemi ad accedere all'Access Point (mi da errore quando scrivo 192.168.0.50)

Potrebbe succedere che nonostante abbiate resettato l'AP e vi siate connessi alla rete "default" quando inserite nel vostro browser l'indirizzo 192.168.0.50 vi dia una pagina di errore.
In questo caso provate così:

1) Andate in pannello di controllo
2) Cliccate su centro connessioni di rete e condivisioni
3) Cliccate su Gestisci connessioni di rete
4) Cercate la rete "default", cliccate col tasto destro e cercate "proprietà", quindi cliccate. Vi dovrebbe comparire una schermata di questo tipo.


5) Cercate la scritta Protocollo Internet Versione 4 (TCP/IPv4) e fate doppio click.
6) A qeusto punto vi compare una nuova schermata che dovete impostare come descritto nell'immagine sotto ossia:

-a) cliccare sull'opzione Utilizza seguente indirizzo IP
-b) Indirizzo IP: 192.168.0.100
-c) Subnet Mask, dovrebbe fare da solo, nel casa non lo facesse mettete: 255.255.255.0
-d) Gateway Predefinito 192.168.0.50 (vi ricorda qualcosa? :v)


7) Cliccate "OK" adesso dovreste accedere.


Pe domande, commentate sotto pure sotto :/

Soggiorno moderno a meno di 400 euro!

Sto arredando casa e ho destinato ai mobili del soggiorno un budget inferiore ai 700 euro.

Girando un po' per show-room e negozi, mi sono accorto che per un mobile moderno con un design un po' accattivante, si spendevano più di 1300 euro (tra l'altro dopo aver contrattato peggio che a Marrakech, da prezzi di partenza di 2000 euro). Su quella cifra non mi rimaneva che scegliere mondo convenienza o ikea.

Bene, ho scelto la seconda opzione dopo aver giocato un po' col planner Besta.

Il Besta Planner lo trovate qui.

Non è altro che un software di progettazione per interni, facilissimo da usare, dedicato a BESTA, una delle suite di mobili più famose della casa svedese.

Sul sito ikea trovate già delle composizioni pre-progettate, ma vi accorgerete subito che non hanno un grande stile e mal si adattano a rendere il vostro soggiorno "unico".

Vi consiglio quindi di giocare un po' col planner e il vostro gusto per creare qualcosa di diverso.

Io vi proponggo il mobile disegnato da me che oggi adoro e mi è costato solo 374 euro!





Qui trovate le specifiche coi pezzi e i costi in un file scaricabile formato PDF, creato sempre col planner BESTA.

File PDF