symbols

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

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

rimozione worm

Grazie Crys!

xmas centerpiece

xmas centerpiece

vedi

fsc

FSC Italia Inprinting from Event4ITGroup