zinhovba

Boa noite!! Na UseForm-"CAdastro de Solcitação", você tem uma CheckBox "Prazo final?". há uma rotina ...onde a TextBox_prazo_fin, é desabilitada caso não esteja marcado. Se usei a Txt certa então tem que digitar a data na txt prazo fatal> clicar na Checkbox> e apertar a tecla ESPAÇO. Bem mais em baixo segue seu arquivo testado. Private Sub CheckBox_prazo_urg_Click() If CheckBox_prazo_urg.Value = True Then TextBox_prazo_fin.Enabled = True Else TextBox_prazo_fin.Enabled = False End If End Sub Segue... http://www.4shared.com/document/-Di_GfPn/C...spondentes.html

Boa noite!! Na UseForm-"CAdastro de Solcitação", você tem uma CheckBox "Prazo final?". há uma rotina ...onde a TextBox_prazo_fin, é desabilitada caso não esteja marcado. Se usei a Txt certa então tem que digitar a data na txt prazo fatal> clicar na Checkbox> e apertar a tecla ESPAÇO. Bem mais em baixo segue seu arquivo testado. Private Sub CheckBox_prazo_urg_Click() If CheckBox_prazo_urg.Value = True Then TextBox_prazo_fin.Enabled = True Else TextBox_prazo_fin.Enabled = False End If End Sub Segue... http://www.4shared.com/document/-Di_GfPn/C...spondentes.html

Boa noite!! A rotina que te passei seria bom que estivesse nas primeiras linhas. Quando for digitar Prazo Fatal de "Espaço"......a final você está usando "Private Sub TextBox_prazo_fatal_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)" Obs: Você tem em seu formulário um botão de opção de acordo com seu código o mesmo deve está flegado. Att..

Boa noite!! A rotina que te passei seria bom que estivesse nas primeiras linhas. Quando for digitar Prazo Fatal de "Espaço"......a final você está usando "Private Sub TextBox_prazo_fatal_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)" Obs: Você tem em seu formulário um botão de opção de acordo com seu código o mesmo deve está flegado. Att..

Boa noite!! ´ Fiz um teste com o anexo de me passou e deu certo... Acrescentei isso na sua TextBox_prazo_fin... If Me.TextBox_prazo_fatal <> "" Then Me.TextBox_prazo_fin = CDate(Me.TextBox_prazo_fatal.Value) - 3 Me.TextBox_prazo_fin = Format(Me.TextBox_prazo_fin, "mm/dd/yyyy") Else Me.TextBox_prazo_fatal = "" End If At....

Bom Noite!! Tente assim... Me.Textbox2 =CDate(Me.Textbox1.value) -3 Att..

Boa noite!! Segue como solicitado..Baixe o arquivo e creio que seu problema estará solucionado!!!! O que fiz foi como segue abaixo.................... Private Sub ComboBox_cod_Change() On Error Resume Next TextBox_correspondente = Application.WorksheetFunction.VLookup(CDbl(ComboBox_cod), Plan1.Range("A1:E1000"), 2, 0) TextBox_comarca = Application.WorksheetFunction.VLookup(CDbl(ComboBox_cod), Plan1.Range("A1:E1000"), 5, 0) End Sub http://www.4shared.com/document/oeAhacGv/C...spondentes.html Att..

Boa noite!! Sugiro que poste um exemplo em site gratuito (4Shered), e nos mande o link, para te ajudar. Se entendi bem terá que usar a função PROCV via VBA. Segue exemplo fictício. [b2].Value = Application.WorksheetFunction.VLookup([A2].Value, [J2:K11], 2, 0) Att..

Boa noitee!! Veja se te atende.. http://www.impacta.com.br/forum/forum_posts.asp?TID=22 Att..

Boa noite!! Poderia disponibilizar seu exemplo em um site gratuito....4Shered, ..........por exemplo? Att..

