Textbox sa datumima

     Private Sub UserForm_Initialize()
     Dim brojcanik As Integer
     For brojcanik = 1 To 12
         ComboBox1.AddItem Format(DateSerial(1, brojcanik, 1), "mmmm")
     Next brojcanik
         ComboBox1.ListIndex = Month(Date) - 1
     With ComboBox2
         .AddItem "2006"
         .AddItem "2007"
    End With
         ComboBox2 = Format(Date, "yyyy")
   End Sub

Kako se može unijeti petljom i upisom podatak za combobox

Funkcija i formula prvi i posljednji dan u mjesecu

   Function PrviDan(Datum As Date) As Date
     PrviDan = DateSerial(Year(Datum), Month(Datum), 1)
   End Function

    Function PosljednjiDan(Datum As Date) As Date
     PosljednjiDan = DateSerial(Year(Datum), Month(Datum) + 1, 1) - 1
   End Function

 

=DATE(YEAR(A1); MONTH(A1); 1)

=DATE(YEAR(A1); MONTH(A1) + 1; 1) - 1

Jako korisna funkcija i formula u radu sa datumima 

Kopiranje dokumenta 

    Sub kopiranje()
      On Error Resume Next
      CreateObject("Scripting.FileSystemObject").GetFile( _
         "C:\Knjiga.xls").Copy _
         "C:\1\Knjiga.xls", False
         If Err.Number = 58 Then
        MsgBox "U ciljni direktorij knjiga već postoji!!!!", , "CROexcel.com"
     End If
  End Sub

Potrebno je ispraviti nazib diska ili direktorija prema vlastitom nahođenju 

Pokazivač protoka vremena

   Option Explicit
   Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   Public Sub sat()
     Dim i As Integer
     Dim pocetak As Double
        pocetak = Timer
          Sleep 500' protok vremene unaprijed označen (opcija)

              'ili
         Cells = 1'protok vremena za ispunjenje svih ćelija vrijednošću 1(opcija)
     MsgBox Timer - pocetak
End Sub

Ponekad dobro dođe za izračunavanje vremena izvršenja radnji na nekom napisanom kodu 

   Sub Adrese_celija()
   a = Cells(1, ActiveCell.Column).Address(0, 0)
   MsgBox WorksheetFunction.Substitute(a, 1, ""), , "CROExcel"
   b = Cells(1, ActiveCell.Column).Address(1, 0)
   MsgBox WorksheetFunction.Substitute(b, 1, ""), , "CROExcel"
   c = Cells(1, ActiveCell.Column).Address(0, 1)
   MsgBox WorksheetFunction.Substitute(c, 1, ""), , "CROExcel"
   d = Cells(1, ActiveCell.Column).Address(1, 1)
   MsgBox WorksheetFunction.Substitute(d, 1, ""), , "CROExcel"
   End Sub