Ir para conteúdo
Fórum Script Brasil

lobismano

Membros
  • Total de itens

    134
  • Registro em

  • Última visita

Sobre lobismano

lobismano's Achievements

0

Reputação

  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.
×
×
  • Criar Novo...