Ir para conteúdo
Fórum Script Brasil

fabiosanches

Membros
  • Total de itens

    193
  • Registro em

  • Última visita

Sobre fabiosanches

  • Data de Nascimento 19/04/1985

Contatos

  • Website URL
    http://
  • ICQ
    0

Perfil

  • Gender
    Male
  • Location
    Cachoeiro de Itapemirim - ES

fabiosanches's Achievements

0

Reputação

  1. Boa tarde, Preciso consolidar 3 abas em uma só, elas tem uma série de dados mais tenho 5 colunas que se repetem nas 3 abas e gostaria de consolidar essas colunas em uma outra aba para depois fazer uma tabela dinamica dessa aba consolidada, como faço isso???
  2. up.. preciso de um socorro, sou extremamente iniciante no vba e preciso liberar essa planilha para um clientes...
  3. Boa Tarde, estou apanhando já a quase uma semana para colocar uma determinada aba do excel para abrir sempre nela, uma chamada login, tentei vários códigos inclusive esse abaixo Private Sub Workbook_Open() Set wsinicio = Worksheets("login") On Error Resume Next Dim sht As Worksheet wsinicio.Visible = xlSheetVisible wsinicio.Select wsinicio.Activate For Each sht In ThisWorkbook.Worksheets If sht.Name <> wsinicio.Name Then sht.Visible = xlVeryHidden End If Next UserForm1.Show End Subsó que o excel nunca abre, ele tem esse userform1 que é o login e senha que vou postar abaixo, sempre ele abre com a ultima aba que eu trabalhei, tentei no workbook.beforeclose colocar a mesma função para voltar a reabilitar a aba que eu quero e nadaaaa.. segue abaixo o userform e medida que eu fosse clicando nos "submenus" eu faria a mesma coisa, mostraria somente ele e ocultaria o resto. Private Sub CommandButton1_Click() If txtLogin = "" Then MsgBox "Digite o nome do usuário !" Exit Sub txtLogin.SetFocus Else If txtSenha = "" Then MsgBox "Digite a senha do usuário !" Exit Sub txtSenha.SetFocus End If End If col = 1 lin = 2 While (Plan1.Cells(lin, col) <> txtLogin) lin = lin + 1 If lin > 50 Then MsgBox "Usuário não esta cadastrado" Exit Sub End If Wend Dim senha As String 'lin = 2 col = 2 senha = Plan1.Cells(lin, col).Value Dim tela As String 'lin = 2 col = 3 tela = Plan1.Cells(lin, col).Value If txtSenha <> senha Then MsgBox "A senha não confere !!" Exit Sub Else MsgBox "Seja Bem Vindo " & txtLogin lin = 2 col = 1 While (Plan2.Cells(lin, col) <> "") lin = lin + 1 Wend Plan2.Cells(lin, 1) = txtLogin.Value Plan2.Cells(lin, 2) = txtSenha.Value Plan2.Cells(lin, 3) = Date MsgBox tela.Name Set wslogin = Worksheets(tela) On Error Resume Next Dim sht As Worksheet wslogin.Visible = xlSheetVisible wslogin.Select wslogin.Activate For Each sht In ThisWorkbook.Worksheets If sht.Name <> wsinicio.Name Then sht.Visible = xlVeryHidden End If Next ActiveWindow.DisplayWorkbookTabs = True Hide End If ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False End Sub
  4. fabiosanches

    PHP+IIS+ORACLE

    alguém já conseguiu fazer isso funcionar.. estou ficando doido aki já.. tenho um comando aki q parece q eu consigo conectar no banco.. porém não esta funcionando nem um select sequer.. preciso disso urgente demais da conta...
  5. estou tentando fazer um codigo dessa forma <span class="textfieldRequiredMsg"><script> alert("campo necessário") </script></span></span></td> porém ele sempre aparece o alert na hora que carrega a pagina.. existe alguma forma de fazer isso acontecer??
  6. não sei se é isso q eu quero.. via javascript eu sei como fazer, porém queria ver na ferramenta do dreamweaver mesmo.
  7. não consegui localizar isso não meu camarada.. eu achei aquele spryset mais não sei como usar e nem sei para que serve...
  8. como q eu faço um edit com mascara no dreamweaver, não queria usar javascript na unha pra isso não, quero aprender a usar a ferramenta mesmo.. como faço?
  9. fiz assim.. so uma duvida.. tipo.. eu to chamando ela no onload do form.. porem a function é listada depois disso.. a função q realmente diz o q ele deve fazer.. isso influencia?? porque eu fiz aki e ainda não funcionou... ????
  10. so tirando o onclick não foi não.. onde q eu chamo o evento onload.. ?? bastante leigo nesse caso :( mals..
  11. to com uma duvida q é o seguinte.. tenho o seguinte codigo <td class="borderall2 ponteiro" nowrap onkeypress="java script:if(event.keyCode==13){this.click()}" onclick="java script:ToggleBox('BOXPEDIDO', 1)"> q esconde ou mostra um determinado div baseado no onclick.. so que eu queria tirar ele dessa necessidade.. quero deixar ele sempre mostrando.. como q faço isso??? a function é essa abaixo function ToggleBox(BoxName, On) { var dispTitle, dispBody, dispValue; if (On == 1) { dispTitle = "none"; dispBody = ""; dispValue = 1; } else { dispTitle = ""; dispBody = "none"; dispValue = 0; } switch (BoxName) { case "BOXMSG": document.getElementById("idALERT").style.display = ""; break; case "BOXPEDIDO": document.getElementById("idGROUPTITLE").style.display = dispTitle; document.getElementById("idGROUPBODY").style.display = dispBody; document.forms[0].BOXPEDIDO.value = dispValue; break; case "BOXPRODUTOS": document.getElementById("idGROUPTITLE0").style.display = dispTitle; document.getElementById("idGROUPBODY0").style.display = dispBody; document.forms[0].BOXPRODUTOS.value = dispValue; break; case "BOXSERVICOS": document.getElementById("idGROUPTITLE1").style.display = dispTitle; document.getElementById("idGROUPBODY1").style.display = dispBody; document.forms[0].BOXSERVICOS.value = dispValue; break; } }
  12. esse arquivo .exe é um arquivo cgi.. eu so tenho o exe tem como eu fazer a operação inversa disso? do exe gerer o cgi com o codigo fonte? cara.. tenho uma duvida tipo.. qual arquivo q monta esse formulario dinamico ai na tela??/ porque o form é montado em tempo de execução.. e isso q esta sendo um grande problema aki.. descobrir isso.. :(
×
×
  • Criar Novo...