martedì 23 dicembre 2014
film
http://www.cineblog01.li/words-and-pictures-2014/
http://www.cineblog01.li/piccole-crepe-grossi-guai-2014/
http://www.cineblog01.li/le-due-vie-del-destino-2014/
http://www.cineblog01.li/the-big-wedding-2014/
http://www.cineblog01.li/chef-la-ricetta-perfetta-2014/
http://www.cineblog01.li/supercondriaco-ridere-fa-bene-alla-salute-2014/
giovedì 30 ottobre 2014
mercoledì 17 settembre 2014
mercoledì 13 agosto 2014
martedì 29 luglio 2014
sabato 28 giugno 2014
giovedì 26 giugno 2014
venerdì 16 maggio 2014
sabato 5 aprile 2014
sabato 8 marzo 2014
venerdì 28 febbraio 2014
mercoledì 26 febbraio 2014
mercoledì 12 febbraio 2014
domenica 9 febbraio 2014
giovedì 6 febbraio 2014
macro elimina righe
per eliminare righe alterne su excel:
Sub macroeliminarighe()
For i = 10 To 2 Step -2
ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub
posizionati sulla cella A1 elimina tutte le righe pari fino alla riga 10
( For i = 9 To 1 Step -2
Sub macroeliminarighe()
For i = 10 To 2 Step -2
ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub
posizionati sulla cella A1 elimina tutte le righe pari fino alla riga 10
( For i = 9 To 1 Step -2
ActiveSheet.Rows(i).EntireRow.Delete Next i) per eliminare le righe dispari
venerdì 24 gennaio 2014
NUMERARE PAGINE VUOTE IN WORD
VBA MACRO WORD:
Sub macro_3() Dim l As Long Selection.TypeText Text:="WWW S.r.l VERBALE XXXXXXXXXXXXXXXXXXXXXX " Selection.TypeText Text:=vbTab & _ " AAAA/" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeParagraph Selection.TypeText Text:="Via YYYYYYYYYYYY" Selection.TypeParagraph Selection.TypeText Text:="JJJJJJJJJJJJJJJ" Selection.TypeParagraph Selection.TypeText Text:="Partita Iva: IIIIIIIIIII Codice fiscale: FFFFFFFFFFF " For l = 1 To 199 Selection.InsertBreak Type:=wdPageBreak Selection.TypeText Text:="WWW S.r.l VERBALE XXXXXXXXXXXXXXXXXXXXXX " Selection.TypeText Text:=vbTab & _ " AAAA/" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeParagraph Selection.TypeText Text:="Via YYYYYYYYYYYY" Selection.TypeParagraph Selection.TypeText Text:="JJJJJJJJJJJJJJJ" Selection.TypeParagraph Selection.TypeText Text:="Partita Iva: IIIIIIIIIII Codice fiscale: FFFFFFFFFFF " Next End Sub
Iscriviti a:
Post (Atom)