[Anónimo]

tem como dar nome a uma variavel? pq caso essa variavel mude, É sÓ mudar uma Única vez.
exemplo como É hoje:
sheets(“check list”).select
range(“i1”).select
selection.copy
sheets(“banco de dados”).select
application.goto reference:=”data”
selection.end(xlup).select
activecell.offset(1, 0).range(“a1”).select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false

sheets(“check list”).select
range(“a4”).select
selection.copy
sheets(“banco de dados”).select
application.goto reference:=”area”
selection.end(xlup).select
activecell.offset(1, 0).range(“a1”).select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false

sheets(“check list”).select
range(“c4”).select
selection.copy
sheets(“banco de dados”).select
application.goto reference:=”responsavel”
selection.end(xlup).select
activecell.offset(1, 0).range(“a1”).select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false

sheets(“check list”).select
range(“a4”).select

como eu gostaria que fosse, porem nÃo sei em linguagem correta:
a = check list
b = banco de dados

sheets(“a“).select
range(“i1”).select
selection.copy
sheets(“b“).select
application.goto reference:=”data”
selection.end(xlup).select
activecell.offset(1, 0).range(“a1”).select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false

sheets(“a“).select
range(“a4”).select
selection.copy
sheets(“b“).select
application.goto reference:=”area”
selection.end(xlup).select
activecell.offset(1, 0).range(“a1”).select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false

sheets(“a“).select
range(“c4”).select
selection.copy
sheets(“b“).select
application.goto reference:=”responsavel”
selection.end(xlup).select
activecell.offset(1, 0).range(“a1”).select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false

sheets(“a“).select
range(“a4”).select

entendeu ????
tem algo parecido com isso???

[jorgerod]

talvez:

dim sha as string
dim shb as string

sha= “check list”
shb= “banco de dados”

no código:

sheets(sha).select
sheets(shb).select

penso que será isto que pretendes, será?

diz qq coisa, ok?

fica bem!

[Anónimo]

muito obrigado mais uma vez.

era isso mesmo que eu precisava.

funciono!

abraço!!

[Autor]

Artigos