Notifications
Clear all

VARIAVEL NO VBA

4 Posts
4 Usuários
0 Reactions
806 Visualizações
 Mari
(@mari)
Posts: 0
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
(@wzxnet7)
Posts: 0
New Member
 

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

 
Postado : 01/03/2017 2:34 am
(@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

 
Postado : 01/03/2017 10:35 am
(@syrax)
Posts: 0
New 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"

 
Postado : 01/03/2017 2:35 pm