Camila Faleiros

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!!!

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

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 If Loop End Sub