lucascabs
-
Total de itens
28 -
Registro em
-
Última visita
Posts postados por lucascabs
-
-
obrigado ... esse tópico poderia ate ser apagado! desculpa ae!
Lucas
-
funcionou ... muitissimo obrigado!
-
a planilha é um controle de contas ... ta td beleza ... tudo
funcionando em relação a planilha!
ai vem a parte da macro, ela vai funcionar assim: toda vez que voce
que clicar no botao do proximo ele vai copiar a planilha atual e criar
uma outra igual, porém limpando as informações que não serão
necessárias!
para criar uma nova você tem que estar sempre na última
plan, e cada vez que criar vai pedir pra digitar um nome novo da plan
nova para não haver nomes iguais! ela vai também atualizar fórmulas de
acordo com o necessário!
meu problema é que eu precisava que no campo "G12" (saldo anterior dos
cheques) buscasse na planilha anterior o campo "j74" e o campo "g28"
(saldo anterior caixa) buscasse na planilha anterior o campo "i74"
manualmente é tranquilo, mais imagina que eu va criando e toda hora
tem que ver o saldo anterior manualmente é embaçado, preciso que cada
vez que criar a plan ele sempre busque na última planilha esse saldo
(entendeu??)
PS. a planilha com o nome "básico" ... é so para teste mesmo!
o arquivo é esse: http://www.megaupload.com/?d=F7NJFLC0
PS II - Eu coloquei essa mesma duvida no tópico de VISUAL BASIC (desculpa não prestei atenção), estou postando por aqui, no office, porém se ainda tiver no errado por favor, alguém poderia colocar no lugar certo?!
-
ninguém??
-
a planilha é um controle de contas ... ta td beleza ... tudo
funcionando em relação a planilha!
ai vem a parte da macro, ela vai funcionar assim: toda vez que voce
que clicar no botao do proximo ele vai copiar a planilha atual e criar
uma outra igual, porém limpando as informações que não serão
necessárias!
para criar uma nova você tem que estar sempre na última
plan, e cada vez que criar vai pedir pra digitar um nome novo da plan
nova para não haver nomes iguais! ela vai também atualizar fórmulas de
acordo com o necessário!
meu problema é que eu precisava que no campo "G12" (saldo anterior dos
cheques) buscasse na planilha anterior o campo "j74" e o campo "g28"
(saldo anterior caixa) buscasse na planilha anterior o campo "i74"
manualmente é tranquilo, mais imagina que eu va criando e toda hora
tem que ver o saldo anterior manualmente é embaçado, preciso que cada
vez que criar a plan ele sempre busque na última planilha esse saldo
(entendeu??)
PS. esquece que a planilha com o nome "básico" existe... é so para teste mesmo!
o arquivo é esse: http://www.megaupload.com/?d=F7NJFLC0
-
Boa noite,
fiz uma planilha em excel e criei uma macro que copia a planilha inteira anterior e cria uma nova!
ela atualiza valores em branco e algumas fórmulas!
já existe uma programação feita que funciona perfeitamente ... porém preciso acrescentar mais uma coisa!
eu precisava que o saldo anterior da planilha atualizasse de acordo com a plan criada!
por ex. Na plan 1 (já existente) no item F15 (saldo anterior) o valor seria =Master!K94
quando eu criar uma plan (EX. Plan 2) o item F15 (saldo anterior) o valor seria ='1'!F15
e assim sucessivamente!
entenderam??
eu não entendo nada de vba e precisava disso para concluir uma planilha
só que sem mandar ela fica dificil ... como faço para mandar?
-
FUNCIONOU! muito obrigado!
-
meu resultado final ficou em branco! os campos ainda não aparecem mas acho que é falha da instrução sql SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" ... deve ser não é????
o codigo final da pagina ficou assim:
<% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao,codigo,ultimocodigo,proximocodigo,id,senha,login SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <body> <table> <tr><td colspan="4">Login:<%Response.Write Session("login")%></td></tr> <tr><td colspan="4">Senha:<%Response.Write Session("senha")%></td></tr> </table> </body> -
volto a repetir se pretende entender algo disso esqueça o lixo do dreamweaver como coder... faça na mão...
verifique os campos da tabela... e teste
set CA1=MM_conn_STRING.execute("SELECT * FROM usuarios where codigo = "&id)você já tem um recordet em cima aberto com o limit que fica aberto no final, isso depois de um tempo derruba o site no servidor.
e se você já tem o login,senha e id gravado em uma session para que puxar do banco?
do meu jeito da isso:
[MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
e do seu:
Object required: 'DRIVER={MySQL ODBC 5'
eu ate pensei que faltava esse drive na minha maquina, então coloquei no ar e persistiu o erro!
o servidor é locaweb
você já tem um recordet em cima aberto com o limit que fica aberto no final, isso depois de um tempo derruba o site no servidor.e se você já tem o login,senha e id gravado em uma session para que puxar do banco?
entendi cara! então na realidade eu estava usando o request.query.string para fazer esse relatorio! como não consegui e graças a ajuda do Rafael Spilki parti para esse lance do session!
vou atribuir o session aos campos e posto o resultado
valeu! abraço
-
exatamente em mysql se usa o limit em vez de top
deu certo o que você passou! mas ta retornando erro de mysql!
vou dar uma verificada depois...
o erro:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
/html/cadastro_distancia2/relatorio_distancia.asp, line 32
a linha do erro é essa: " CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" "
o codigo ficou exatamente assim:
<% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao,ultimocodigo,proximocodigo,id,senha,login SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %>brigado a ajuda
-
você tem essa conexão na sua página
<% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %>que se chama conn enquanto fica tentando roda essa página sem ao menos tentar entender o que ta fazendo vai continuar a ter estes erros idiotas... na página você tenta executar um rs usando conexao que não aparece em sua página... o que já deve resolver é:Set objRs = conn.Execute(SQL )
obrigado hein cara ...
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '1 codigo from usuarios ORDER BY codigo desc' at line 1
/html/cadastro_distancia2/relatorio_distancia.asp, line 15
tava qui pensando, acho q o select top não funciona no mysql
tenho que usar isso: " SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1 "???
-
É que objConn foi apenas meu exemplo... Se refere ao objeto de conexão com o bd... que no seu caso é conexao...
substitua essa linha do erro por essa aqui:
Set objRs = conexao.Execute(SQL)
conexao é o seu objeto setado, conforme esse trecho do seu codigi:Call abreConexao Set rsInsert = conexao.Execute(strInsert)
Sacou?
[]'s
ahh entendi, obrigado!
então a variavel conexao foi declarada em outra pagina então eu declarei de novo!
ficou assim:
<%
Dim MM_conn_STRING
MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;")
%>
<%
dim conn
set conn = SERVER.CreateObject("ADODB.Connection")
conn.Open MM_conn_STRING
%>
<%
dim SQL, objRs, conexao
SQL = "Select top 1 campo_codigo from sua_tabela ORDER BY codigo desc"
Set objRs = conexao.Execute(SQL )
ultimocodigo = objRs ("campo_codigo")
proximocodigo = ultimocodigo + 1
id = session("proximocodigo")
senha = session("senha")
login = session("login")
%>
<%
Dim CA1
Set CA1 = Server.CreateObject("ADODB.Recordset")
CA1.ActiveConnection = MM_conn_STRING
CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&""
CA1.Open()
%>
<body>
<table>
<tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr>
<tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr>
</table>
</body>
<%
CA1.Close()
Set CA1 = Nothing
%>
<%
conn.Close()
Set conn = Nothing
%>
mas deu o mesmo erro que o anterior!
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/html/cadastro_distancia2/relatorio_distancia.asp, line 15
-
O erro indicou alguma linha? Qual?
desculpa ae cara, não to colocando a linha!
segue de novo com a linha do erro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/html/cadastro_distancia2/relatorio_distancia.asp, line 15
pra te ajudar, precisamente na expressão: " Set objRs = objConn.Execute(SQL) "
tem que colocar assim sera : Set objRs = objConn.Execute("SQL") ???
[edit] tentei aqui fazer isso e não é porque retornou o mesmo erro! [edit]
-
então ficou declarado:
Dim sql, objRs, objconn
eu fiz e deu o erro(kkk) :
Microsoft VBScript runtime error '800a01a8'
Object required: ''
-
Isso aí! Teste e poste os resultados!
DICA: Desista dos códigos prontos do DW... Esses codigos são umas m*****...
[]'s
otimo esse conselho! kkk
cara deu esso erro:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'SQL'
PS. eu não declarei quando disse que: " SQL = "Select top 1 codigo from usuarios ORDER BY codigo desc" " ???
-
tu é o cara!
fica assim então?
<% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% SQL = "Select top 1 codigo from usuarios ORDER BY codigo desc" Set objRs = objConn.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %>aqui não da para testar mas acho q é isso não é???
valeu abraço!
-
Então você fez alguma coisa errada! Posta seu código aí pra vermos como está e tentarmos te ajudar, ok?
[]'s
é tipo assim, vamos dizer que o cadastro so tenha senha e login! a pessoa entra no site, digita os 2 campos e manda o submit, pronto ta criado o usuario no banco de dados (se não tiver repetido o login claro)!
so que minha tabela no banco contem 3 campos: codigo, login, senha!
o campo codigo é um campo com autonumeração, então so de cadastrar, o codigo é colocado automaticamente!
pela ajuda que voce me deu, voce me passou que conforme o usuario cadastra-se ficava no session a senha, como colocar o codigo nesse session???
é que o que você me passou funcionou perfeito cara! mas ai vendo depois não era isso que eu queria! =/
ele mostra o relatorio de acordo com a senha!
mas vamos dizer que um cidadão e se cadastrou, beleza?! mas depois de sei la quanto tempo um outro cidadão cadastre uma senha igual! então o relatório mostra o primeiro cara que se cadastrou! então é mais facil trabalhar com o codigo da tabela para não ter esse problema nunca!
foi esse meu problema quando cadastrei por preguiça dois cara com senha igual! kkkkkk
PS. minha duvida principal é como colocar o campo codigo no session ao invés da senha! sendo que o usuario nunca vai cadastrar na tela de cadastro o campo codigo! ele é gerado automaticamente na minha tabela do banco de dados!
se tem outro jeito mais facil melhor ainda! essa maneira é beleza, mas não sei como o fazer!
se você me ajudar cara vou ficar devendo essa!
obrigado mesmo pela ajuda! so iniciante mas vou ficar bom nisso! xD
Lucas de Almeida
-
Basta criar uma session com alguma informação que possa ser usada no select para buscar os dados cadastrados no banco...
No caso eu usei senha... mas pode ser qualquer coisa e em qualquer tabela!
[]'s
não deu certo!
valeu a ajuda cara!
-
cara deu certo!
mas não era bem isso q eu queria!
é tipo assim!
o que estou fazendo é uma tela de cadastro!
conforme o aluno preencher as informações e clicar no botão cadastrar, vai enviar para um banco de dados meu e retornar para ele uma tela com as informações que ele preencheu para ele poder imprimir!
tendeu??
o que foi passado funcionou beleza, mas ele ta gerando o relatorio de acordo com a senha que ele se cadastrou mas na realidade não é isso!
eu queria que quando o cara cadastra abre uma tela com os dados dele e quando um outro cadastrar apareca no relatorio os dados do outro!
expliquei bem??
PS. o request.querystring eu so usei com a senha so para teste!
-
Apresentou o seguinte erro:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'senha
/html/cadastro_distancia/relatorio_distancia.asp, line 14
-
muito obrigado cara, vou testar agora e te respondo se funcionou ou não!
mas existe uma maneira mais facil de fazer isso???
porque o q eu quero é que quando o cliente após cadastrar, jogue as informações no Banco de dados e retorne uma pagina com os dados que ele acabou de cadastrar! acho que deu para entender não é??
so um comentario, com o codigo q eu havia feito ele cadastrava, mas retornava a página com as informações do 1 codigo! sendo que o cliente que cadastrou, por exemplo, é o 15!
Obrigado pela atenção
Lucas de Almeida
-
oi, boa tarde a todos!
bom to com um problema com Request.QueryString e estou pedindo ajuda ao pessoal do forum!
estou desenvolvendo um site que na qual existe uma pagina de cadastro, que apos informações preenchidas, ela joga no banco de dados, e depois abre um relatório com essas informações!
até a parte do banco de dados está funcionando perfeitamente, mas o relatório não é capaz de funcionar!
se puderem agradeceria e muito a ajuda de todos! xD
(abaixo segue um resumo dos códigos utilizados)
Formulário de Cadastro - "cadastro.asp"
<form name="cadastro" method="post" action="cadastrar.asp" onSubmit="return Verifica(this);"> <table width="970" border="0" cellpadding="3" cellspacing="0" bordercolor="#F4F4F4" bgcolor="#F4F4F4"> <tr> <td align="right" height="20"><font face="arial" size="2">Login:</font></td> <td><input name="txtLogin" type="text" id="txtLogin"> *</td> </tr> <tr> <td align="right" height="20"><font face="arial" size="2">Senha:</font></td> <td><input name="txtSenha" type="password" id="txtSenha" size="12" maxlength="12"> *</td> </tr> </table> </form>Cadastro no Banco de Dados - "cadastrar.asp"<!--#include file="conexao.asp"--> <% Dim conexao Login = Request.form("txtLogin") Senha = Request.form("txtSenha") strInsert = " INSERT into usuarios" strInsert = strInsert & "(login, senha)" strInsert = strInsert + "VALUES ('" + Login + "'," strInsert = strInsert + "'" + Senha + "')" Call abreConexao Set rsInsert = conexao.Execute(strInsert) Call fechaConexao Set rsInsert = Nothing Response.redirect("relatorio.asp") %>Conexão com o Banco de Dados - "conexao.asp"<% Dim string string = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") Sub AbreConexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open string end sub Sub FechaConexao Conexao.Close Set Conexao = Nothing End Sub %>Relatório com as informações cadastradas - "relatorio.asp"<% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% IF REQUEST.QueryString("txtSenha") = " " THEN RESPONSE.Redirect("pg_relatorio.asp?codigo="&REQUEST.QueryString("txtSenha")) END IF %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %>Obrigado pela atenção
Lucas de Almeida
-
Se possível poste o link para o site onde o script está rodando ou o código completo dos arquivos
eu tenho certeza que é muito fácil o que eu quero ... so não sei explicar!
é bem simples ... mas não pode ser feito em flash nem em frame!
segue abaixo os codigos ...
// principal da pagina do site (apaguei o que não é util) <html> <head> <script> try { xmlhttp = new XMLHttpRequest(); } catch(ee) { try{ xmlhttp = new ActiveXObject('Msxml2.XMLHTTP'); } catch(e) { try{ xmlhttp = new ActiveXObject('Microsoft.XMLHTTP'); } catch(E) { xmlhttp = false; } } } function carrega(_idContainer, _endereco){ xmlhttp.open('GET',_endereco,true); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4){ retorno=xmlhttp.responseText; var tag_container = document.getElementById(_idContainer); tag_container.innerHTML=retorno; } } xmlhttp.send(null) } </script> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_swapImgRestore() { //v3.0 var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc; } function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_swapImage() { //v3.0 var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3) if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];} } //--> </script> <title>teste</title></head> <body> <table width="970" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td><table width="200"> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_x.php')" onMouseOver="MM_swapImage('img_x','','img/img_x2.jpg',1);java script:carrega('conteudo', 'site_x.php')"><img src="img/img_x.jpg" name="img_x" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_y.php')" onMouseOver="MM_swapImage('img_y','','img/img_y2.jpg',1);java script:carrega('conteudo', 'site_y.php')"><img src="img/img_y.jpg" name="img_y" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_z.php')" onMouseOver="MM_swapImage('img_z','','img/img_z2.jpg',1);java script:carrega('conteudo', 'site_z.php')"><img src="img/img_z.jpg" name="img_z" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_a.php')" onMouseOver="MM_swapImage('img_a','','img/img_a2.jpg',1);java script:carrega('conteudo', 'site_a.php')"><img src="img/img_a.jpg" name="img_a" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_b.php')" onMouseOver="MM_swapImage('img_b','','img/img_b2.jpg',1);java script:carrega('conteudo', 'site_b.php')"><img src="img/img_b.jpg" name="img_b" width="200" height="25" border="0"></a></td> </tr> </table></td> <td width="770"><div id='conteudo'></div> </table> </body> </html> // site x (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> XXXXX </td> </tr> </table> </body> </html> // site y (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> YYYYY </td> </tr> </table> </body> </html> // site Z (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> ZZZZZ </td> </tr> </table> </body> </html> // site A (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> AAAAA </td> </tr> </table> </body> </html> // site B (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> BBBBB </td> </tr> </table> </body> </html>so lembrando a todos que funcionou perfeitamente!
so não funciona no navegador IE
obrigado a atenção
LUCAS
-
ta, mas da algum erro na pagina? tem aquela exclamação amarela ?
não ... simplesmente o efeito não funciona ((o efeito seria de abrir os conteudos html naquele espaço determinado))
você entendeu a duvida?? quer que te mande arquivos??
abraço
Lucas
(Resolvido) Função VBA - Excel
em Microsoft Office
Postado
***** so uma duvida ...
conforme você disse ... ta buscando a ultima linha preenchida!
mas e se eu alterar a planilha teria como especificar por exemplo, que o saldo anterior é sempre a celula J24 e a outra a E24??