-
Total de itens
3 -
Registro em
-
Última visita
Posts postados por Camila Faleiros
-
-
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 agrupadosDim 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 -
A intenção era criar uma macro para, dependendo do nome colocado na célula, preencher com o respectivo sobrenome. Ela está rodando sem dar erro mas não executa função nenhuma...
Se souberem o erro, por favor, me ajudem a corrigi-lo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim w As Worksheet
Set w = Sheets("Planilha1")
w.Select
w.Range("a1").Select
Do While ActiveCell <> ""If ActiveCell.Value = "camila" Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = faleiros
ActiveCell.Offset(-1, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
If ActiveCell.Value = "marina" Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = alves
ActiveCell.Offset(-1, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
If ActiveCell.Value = "alexandra" Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = pereira
ActiveCell.Offset(-1, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End IfLoop
End Sub
Excel+PowerPoint
em VBA
Postado
Olá! Queria saber se alguém saberia me ajudar com um problema que não consigo achar a solução em lugar nenhum.... Tenho uma coluna no Excel que gostaria de inserir cada célula em determinada caixa de texto de um PowerPoint que já existe para, posteriormente, salva-lo como PDF. Porém não sei como faze-lo.... Agradeceria muito se conseguirem me ajudar!!!