zinhovba

Boa noite!! Veja se te ajuda... Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Cells.Count = 1 Then If .Value = vbNullString Then If MsgBox("Delete OK?", vbOKCancel) = vbCancel Then Application.Undo End If End If End If End With End Sub

Bom dia!!! A segunda opção é melhor. Aqui terá todo um passa a passo de como fazer uma assinatura digital. http://pt.kioskea.net/faq/3633-excel-assinatura-digital

Boa noite!!! Seu problema pode ser resolvido via função (excel)...só serve se for via VBA.? Veja como fazer via função http://www.4shared.com/file/RafWyaY3/TransporViaFuno.html

Boa tarde!!! Crie uma variável .... ...Exemplo Dim txtbox1 As String Para mais informações poste sua planilha em site gratuito como www.4Shared.com etc Att..

Boa noite!!! Poderia disponibilizar uma planilha modelo simulando o resultado...? Att.. Boa noite!!! Poderia disponibilizar uma planilha modelo simulando o resultado...? Att..

Bem-vindo ao fórum! Sempre Dim números de linha como Long.

Bom dia!!! Veja se esse exemplo te ajuda... LastRow = Cells(Rows.Count, 1).End(xlUp).Row For y = LastRow To 2 Step -1 If Cells(y, "D").Value < "30/10/2011" Then Rows(y).EntireRow.Delete Next y

Boa tarde!! Segue um exemplo Sub botao() ActiveSheet.Buttons.Add ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height End Sub

Boa noite!! Veja se isso te ajuda.. http://office.microsoft.com/pt-br/word-hel...P005186061.aspx http://www.computerdicas.com.br/2011/02/in...lunas-word.html Att..

Boa noite!! Veja se isso te ajuda.. http://office.microsoft.com/pt-br/word-hel...P005186061.aspx http://www.computerdicas.com.br/2011/02/in...lunas-word.html Att..

Boa noite!! Caso queira seleciona ....Range("A1:A10").select

Boa noite!!! Nos mande sua planilha modelo...... Att..

Boa noite!!! Será que você consegue tirar proveito disso..... Private Sub Workbook_Open() 'Runs a macro 10 seconds after Excel is opened Application.OnTime Now + TimeValue("00:00:10"), "Name_of_Macro" End Sub Att..

Boa noite!!! Deixa eu ver,se eu entendi..... Caso na coluna "Data", esteja preenchido então..as células ficarão coloridas? Use a Formatação Condicional, selecione a coluna "Data" e vá à Formatação Condicional --> Nova Regra --> Usar uma Formula..... --> no campo em branco digite......Caso os dado do campo "Data" esteja na a partir da coluna "B2" =SE($B2="";0;1) " Att...

Boa tarde!! Tente uma adaptação... Sub Mega_Sena() Dim i, x, y(59) For i = 1 To 59 y(i) = i Next Randomize Timer For i = 1 To 6 x = 1 + Int((Rnd * (59 - i))) ActiveCell.Offset(0, i - 1).Value = y(x) y(x) = y(60 - i) Next End Sub

Boa noite!!!! Imagine o seguinte....e você tem TextBox1,TextBox2,TextBox3 e um botão "Resultado". O que fazer para digitar na TextBox1, a Data Inicial e na TextBox2, Data Final, e ao apertar o botão o resultado sair na TextBox3 Private Sub resultado_Click() Dim resultado resultado = DateDiff("d", Me.TextBox1, Me.TextBox2) Me.TextBox3.Text = CStr(resultado) End Sub

Boa noite!!! Olha só, vá à sua Plan "Histórico" e selecione da célula "AM4" até "AM46" então dê um nome "Setembro2011"..... (Ctrl+ F3=Gerenciador de nomes). Depois faça o mesmos com a (s) outras tabelas..lembrando que a formula à ser feita vai o mês e ano concatenados (Exemplo:outubro2011) Agora na Plan: "Análise MOV" Em Análise 1 na célula "J38", digite a formula..PROCV(D38;INDIRETO($J$37&$K$37);3;0). Obs: Cuidado com as células mescladas (caso necessário terá que desfazer a mesclagem) Att...

