Jump to content
Fórum Script Brasil
  • 0

Minha macro está dando erro e eu não sei identificar o motivo


Question

Oi!! Preciso de ajuda... Fiz uma macro para, dependendo do valor colocado dentro de determinada célula, preencher a minha tabela em função desse valor. Mas o IF não está rodando e gostaria de saber se alguém consegue identificar o problema e me ajudar... O código segue abaixo e o erro que está dando, em anexo. Desde já obrigada!!

Sub beneficios()


'planos iguais dentro da mesma categoria (assistencia medica, automóvel, etc..) estão agrupados

Dim MACRO       As Worksheet
Dim MATRIZ      As Worksheet
'Dim AM1         As String
'Dim AM2         As String
'Dim AM3         As String
'Dim AM4         As String
'Dim AM5         As String
'Dim AM6         As String
'Dim AM7         As String
'Dim AM8         As String
'Dim CEA1        As String
'Dim CEA2        As String
'Dim AO1         As String
'Dim AO2         As String
'Dim SV          As String
'Dim AF          As String
'Dim VR1         As String
'Dim VR2         As String
'Dim VR3         As String
'Dim R           As String
'Dim VA1         As String
'Dim VA2         As String
'Dim VA3         As String
'Dim AUT1        As String
'Dim AUT2        As String
'Dim EST1        As String
'Dim EST2        As String
'Dim EST3        As String
'Dim EST4        As String
'Dim EST5        As String
'Dim CR1         As String
'Dim CR2         As String
'Dim GP          As String
'Dim VT1         As String
'Dim VT2         As String
'Dim TF          As String
'Dim KB          As String
'Dim KC          As String
'Dim OB1         As String
'Dim OB2         As String


Set MACRO = Sheets("Macro")
Set MATRIZ = Sheets("Matriz")


'AM1 = Range("b2")
'AM2 = MATRIZ.Range("f2")
'AM3 = MATRIZ.Range("k2")
'AM4 = MATRIZ.Range("n2")
'AM5 = MATRIZ.Range("o2")
'AM6 = MATRIZ.Range("p2")
'AM7 = MATRIZ.Range("r2")
'AM8 = MATRIZ.Range("s2")
'CEA1 = MATRIZ.Range("b3")
'CEA2 = MATRIZ.Range("k3")
'AO1 = MATRIZ.Range("b4")
'AO2 = MATRIZ.Range("s4")
'SV = MATRIZ.Range("b5")
'AF = MATRIZ.Range("b6")
'VR1 = MATRIZ.Range("b7")
'VR2 = MATRIZ.Range("g7")
'VR3 = MATRIZ.Range("k7")
'R = MATRIZ.Range("p8")
'VA1 = MATRIZ.Range("g9")
'VA2 = MATRIZ.Range("p9")
'VA3 = MATRIZ.Range("s9")
'AUT1 = MATRIZ.Range("b10")
'AUT2 = MATRIZ.Range("d10")
'EST1 = MATRIZ.Range("b11")
'EST2 = MATRIZ.Range("f11")
'EST3 = MATRIZ.Range("g11")
'EST4 = MATRIZ.Range("q11")
'EST5 = MATRIZ.Range("t11")
'CR1 = MATRIZ.Range("k12")
'CR2 = MATRIZ.Range("s12")
'GP = MATRIZ.Range("b13")
'VT1 = MATRIZ.Range("j14")
'VT2 = MATRIZ.Range("t14")
'TF = MATRIZ.Range("q15")
'KB = MATRIZ.Range("p16")
'KC = MATRIZ.Range("p17")
'OB1 = MATRIZ.Range("b18")
'OB2 = MATRIZ.Range("c18")


  If Range("2a").Value = "A" Or "B" Or "C" Or "D" Or "E" Or "G" Or "H" Or "I" Then
  
  
    MATRIZ.Select
    Range("b2").Select
    Selection.Copy
    MACRO.Select
    Range("B4").Select
    ActiveSheet.Paste
    Columns("B:B").EntireColumn.AutoFit
  
    
    

    
    
    
    
    
  End if 
  
    


End Sub

 

image.thumb.png.d36aaf5952db3627db1076ee05e29b1a.png

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149150
    • Total Posts
      645417
×
×
  • Create New...