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")

Veja (link) se e isso que deseja: http://www.sendspace.com/file/guqzww

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

Para somar os dois "tempos", use a seguinte formula: =ESQUERDA(B2;PROCURAR("Seconds";B2)-2)+C2

Kenner Sávio, No exemplo do link, veja se atende a sua necessidade. http://www.sendspace.com/file/9e0ryf

Já usou o Infanview:? http://pt.win-install.info/irfanview?utm_source=google&utm_medium=cpc&utm_campaign=WIN_BR_TopTail&utm_content=IrfanView&utm_term=irfanview

naguall, Dá uma olhada aqui: http://www.mrexcel.com/forum/excel-questions/497979-scp-secure-copy-via-visual-basic-applications.html e: http://www.vbforums.com/showthread.php?558333-VB-amp-Putty