Boa noite!! Veja se da para tirar proveito dessa rotina... Sub ValorMinimo() Dim Minimo Dim i As Long Minimo = "A" For i = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(i, "D").Value <> 0 And Cells(i, "D").Value <> "" Then If Minimo = "A" Then Minimo = Cells(i, "D").Value Else If Cells(i, "D").Value < Minimo Then Minimo = Cells(i, "D").Value End If End If End If Next MsgBox "Mínimo: " & Minimo End Sub Att..

Boa noite!! Não sei se vai te ajudar..mas esse legal..... Option Explicit Sub Unique_Numbers() Dim x As Long, y As Long, z As Long, tempnum As Long Dim flag As Boolean Dim i As Integer, nCol As Integer, nRow As Long Dim foundCell As Range nRow = 4 nCol = 3 Application.ScreenUpdating = False x = Application.InputBox("Enter starting Random Number" _ , "Random Number Generation", 1, , , , , 1) y = Application.InputBox("Enter ending Random Number" _ , "Random Number Generation", 1000, , , , , 1) z = Application.InputBox("How many random numbers would" _ & "you like to generate (<15000)?" _ , "Random Number Generation", 100, , , , , 1) If z = 0 Then Exit Sub If z > 15000 Then z = 15000 If z > y - x + 1 Then MsgBox "You specified more numbers to return than " _ & "are possible in the range!" Exit Sub End If Randomize Cells(3, 3) = Int((y - x + 1) * Rnd + x) For i = 2 To z Do flag = False Randomize tempnum = Int((y - x + 1) * Rnd + x) Set foundCell = Range("a1", _ Range("a1").End(xlDown).Address).Find(tempnum) If Not (foundCell Is Nothing) Then flag = True End If Loop Until Not flag If nRow > 12 Then nRow = 3 nCol = nCol + 1 End If Cells(nRow, nCol) = tempnum nRow = nRow + 1 Next End Sub Att..

Disponibilize o código ou um arquivo para que o pessoal possa te ajudar...

Poste uma planilha no 4Shered..e nos mande o link....

Já verificou seu o nome da planilha foi alterado?....ou qualquer parte do diretorio?qual é o código por inteiro?

Tenho algo que talvez te ajude mas terá que tentar uma adaptação..... Public Sub StopTimer() ' Ignora os error que possam existir On Error Resume Next ' No tempo (tempo actual + 1 segundo) executa o procedimento "RunTimer" ' e para através do parâmetro Schedule = False, que indica ' que já não volta a executar novamente Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="RunTimer", Schedule:=False End Sub ----------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) Call StopTimer End Sub

Ele está dizendo que você criou um recurso de VBA e para salva-lo tem uqe optar por arquivo habilitado para macro

Isso deve te ajudar..faça uma adaptação. 'Atualiza Automatico.. Option Explicit 'Pasta de Trabalho Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:00:05"), "ordenar" End Sub

Após abrir o Excel...alt+F11 para abrir o VBA, depois abra um módulo e insira o código lá..o codigo citado seria asociado com sua necessidade.

Boa noite! As pastas estão no mesmo diretorio? Imagine que na sua Pasta1 numa celula escolhida por você esteja escrito"Workbooks.open sheets("plan1").Range("A1").Value Caso contrario... Sub proTeste() Dim varNomeArquivo=Sheets("plan1").Range("A1").Value Workbooks.Open varFileName End Sub Att

Tente se basea nesta planilha..e dpois vejamos como podemos implementar o restante.. http://www.4shared.com/document/8_wFTAfK/M...SPORTEII_2.html Att..

tente usar a condição "AND"...

Que bom que te ajudou qualquer dúvida peça ajuda novamente!!

Alguém tem uma ideia?

Boa noite!! Faça uma adaptação à sua necessidade. Option Explicit 'Pasta de Trabalho Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:00:05"), "ordenar" End Sub Exemplo: Option Explicit Sub ordenar() MsgBox "Atualizado" Range("A1:B7").Select ActiveWorkbook.Worksheets("Atualizar").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Atualizar").Sort.SortFields.Add Key:=Range("B2:B7"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Atualizar").Sort .SetRange Range("A1:B7") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("C1").Select End Sub Abraços..