sabato 28 giugno 2014

xz

venerdì 28 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
     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