Kopiranje iz lista "1" u list "2"

Sub Kopiranje()
   Worksheets("1").Range("1:20").Copy Destination:=Worksheets("2").Cells(Cells(65536, 2).End(xlUp).Row + 1, 1)
   Worksheets("2").Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Ovom Makrou je karakteristično to da samo sa dvije linije koda (najmanje  za radnju ove vrste) kopiramo redove 1-20 u prvu praznu ćeliju u listu "2" u koloni "A", te briše prazne redove ako postoje u koloni "B". 

Izuzimanje od tiskanja područja ili ćelija prilikom tiskanja obrazaca

Sub NeTiskaj()
   Dim K As Range
   Dim c As Range
   Dim KK As Long
   Dim skp() As Long
   Dim i As Long
      Set K = ActiveSheet.Range("A2:A6,D2:D5") 'područje koje se izuzima od tiskanja
      KK = K.Count
    ReDim skp(KK, 1)
      For Each c In K
         i = i + 1
        skp(i, 1) = c
     Next
        K = ""
        i = 0
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     For Each c In K
        i = i + 1
        c = skp(i, 1)
          If c = 0 Then c = ""
    Next
End Sub

 

 

 

 

Sub Bojom()
   Range("A2:A6,D2:D5").Font.ColorIndex = 2
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   Range("A2:A6,D2:D5").Font.ColorIndex = 0
End Sub

Osim ova dva primjera može se područje isjeći na drugo mjesto te nakon tiskanja vratiti nazad