Basole

Private Sub Workbook_Open() '** Quero Inserir aqui as informações abaixo.** If Plan8.[m1] > 0 Then MsgBox Plan8.[m1] If Plan8.[n1] = "" Then Dim wshNetwork As Object Dim LogonName As Variant Set wshNetwork = CreateObject("WScript.Network") Range("M1").Select ActiveCell.FormulaR1C1 = Environ$("username") MsgBox "Seja Bem vindo(a) " & Range("n1").Value & " " Else Exit Sub End If End Sub

Faça o seguinte: selecione a celula "M2", altere a formatacao para "geral", coie o numero de serie da data que voce inseriu, em seguida coloque este nº na formula condicional. Ex.: Data de hj. 30/05/2014 (nº serie: 41789) , formula: =$M2=41789. Altere agora a formatacao da "m2" p/ data.

Segue o link veja se é isso ; http://www.sendspace.com/file/0k05n6

Com o codigo abaixo os dados serão inseridos na primeira linha em "branco" da coluna "A" Dim linhaAbaixo as Long linhaAbaixo = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.Range("A" & linhaAbaixo).Value = Me.TextBox1.Text

pfreitas3, Dei primeiro passo, criei um formulario. Veja se consegue fazer o outro seguindo a logica. Ps. Dependendo da versao do seu office, talvez nao funcione o calendario. http://www.sendspace.com/file/ijewvd

Seria isso? =EXT.TEXTO(O2;LOCALIZAR("/";O2;1)-3;3)

Altere de acordo com suas celulas: ="UNDER=" & CONT.SES(A1:A10;"UNDER") & " e " & "OVER= " & CONT.SES(A1:A10;"OVER")

Segue um exemplo, veja se consegue adaptar ao q precisa. Os as referencias e creditos do autor estão no codigo. CTRL_L_EM_VBA.zip