fallsxr
Welcome toOzgrid. Please take a few minutes to read the Forum Rules to learn how to use the forum correctly, I have added code tags to your post this time.
I'll read and be more careful next time, thanks roy
Posts by fallsxr
-
-
Your formula string needs to be in English in the code:
CodeRange("B2").Formula = "=COUNTIF(B4:B" & UltimoAssociado & ",""P"") / (COUNTIF(B4:B" & UltimoAssociado & ",""P"") + (COUNTIF(B4:B" & UltimoAssociado & ",""F"")))"Thank you so much, I was stuck on this for 2 days, hahah
-
Hi, when I run the macro, it should give me a percentage on the cell b2, but instead, I'm receiving an #name? error that can be fixed just clicking in the code on excel and pressing enter and the formula still the same, why it doesn't start to run the percentage automatic and how it can be fixed?
here is my code
Code
Display MoreSub FormulaCalculoB2() Range("A1:A999").Find(What:="=Convidados!A2").Select UltimoAssociado = ActiveCell.Row - 1 Range("B2").Formula = "=COUNTIF(B4:B" & UltimoAssociado & ",""P"") / (@CONT.SE(B4:B" & UltimoAssociado & ",""P"") + (@CONT.SE(B4:B" & UltimoAssociado & ",""F"")))" End Sub Sub AddProjReuRep() Columns("B").Insert Columns("B").ColumnWidth = 18 Range("B2").Style = "Percent" Range("B3").Value = DateValue(Date) Range("B3").Font.Bold = False Range("A1:A999").Find(What:="=Convidados!A2").Select UltimoAssociado = ActiveCell.Row - 1 UltimoRange = "B4:B" & UltimoAssociado If ActiveSheet.Name = "Projetos" Then Range("B1").Value = "Nome do projeto" Range("B4").Value = "F" Range("B4").Select Selection.AutoFill Destination:=Range(UltimoRange), Type:=xlFillDefault FormulaCalculoB2 ElseIf ActiveSheet.Name = "Reunioes" Then Range("B1").Value = "Nome da reuniao" Range("B4").Value = "F" Range("B4").Select Selection.AutoFill Destination:=Range(UltimoRange), Type:=xlFillDefault FormulaCalculoB2 Else Range("B1").Value = "Nome da reposicao" Range("B2").Value = " - " End If End Sub