Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VARIAVEL NO VBA
 
Notifications
Clear all

VARIAVEL NO VBA

 
2024 - VBA & Macros
Post Recente por Syrax 8 anos atrás
4 Posts
4 Usuários
0 Reactions
809 Visualizações
RSS
 Mari
(@mari)
Posts: 1
New Member
Topic starter
 

Estou tentando nomear uma variavel com cells ao inves do range mas não da certo...alguém pode me ajudar?

Sub TemposPadrões_R2R()

Dim Meters As String
Dim ID As String

l = 3

ID = Cells(l, 6).Value
Meters = Cells(l, 9).Value

Cells(l, 6).Select
Selection.Copy
Sheets("Database").Select
Cells(1, 12).Select
ActiveSheet.Paste

Range("A1:I1").Select
Range("I1").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$15").AutoFilter Field:=5, Criteria1:="=ID", _
    Operator:=xlOr, Criteria2:="=Apply to All"

End Sub
 
Postado : 01/03/2017 12:22 am
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Preceda o nome ou o codename da planilha dessa forma:
Meters = plan3. Cells(l, 9).Value por exemplo

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 01/03/2017 2:34 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Mari

Bem-vinda ao Planilhado!

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida, pois onde você havia postado, não é permitido postar dúvidas, é exclusivo para a apresentação dos novos usuários do fórum.

Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/03/2017 10:35 am
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Mari veja se isso te ajuda

Sub TemposPadrões_R2R()

Dim Meters As String
Dim ID As String

l = 3

ID = Cells(l, 6).Value
Meters = Cells(l, 9).Value

Cells(l, 6).Select
Selection.Copy
Sheets("Database").Select
Sheets("database").Cells(1, 12).Select
ActiveSheet.Paste

Sheets("database").Range("A1:I1").Select
'Sheets("database").Range("I1").Activate
'Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$15").AutoFilter Field:=5, Criteria1:="=ID", _
    Operator:=xlOr, Criteria2:="=Apply to All"

End Sub

se isso te ajudar, clique no joinha ao lado de "citar"

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 01/03/2017 2:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico