![]() ![]() Range(Selection, Selection.End(xlDown)).SelectĪctiveSheet.Range("$A$1:$P$1000").AutoFilter Field:=9, Criteria1:=Array("D", "="), Operator:=xlFilterValuesĪctiveSheet.Range("$A$1:$P$1000").AutoFilter Field:=9, Criteria1:=Array("M", "="), Operator:=xlFilterValuesĪctiveSheet.Range("$A$1:$P$1000").AutoFilter Field:=9, Criteria1:=Array("I", "="), Operator:=xlFilterValuesĪctiveCell.FormulaR1C1 = "=COUNTA(C)"ĪctiveCell.FormulaR1C1 = "=+RC*RC"ĪctiveCell.FormulaR1C1 = "=SUM(RC:RC)"ĪctiveCell.FormulaR1C1 = "=(RC-RC)/RC" If MsgBox("Make your Format ?", vbYesNo, "Import EDI") = vbYes ThenĪctiveSheet.Range("$A$1:$AG$17").AutoFilter Field:=2, Criteria1:=">0", _ Experienced the same issue in both the cases. I have tried both, with and without VBA. Was the command button created manually or with VBA code? If with VBA code the please post the code. ![]() Is the command button on a worksheet or a Userform?
0 Comments
Leave a Reply. |