ftcj

agradeço kuroi. caros colegas vejam o código. COMO FAZER PARA QUE UMA CÉLULA DA PLANILHA FIQUE COM O CRONÔMETRO REGREDINDO ATÉ ZERAR ? FICO GRATO PELAS RESPOSTAS. ATÉ MAIS!!! 25/03/2009 Public dTime As Date Sub cronometro() dTime = Now + TimeValue("00:00:01") Application.OnTime dTime, "Cronometro" Cells(1, 1).Value = Now End Sub

Eu tenho um problema e gostaria muitissimo que vocês resolvessem. Desde já fico grato pela suas ajudas. Tenho um célula de entrada de horas e outra com o relógio do sistema. quando as horas igualarem (ficarem iguais) aparecerá uma menságem. Essa mensagem deve aparecer mesmo que o excel esteja minimizado. COMO FAZER? RESPONDAM CAROS COLEGAS!!!!!

AGRADEÇO SUA AJUDA. ATÉ MAIS.

ESTOU COM UM PROBL. QUERO SABER DE ALGUÉM EXPERT: ONDE POSSO MODIFICAR O CÓD. DE EXPIRAR TEMPO DE PLAN.(NÚMERO DE VEZES QUE PODERÁ ABRIR UMA PLAN.) PARA QUE AMPLIE O NÚMERO DE VEZES QUE O USUÁRIO PODERÁ ACESSAR A PLAN. A PLAN. SÓ PODE SER ABERTA 10 VEZES. EU QUERIA AMPLIAR O N° DE VEZES...EXPLIQUE-ME !!??? EM ESTA PASTA_DE_TRABALHO: Private Sub Workbook_Open() Dim DiasFaltantes DiasFaltantes = CCur(Right(ActiveWorkbook.Names("tempo").Value, Len(ActiveWorkbook.Names("tempo").Value) - 1)) DiasFaltantes = DiasFaltantes - 1 ActiveWorkbook.Names.Add Name:="tempo", RefersToR1C1:="=" & DiasFaltantes ThisWorkbook.Save FrmSobre.Show End Sub DENOMINAR O USERFORM: FRMSOBRE. E INSIRA: Private Sub UserForm_Initialize() DiasFaltantes = CCur(Right(ActiveWorkbook.Names("tempo").Value, Len(ActiveWorkbook.Names("tempo").Value) - 1)) Me.Labeldias = Format(DiasFaltantes, "00") Me.Label2.Width = 175 - (DiasFaltantes * 17.5) If DiasFaltantes < 0 Then Me.Hide MsgBox "Este planilha expirou o prazo de utilização" & Chr(10) & "" & Chr(10) & "" ThisWorkbook.Close End If End Sub NO USERFORM DENOMINE : LABEL2 E LBELDIAS. FAÇA SEUS AJUSTES. OBRIGADOOO AOS COLEGAS COLABORADORES!!!!!!

NÃO ESTÁ DANDO CERTO,... SE TIVER UM TEMPINHO EXTRA RESPONDA! FIZ ASSIM: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Handle_Error Columns("C:d").Select Selection.Interior.ColorIndex = xlNone Range("C1").Select For l = 1 To 100 Step 1 'Só está percorrendo as células da coluna C e verificando se o valor é negativo If Sheets("Cotacao").Cells(l, "C") < 0 Then For i = 1 To 10 Step 1 'Indica quantas vezes piscará cada célula If Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 Then Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = xlNone 'Tira a cor Else Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 'Põe a cor End If 'Sleep (10) 'Velocidade (quanto maior o número mais lento) Next i End If Next l 'Exit Sub Handle_Error: Debug.Print "Número: " & Err.Number & vbCrLf & "Descrição: " & Err.Description & vbCrLf & "Linha: " & Erl & vbCrLf End Sub

NÃO ESTÁ DANDO CERTO! TÁ HAVENDO ERRO DE COMPILAÇÃO. SOU NOVO EM VBA! ESTÁ "DIZENDO" SUB OU FUNCTION NÃO DEFINIDA.

O QUE DEVE SER IMPLEMENTADO NESSE CODIGO PARA QUE UM INTERVALO DE CÉLULAS PISQUE? DESDE JÁ AGRADEÇO SUAS RESPOSTAS. OBRIGADOOOOO! :blush: Public Sub Piscar_Tela() On Error GoTo Handle_Error Columns("C:C").Select Selection.Interior.ColorIndex = xlNone Range("C1").Select For l = 1 To 100 Step 1 'Só está percorrendo as células da coluna C e verificando se o valor é negativo If Sheets("Cotacao").Cells(l, "C") < 0 Then For i = 1 To 10 Step 1 'Indica quantas vezes piscará cada célula If Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 Then Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = xlNone 'Tira a cor Else Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 'Põe a cor End If Sleep (10) 'Velocidade (quanto maior o número mais lento) Next i End If Next l Exit Sub Handle_Error: Debug.Print "Número: " & Err.Number & vbCrLf & "Descrição: " & Err.Description & vbCrLf & "Linha: " & Erl & vbCrLf End Sub AGRADEÇOOOOOOOOOO !!!!

GOSTARIA QUE FOSSE RESOLVIDO O SEGUINTE. EU ENCONTREI UM CODE QUE SOMA VALORES EM UMA CÉLULA, MAS TEM UM PROBLEMA: A SOMA FICA GENERALIZADA PARA QUALQUER CÉLULA. EU QUERIA QUE APENAS UMA CÉLULA ESPECÍFICA TIVESSE ESSA FUNÇÃO. ESTOU PLANEJANDO UMA PLANILHA DE CÁLCULOS AGRÍCOLAS. SERÁ DE MUITA UTILIDADE SE ALGUÉM RESPONDER. FICO MUITO GRATO PELA AJUDA. VEJA O CÓDIGO: PRIVATE SUB WORKSHEET_CHANGE(... STATIC VALORANTERIOR AS INTEGER IF VALORANTERIO=0 THEN VALORANTERIOR=TARGET.VALUE ELSE NOVOVALOR=TARGET.VALUE + VALORANTERIOR VALORANTERIOR=0 TARGET.VALUE=NOVOVALOR END IF END SUB ANTECIPADAMENTE DIGO OBRIGADOOOOOOO!!!!!!

ESTOU ACESSANDO EM UM CYBER QUERO SABER SE ALGUÉM CAPACITADO PODERIA ME AJUDAR A RESOLVER O SEGUINTE PROBLEMA: TENHO VÁRIOS CAMPOS DE TEXTO E UM CAMPO ONDE APARECERÁ A RESPOSTA APÓS CLICAR NO BUTTON. EU QUERIA ENCARICIDAMENTE QUE VOCÊ (CARO INTERNALTA) ESCREVESSE O CÓDIGO COM A CONDICIONAL "IF" "ELSE", ISTO É, UMA MENSAGEM DE ALERT PARA QUANDO O VALOR NO CAMPO TEXT RESULTAR EM X SEJA ACIONADO O ALERT. FICO MUITO GRATO PELA SUA ATENÇÃO E COLABORAÇÃO!!!! (ISSO PARA A PESSOA QUE RESPONDER). obrigadoOOOOOOOOOO!