Ir para conteúdo
Fórum Script Brasil

lobismano

Membros
  • Total de itens

    134
  • Registro em

  • Última visita

Tudo que lobismano postou

  1. beleza. <html> <head> <script> function exibelink(){ link.innerHTML = "<a href=http://www.terra.com.br>www.terra.com.br</a>" } </script> </head> <body> <img src="http://scriptbrasil.com.br/forum/membro.gif" onmouseover="exibelink();"></img> <span id="link"></span>
  2. beleza. soma = 0 faça enquanto ( primeiro < segundo ){ se primento modulo 2 = 0 então soma = soma + primeiro fim se }
  3. lobismano

    You Tube

    replace "youtube", "voobys"
  4. É uma boa. Onclick, chama a função e incrementa no banco de dados. Át.
  5. beleza. Dim meuArray as variant meuArray = Array("Valor1","Valor2","Valor3...") Sheets("Infos Referências").range("A:L").AutoFilter Field:=3, Criteria1:=meuArray, Operator:=xlFilterValues At.
  6. Uma alternativa é usar frames. no load do form você definie eles como visible=false. Quando clicar no botão habilita o frame especifico.
  7. Você passou o coockie na query? select ... from ... order by Request.Cookies("sort")
  8. Amigo, Segue um exemplo. <html> <head> <script> function atualiza_texto(elemento) { area.innerHTML = elemento; } </script> </head> <body>Texto: <input type="text" name="texto" onkeyup="atualiza_texto(this.value);"/> <p> <span id="area"></span> </body> </html> At.
  9. Uma alternativa é utilizar cookies. Você armazena a ordenação no cookie e depois testa com if. if Request.Cookies("sort") = "asc" then Response.Cookies("sort")="desc" else Response.Cookies("sort")="asc" end if At.
  10. Amigo, E só deixar em branco onde esta o valor "sort" ou com outro valor <>"sort" Át.
  11. lobismano

    LOOPING INFINITO

    Amiga, Não sei o objetivo e nem o tamanho do seu arquivo mais acho que deste jeito é mais facil. Sub tarifa() Dim valor As String Dim arquivo As String Dim cont As Integer cont = 2 arquivo = "c:\teste.txt" Open arquivo For Append As #1 Do While Cells(cont, 1).Value <> "" If UCase(Left(Cells(cont, 1).Value, 3)) = "TAR" Then valor = Cells(cont, 2).Value * -1 Print #1, valor End If cont = cont + 1 Loop Close #1 End Sub At.
  12. lobismano

    VBA - EXCEL

    Amigo. Coloquei o código para qualquer um dos 2 tipos de botão que você escolha usar. Veja qual você está utilizando, acerte no nome do controle conforme o seu e remova o que você não vai precisar. O código está em 2 etapas: 1 - durante a abertura da planilha 2 - durante a edição da celula propriamente dita. 1 - Durante a abertura da planilha: Private Sub Workbook_Open() With Plan1 If .Range("B5").Value = "" Then .Shapes("Botão 1").ControlFormat.Enabled = False .Shapes("CommandButton1").ControlFormat.Enabled = False End If End With End Sub 2 - E na planilha onde contem a celula que será alterada. Private Sub Worksheet_Change(ByVal Target As Range) With Plan1 If .Range("B5").Value <> "" Then .Shapes("Botão 1").ControlFormat.Enabled = True .Shapes("CommandButton1").ControlFormat.Enabled = True Else .Shapes("Botão 1").ControlFormat.Enabled = False .Shapes("CommandButton1").ControlFormat.Enabled = False End If End With End Sub At.
  13. Amigo, Qual é o evento que deve ser considerado para determinar o fim do valor entrado? Ex.: um enter, clique em outra celula, etc.
  14. Amigo. O jeito que está tentando agora está diferente da pergunta inicial, mas vamos lá. se estiver querendo usar: W.WriteLine("cmd.exe /c C:\sampfp.exe -m && cmd & TextBox1.text") neste caso o textbox tem que estar assim: W.WriteLine("cmd.exe /c C:\sampfp.exe -m && cmd" & TextBox1.text & "") não sei o que o comando " && cmd " faz, por isso pode dar erro. Se quiser, posta o jeito que funciona sem textbox para ver se posso te ajudar At.
  15. Troque: Worksheet_SelectionChange por: Worksheet_Change At.
  16. Mesmo tópico. http://scriptbrasil.com.br/forum/index.php?showtopic=173206 At.
  17. Amigo. Acho que isso pode começar a ajudar. Public cont As Integer Public maiorvalor As Integer Public menorvalor As Integer Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If cont = 0 Then maiorvalor = Target.Value menorvalor = Target.Value Else If Target.Value > maiorvalor Then maiorvalor = Target.Value End If If Target.Value < menorvalor Then menorvalor = Target.Value End If End If Range("D2").Value = menorvalor Range("E2").Value = maiorvalor cont = cont + 1 If cont = 30 Then cont = 0 End If End If End Sub At.
  18. Amigo, Pelo que entendi é só isso que você quer. No evento de clique do botão. if SEUTEXTBOX.text <> "" then start "C:\WINDOWS\system32\cmd.exe" "sampfp" -m & SEUTEXTBOX.text end if At.
  19. Amigo, Pelo que entendi, é mais ou menos isso mesmo. Você deve ter uma planilha contendo: campo para id da empresa campo para id do sistema campo para a chave do sistema campo para a senha do sistema Você pode fazer um loop nas colunas e testar se os valores são o que você quer. Como uma empresa pode ter varios sistemas o correto é você usar combobox ou listbox, assim quando você seleciona uma empresa ela preenche o combo dos sistemas. Quando selecionar o combo de sistemas daí então aparece a senha no textbox relativo ao sistema, At.
  20. Amigo. O que você pode fazer é criar a macro na planilha que você cola os dados. Se não tiver como, tem varias outras maneiras de se fazer isso. Uma delas é se a macro estiver na sheet, quando você copiar a sheet inteira as macros vão juntas. Outra, pra que você cola em outra planilha? Não dá pra fazer na mesma? Vale lembrar que dependendo da versão do excel que você estiver usando tem que tomar cuidado com a extensão da planilha você vai salvar. Nas ultimas versões, planilhas com macro você deve usar .xlsm. At.
  21. Amigo. Há varias maneiras de se fazer isto. Este é só mais um exemplo Troque o Range por Cells. Neste caso a função vai buscar indecentemente onde estiver preenchido sempre a ultima linha preenchida. Function ultimaLinha() ultimaLinha = Cells.SpecialCells(xlCellTypeLastCell).Row End Function Private Sub txtdat_Change() Cells(ultimaLinha(), 3).Value = txtdat End Sub Private Sub txtresp_Change() Cells(ultimaLinha(), 4).Value = txtresp End Sub . . . Espero que ajude. At.
  22. lobismano

    Tela congelada

    Existe um comando que congela a tela mesmo deixando a execução mais rápida. Application.ScreenUpdate = false até
  23. Amigo, você mesmo já deu a resposta. Na lista que servirá de base de dados para o combo, faça uma condição para pegar apenas os validos, daí automaticamente nos combos terão nomes validos. até.
  24. Amigo, Independente do qua a macro faça, para usar a variavel "data" como nome do arquivo basta usar: "Y:\marketing\Gerência\Resultados\Panorama de Campanhas\" & data & ".xlsx"
×
×
  • Criar Novo...