Ir para conteúdo
Fórum Script Brasil

LGcs

Membros
  • Total de itens

    32
  • Registro em

  • Última visita

Sobre LGcs

LGcs's Achievements

0

Reputação

  1. LGcs

    Inserir grafico em form (erro)

    isso não tem importancia, o q preciso saber é o resto da mensagem do erro e em qual linha do codigo ele acontece. Erro em tempo de execução '1004': Erro de definição de aplicativo ou de definição de objeto Ele não me da o numero da linha q esta dando o erro, e nem deixa em destaque. Agradeço a sua atençao.
  2. LGcs

    Inserir grafico em form (erro)

    Aparece uma msg dizendo: erro de tempo de execução. to mechen do com o VB dentro do excel
  3. Pessoal tudo bom? to querendo inserir aqui um grafico de uma determinada planilha em um form usando o objeto Image. Procurei muito já o q pode ser o erro mas eu não encontro, estranho é que na minha casa funciona aqui no trabalho não. aparece o seguinte erro Erro de tempo de execução. To mechendo com o excel.. alguém pode me ajudar? ai vai o meu codigo valeu Private Sub CommandButton1_Click() 'Transfere para a variável Gráfico o 1º gráfico da planilha 'Exemplo" Set gráfico = Sheets("Consolidação").ChartObjects(1).Chart 'Cria o caminho e nome para salvamento do arquivo GIF ArquivoGIF = ThisWorkbook.Path & "\temp.gif" 'Salva o gráfico como arquivo GIF gráfico.Export Filename:=Arquivogif, FilterName:="GIF" 'Carrega o gráfico salvo para o Controle Image1 do Userform Image1.Picture = LoadPicture(Arquivogif) End Sub
  4. LGcs

    Listar e Copiar

    Eu tentei do jeito q você me disse so q tava dando um erro q não consegui descobrir o que era, ai continuei tentando a minha lógica e deu certinho.. Obrigado pela resposta, se você quizer me dizer o possivel erro agradeço.. Vai ai o meu codigo pra quem se interessar. Plan1.Activate Workbooks("nome do arquivo").Worksheets("planilha").Range("A6:K30").Copy _ Destination:=Worksheets("planilha").Range("A6") lastRowciclo = Cells(Cells.Rows.Count, "A").End(xlUp).Row For x = 6 To lastRowciclo Worksheets("planilha").Range("L6").Copy _ Destination:=Worksheets("planilha").Cells(x, 12) Next
  5. LGcs

    Listar e Copiar

    ' Pessoal tudo bom? Estou iniciando com o VBA e não sei nada, não encontrei aqui no forum 'a minha duvida tb, se alguém puder me ajudar vou ficar muito grato. ' seguinte, eu tenho uma tabela e preciso listar a ultima linha q não estava vazia, 'isso eu já encontrei. agora preciso copiar as linhas de uma determinada coluna, ate que ' chegue na ultima linha vazia q encontrei. vo exemplificar: 'A B C D E F G '1 2 3 5 5 5 '1 2 3 '1 2 3 - esta é a ultima linha 'agora preciso pegar da coluna E ate G e copiar ate que chegue na ultima linha pra ficar assim 'A B C D E F G '1 2 3 5 5 5 '1 2 3 5 5 5 '1 2 3 5 5 5 'A unica coisa q eu fiz ate agora é isso Dim lastRow As Long Dim x As Integer lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row For x = 1 To lastRow Worksheets("plan1").Range("E1:G1").Copy _ Range("E:G").PasteSpecial Next End Sub Mas esta dando errado, alguém pode me ajudar?
  6. LGcs

    Listar tabela e agrupar

    Boa Tarde, tenho uma tabela access e já listo todos os dados dessa tabelam mas gostara de agrupar os respctivos dados de uma determinada matricula. exemplo: Tabela (ACCESS): NOME HORAS Nome1 8 Nome2 6 Nome3 2 Nome1 4 Nome2 6 Nome4 8 Nome1 7 Gostaria que em uma tabela criada em Html aparecese assim: Nome1 HORAS DATA 8 21/09 4 26/09 7 24/09 Nome2 HORA DATA 6 01/08 6 25/09 Nome3: HORA DATA 2 21/09 Nome4: HORA DATA 8 30/09 ___________________________________________- Forma como eu listo a tabela em asp: <!--#include file = "connapropriacao.asp"--> <% matricula =request.form("matricula") call abre_conexao sql= "SELECT * FROM frequencia order by data " set rs = conexao.execute(sql) %> <table border=0 width="100%"> <tr> <td width="8%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>DATA</b></font></td> <td width="8%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>MATR</b></font></td> <td width="7%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>MOV</font></b></td> <td width="8%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>HORA</font></b></td> <td width="5%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>SERVICO</font></b></td> <td width="5%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>DESTINO</font></b></td> <td width="10%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>CONTRATO</font></b></td> <td width="12%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>OS</font></b></td> <td width="30%" bgcolor = #CFCFCF><font face="Verdana" size="2" color=#000066> <b>AUTORIZACAO</font></b></td> <td width="7%" bgcolor = #CFCFCF align= "center"><font face="Verdana" size="2" color=#000066> <b><input type="submit" name="Submit" value="Confirm"></font></b></td> </tr> </table> <%While Not RS.EOF %> <table border=0 width="100%"> <tr onMouseOver="this.bgColor='#B0C4DE';" onMouseOut="this.bgColor='#E8E8E8';" bgcolor = #E8E8E8> <td width="8%"><font face="Verdana" size="2" color=#000066 > <%=rs("DATA")%></b></font></td> <td width="8%"><font face="Verdana" size="2" color=#000066 > <%=rs("MATR")%></b></font></td> <td width="7%" ><font face="Verdana" size="2" color=#000066 > <%=rs("MOV")%></b></font></td> <td width="8%" ><font face="Verdana" size="2" color=#000066 > <%=rs("HORA")%></b></font></td> <td width="5%" ><font face="Verdana" size="2" color=#000066 > <%=rs("SERVICO")%></b></font></td> <td width="5%" ><font face="Verdana" size="2" color=#000066 > <%=rs("DESTINO")%></b></font></td> <td width="10%" ><font face="Verdana" size="2" color=#000066 > <%=rs("CONTRATO")%></b></font></td> <td width="12%" ><font face="Verdana" size="2" color=#000066 > <%=rs("OS")%></b></font></td> <td width="30%" ><font face="Verdana" size="2" color=#000066 > <%=rs("AUTORIZACAO")%></b></font></td> <td width="7%" align= "center"><font face="Verdana" size="2" color=#000066 > <input type="checkbox" name="checkbox" value="<%=RS(0)%>"></b></font></td> </tr> <% rs.movenext Wend %> </table> Espero que tenham entedido. Aguardo respostas, Obrigado.
  7. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    DEU SUPER CERTO CARA, MUITO OBRIGADO.. FIZ AS ADAPTAÇOES AQUI E já TA RODANDO beleza.. Depois eu vo querer criar mais um combobox, no caso serão dois filtros, mas mais pra frente eu procuro saber como q faz. valeu
  8. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    Cara vo testar aqui e do resposta , se não for hoje segunda eu falo.. brigadao
  9. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    então vai funcinar assim Combo 1------ Categorias Combo 2 ----- Mostra todos os nomes referentes aquela categoria selecionada no Combo 1. é a mesma coisa do combo de ESTADO E CIDADE. você seleciona o estado e mostra as cidades daquele estado.. Programando em ASP.
  10. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    <select name="disciplina" onChange="Mudar();"> <option>Disciplina</option> <option></option> <option value="GC">Gerenciamento <option value="TU">Tubulação <option value="EL">Elétrica <option value="ME">Mecânica <option value="EM">Estrutura-Metálica <option value="CI">Civil <option value="AR">Arquitetura <option value="IN">Instrumentação <option value="EC">Estrutura de Concreto </select> <% DISCIPLINA=request.form("DISCIPLINA") call abre_conexao sql= "SELECT * FROM matricula where disciplina='" & disciplina & "' order by nome" set rs_max = conexao.execute(sql) %> <select name="matricula" id="select" size="1" onclick="recebe()"> <option>Selecionar Matricula </option> <option></option> <% do while not Rs_max.eof %> <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> <% rs_max.movenext loop %> </select>&nbsp;&nbsp; </form> Eu to tentando desse jeito ai, por explo quando eu selecionar um diciplina queria q o select * from matricula WHERE .... recebece o nome do campo q selecionei, mas q não precise de atualizar a pagina toda.. Deu pra entender +-? Como eu faço isso?
  11. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    Pessoal desculpa a minha ignorancia, mas eu não to conseguindo fazer, tentei fazer so q a unica coisa q ele faz é pegar a mesma coisa q esta escrito no primeiro comobo :( Me de uma luz!
  12. LGcs

    (Resolvido) COMBOBOX DEPENDENTE

    Ou brigadão pela atenção.. Eu entendi a ideia, mas se não for pedir muito sera q teria algum codigo pronto, ou alguma ideia +- de como eu possa fazer isso de mandar o id. Eu pensei tb de colocar dentro do <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> uma condiçao do tipo SELECT * FROM apropriacao where.... Não sei se tem como e muito menos se é uma opçao valeu
  13. Olaa.. Seguinte gente, eu to procurando aqui no forum mas não to axando o que eu quero, as vezes pode ate ter repetido mas gostaria q vocês me ajudasem nessa ai.. Seguinte, eu tenho uma tabela com os campos AREA - NOME. beleza.. Eu quero criar dois combobox o primeiro eu vo selecionar a area, e o segundo vai me listar todos os nomes que fazem parte daquela area, parece bem simples né, mas não to sabendo, eu vo colocar aqui o q eu já tenho do meu codigo... CODE <table border="0" width="55%" align=center><br> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Disciplina:</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="tipo" onchange="Mudar();"> <option value=""> <option value="GC">Gerenciamento <option value="TU">Tubulação <option value="EL">Elétrica <option value="ME">Mecânica <option value="EM">Estrutura-Metálica <option value="CI">Civil <option value="AR">Arquitetura <option value="IN">Instrumentação <option value="EC">Estrutura de Concreto </select>&nbsp;&nbsp; <tr> <td bgcolor=#ffffff colspan="2"><font color="ffffff">&nbsp;</td></font> </tr> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Pesquisa de Registro por número de Matricula</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="matricula" id="select" size="1" onclick="recebe()"> <option>Selecionar Matricula </option> <option></option> <% do while not Rs_max.eof %> <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> <% rs_max.movenext loop %> </select>&nbsp;&nbsp; </form> Tipo eu já consigo puxar os dados da tabela, agora eu não sei fazer combo dependente. valeu pela atençao de todos OBS: EU PROCUREI NO FORUM E ENCONTREI alguém COM A MESMA DUVIDA OU PARECIDA, MAS DEREM A SOLUÇÃO EM AJAX, EU GOSTARIA DA SOLUÇÃO EM ASP MESMO.
  14. Olaa.. Seguinte gente, eu to procurando aqui no forum mas não to axando o que eu quero, as vezes pode ate ter repetido mas gostaria q vocês me ajudasem nessa ai.. Seguinte, eu tenho uma tabela com os campos AREA - NOME. beleza.. Eu quero criar dois combobox o primeiro eu vo selecionar a area, e o segundo vai me listar todos os nomes que fazem parte daquela area, parece bem simples né, mas não to sabendo, eu vo colocar aqui o q eu já tenho do meu codigo... <table border="0" width="55%" align=center><br> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Disciplina:</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="tipo" onchange="Mudar();"> <option value=""> <option value="GC">Gerenciamento <option value="TU">Tubulação <option value="EL">Elétrica <option value="ME">Mecânica <option value="EM">Estrutura-Metálica <option value="CI">Civil <option value="AR">Arquitetura <option value="IN">Instrumentação <option value="EC">Estrutura de Concreto </select>&nbsp;&nbsp; <tr> <td bgcolor=#ffffff colspan="2"><font color="ffffff">&nbsp;</td></font> </tr> <tr> <td bgcolor=#EE3B3B colspan="2"><font color="ffffff">. Pesquisa de Registro por número de Matricula</td></font> </tr> <td bgcolor=#D3D3D3 colspan="2"><select name="matricula" id="select" size="1" onclick="recebe()"> <option>Selecionar Matricula </option> <option></option> <% do while not Rs_max.eof %> <option value=<% = rs_max("matricula") %>><% = rs_max("MATRICULA") %> - <% = rs_max("NOME") %></option> <% rs_max.movenext loop %> </select>&nbsp;&nbsp; </form> Tipo eu já consigo puxar os dados da tabela, agora eu não sei fazer combo dependente. valeu pela atençao de todos
  15. LGcs

    CURSOR

    A é isos mesmo, quando agente aperta tab mesmo, eu não soube explicar, desculpa.. Mas então é so substituir la naquilo q você falo por onfocus né beleza valeu
×
×
  • Criar Novo...