- Este tópico contém 5 respostas, 1 utilizador e foi actualizado pela última vez há 11 anos, 11 meses por Anónimo.
-
AutorArtigos
-
-
8 de Maio de 2012 às 13:00 #1081AnónimoInactivo
olá, preciso criar um código em vba que nomeie intervalos em um arquivo do excel, e adicione linhas em um outro arquivo, também do excel. pensei em criar o código no segundo arquivo, que é o principal, mas como faço para nomear os intervalos (um por planilha) no primeiro, ou seja, abrir o primeiro arquivo pelo código no segundo? É possível?
-
8 de Maio de 2012 às 13:58 #1859AnónimoInactivo
estou com esse código até agora:
sub nomear()
dim ultima_coluna, ultima_linha as integer
for i = 1 to 2
workbooks(“arquivo2.xls”).worksheets(“i”).activate
ultima_coluna = range(“z1”).end(xltoleft).column
ultima_linha = range(“a100000”).end(xlup).row
range(cells(1, 1), cells(ultima_linha, ultima_coluna)).name = “nome1”next
end sub
esse código está no arquivo1.
-
8 de Maio de 2012 às 16:45 #1860AnónimoInactivo
boa tarde erick!
não entendi o que vc precisa.
att.
-
9 de Maio de 2012 às 11:05 #1861AnónimoInactivo
estou com o código em um arquivo e preciso nomear intervalos (um por planilha) em outro arquivo. ele não roda e dá erro na linha: workbooks(“arquivo2.xls”).worksheets(“i”).activate
resumindo, como altero um arquivo do excel com o código em outro arquivo? preciso abrir o arquivo? que comando eu uso? -
9 de Maio de 2012 às 11:50 #1862AnónimoInactivo
vê se ajuda.
‘—————————————————————————————
‘ procedimento : transferencia de dados entre workbook’s
‘ autor : wagner goularte
‘ data : 09-05-2012
‘—————————————————————————————sub enviar_dados()
‘a primeira e última linha é apenas para travar a tela e não mostrar a execução da programação.
application.screenupdating = false
‘dentro do workbook ativo, seleciona e copia a célula.
range(“a1″).select
selection.copy‘abre o workbook desejado e cola a célula copiada em outra escolhida.
‘dizer exatamente qual o caminho e nome completo do workbook.workbooks.open filename:=”c:documentoteste.xlsm”
sheets(“plan1”).select
range(“a1”).select
activesheet.paste
application.cutcopymode = false‘salva o workbook e fecha.
activeworkbook.save
activeworkbook.close false‘volta ao primeiro workbook
windows(“exceler wagner goularte.xlsm”).activate
range(“a1”).selectmsgbox (“dados enviados corretamente!!!”)
application.screenupdating = true
end sub
-
9 de Maio de 2012 às 12:25 #1082AnónimoInactivo
muito obrigado, consegui rodar agora. valeu!
-
-
AutorArtigos
- Tem de iniciar sessão para responder a este tópico.