Bom dia.
Estou tentando trabalhar com uma macro para atingir meta em diversas abas.
Há uma macro que eu importei do VBA de um arquivo do excel que eu fiz.
Porém, não está operacional com o LibreOffice.
Abaixo uma prévia do código:
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub MetaGeral()
metaNova = Plan1.Cells(3, 10).Value
Sheets("RESUMO").Select
Range("A1").Select
Sheets("IN-01").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-02").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-03").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-04").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-05").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-06").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-07").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-08").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-09").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-10").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-11").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-12").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-13").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-14").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-15").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("IN-16").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("PN-01").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-02").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-03").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-04").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-05").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-06").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-07").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-08").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-09").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-10").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-11").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-12").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-13").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-14").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-15").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-16").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-17").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-18").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-19").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("PN-20").Select
If Range("D30").Value <> 0 Then
Range("E30").GoalSeek Goal:=metaNova, ChangingCell:=Range("D4")
End If
Sheets("ST-UP").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("PROG").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("SUPERV").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("MO").Select
If Range("C30").Value <> 0 Then
Range("D30").GoalSeek Goal:=metaNova, ChangingCell:=Range("C9")
End If
Sheets("RESUMO").Select
Range("A1").Select
End Sub
São várias abas, essa fórmula é executada em todas elas.
Porém, a minha dúvida é realmente nesta sintaxe…