Monday 26 July 2010

Microsoft Excel 2007 - Agenda {www.zipteck.com.br}

Title:
Microsoft Excel 2007 - Agenda {www.zipteck.com.br}


Video:


Description:Video Explicando como Criar um agenda no Excel 2007 (com macro ou sem macro) codigo da macro: Private Sub CommandButton1_Click() Dim nome As String Dim tel As String Dim mail As String nome = TextBox1.Text tel = TextBox2.Text mail = TextBox3.Text ActiveWorkbook.Sheets("Plan2").Activate Set C = Sheets(2).Range("a2") j = 0 Do j = j + 1 C.Cells(j, 1).Select Loop While IsEmpty(C.Cells(j, 1)) = False C.Cells(j, 1).Value = nome C.Cells(j, 1).Offset(0, 1) = tel C.Cells(j, 1).Offset(0, 2) = mail ActiveWorkbook.Sheets("Plan1").Activate End Sub

Published:
27/Jul/2010

No comments:

Post a Comment