Boa dia!!! Poso te ajudar mas, seria melhor postar sua planilha modelo em site gratuito..como 4Shered ou spacesand. Preciso que na planilha modelo tenha o máximo de de talhes, se for possível simule o resultado (seu objetivo), que farei o restante. At..

Boa noite!!! Como no caso do neuson..veja se isso te atende. Private Sub TextBox1_Change() If Me.TextBox1 = 1 Then 'Altera a cor do fundo para Azul TextBox1.BackColor = RGB(0, 0, 255) Else 'Altera a cor do fundo para Vermelha TextBox1.BackColor = RGB(255, 0, 0) End If End Sub

Boa noite!! Fiz um teste em TxtBox, no seu caso é só alterar para a ComBox..... Quando a condição é só alterar de acordo com a sua.... Private Sub TextBox1_Change() If Me.TextBox1 = 1 Then ' Altera a cor do fundo para Azul TextBox1.BackColor = RGB(0, 0, 255) Else ' Altera a cor do fundo para Vermelho TextBox1.BackColor = RGB(255, 0, 0) End If End Sub Abrç...

Boa tarde!!! Creio que fazendo uma adaptação esse código lhe será últil. Option Explicit Sub exa() Dim REX As Object '<-- RegExp Dim lLRow As Long Dim i As Long '// Set a reference to Regular Expressions and a simple pattern simply requiring it // '// to find the word with word boundaries leading/following. If you find you need // '// to include stuff like "totals", "totalling", etc - the pattern would need changed// Set REX = CreateObject("VBScript.RegExp") With REX .Pattern = "\btotal\b" .Global = False .IgnoreCase = True End With With Sheet1 '<-- codename or sheet/tab name -->ThisWorkbook.Worksheets ("Sheet1") lLRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = lLRow To 1 Step -1 If REX.Test(.Cells(i, 1).Value) Then .Cells(i, 1).Characters(Start:=REX.Execute(.Cells(i, 1).Value)(0).FirstIndex + 1, _ Length:=5) _ .Font.FontStyle = "Bold" .Rows(i + 1).Insert Shift:=xlDown End If Next End With End Sub Att..

Bom dia! Sergio, poderia postar seu arquivo...? Para postar um anexo é só utilizar um site como 4shared (http://www.4shared.com) ou Sendspace(http://www.sendspace.com) e depois colar o link aqui. At..

Boa noite!! a soma ou subtração só te serve se for via VBA? Poderia Postar sue arquivo? Para postar um anexo é só utilizar um site como 4shared (http://www.4shared.com) ou Sendspace(http://www.sendspace.com) e depois colar o link aqui. Att..

Boa noite!! Por mim não haverá problemas em te ajuda, apesar de saber pouco de VBA Excel, se eu poder o farei. Mas, você tem que tentar entender sua programação, neste caso você desenvolveu uma condição na CheckBox, capaz de se [Prazo Urgente, for verdadeiro então, o Prazo Final será habilitado, caso contrario não será habilitado]. Vou te mandar meu MSN, e dois das 19:00 chego do trabalho. AQUINOCHESS@HOTMAIL.COM Att..

Boa noite!! Por mim não haverá problemas em te ajuda, apesar de saber pouco de VBA Excel, se eu poder o farei. Mas, você tem que tentar entender sua programação, neste caso você desenvolveu uma condição na CheckBox, capaz de se [Prazo Urgente, for verdadeiro então, o Prazo Final será habilitado, caso contrario não será habilitado]. Vou te mandar meu MSN, e dois das 19:00 chego do trabalho. AQUINOCHESS@HOTMAIL.COM Att..