help needed! how to clear my macro tabulate table

O

Oligo

Sub MakeATable()
Dim myB2Arr As Range
Dim myB4Arr As Range
Dim myB2 As Range
Dim myB4 As Range
Dim myR As Long

Set myB2Arr = Worksheets("Main Data").Range("A10:A13")
Set myB4Arr = Worksheets("Main Data").Range("A3:A5")

For Each myB2 In myB2Arr
For Each myB4 In myB4Arr

Worksheets("calculation").Range("B2").Value = myB2.Value
Worksheets("calculation").Range("B4").Value = myB4.Value

Application.CalculateFull

myR = Cells(Rows.Count, 1).End(xlUp)(2).Row
Cells(myR, 1).Value = myB2.Value
Cells(myR, 2).Value = myB4.Value
Worksheets("calculation").Range("G9:G13").Copy
Cells(myR, 3).PasteSpecial xlValues, Transpose:=True

Next myB4
Next myB2
End Sub

i have this code currently that tabulate a table on a new sheet. currently
i added a play button to run the macro.
my output G9:G13 is dependent on other inputs cells. my question is how do i
clear the previous table for a next set of input change tabulation? ie. i
only want my table to show current data and not build on from past output.
 
D

Dave Peterson

You want to clear G9:G13 in the Calculation worksheet, right?

I would think it would depend on what's in G9:G13. If it's just constants that
you fill in with macros, you could add:

worksheets("Calculation").range("G9:g13").clearcontents

If that range contains formulas, I think you'll have to revise your formulas to
depend on something else (I don't have a guess what that would be).

If the g9:g13 contains both, you'll need a little of both.
 
O

Oligo

actually i just want to clear the tabulated table on the active sheet which
just contain the tabulated table. so i just have .clearcontent.

but my problems now is how to keep the decimal places of the cells and
conditional formating(added the data bar color formatting) after i
clearcontent ??
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top