Help with the meaning of this code

[moiishchiu]

Cells(1, DELTA).Select
ActiveCell.EntireColumn.Insert
Cells(1, DELTA + 1).Select
ActiveCell.EntireColumn.Insert
DELTA = DELTA + 2
Columns(DELTA - 2).ColumnWidth = 5

[mancubus]

it is a 'modified' recorded macro to insert 2 blank columns starting from the column which is given by the variable DELTA and to set column width of that (+2-2 = 0) column.

procedure would be like:

    Cells(1, DELTA).Resize(, 2).EntireColumn.Insert
    Columns(DELTA).ColumnWidth = 5

[moiishchiu]

Also, what does this code mean as well especially the "=sum(R43C:R47C)"

Cells(48, DELTA - 2).FormulaR1C1 = "=sum(R43C:R47C)"

[PAB]

Hi moiishchiu,

What does this code mean, especially the "=sum(R43C:R47C)"
Cells(48, DELTA - 2).FormulaR1C1 = "=sum(R43C:R47C)"

It means...

Cells(ROW 48, COLUMN which is set by the variable DELTA).FormulaR1C1 = "SUM(RC43:RC47)"

Basically, the formula means SUM COLUMN RC ROW 43 to COLUMN RC ROW 47.

I hope this helps!

[moiishchiu]

Thanks it helped a lot !

[moiishchiu]

I'm a newbie and I was tasked to improve on this current program in excel, I need all the help I can get, what does this code means too haha

InvoiceDate = Sheets("tracking").Rows(1).Find(What:=strSearch, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, searchformat:=False).Column

[p45cal]

It looks in row 1 of the sheet called "tracking" for whatever's in strSearch and comes back with the column number that it finds it in.

[Aflatoon]

Basically, the formula means SUM COLUMN RC ROW 43 to COLUMN RC ROW 47.

Actually, it's sum the current row, from columns 43 to 47. It's an R1C1 formula, not A1.

[p45cal]

Actually, it's sum the current row, from columns 43 to 47. It's an R1C1 formula, not A1.

!!??
Do check this by putting it into a sub!

[Aflatoon]

Apologies - my comment was based on the code in PAB's post, which says:

Cells(ROW 48, COLUMN which is set by the variable DELTA).FormulaR1C1 = "SUM(RC43:RC47)"

The original code actually refers of course to rows 43 to 47 of the current column.

[moiishchiu]

It looks in row 1 of the sheet called "tracking" for whatever's in strSearch and comes back with the column number that it finds it in.

Thanks !

[PAB]

Glad we could help, thanks for the feedback.

[moiishchiu]

Hi, im just experimenting now, so why does my below code not work, I want it to add up all the numbers in column 7. When I debugged it it says type mismatch on this line TotalSum = TotalSum + Cells(counter2, 7)

Sub TotalSumFile()
Dim TotalSum As Integer
Dim counter2 As Integer
Dim lengthoflist As Long

lengthoflist = Sheets("RawData").UsedRange.Rows.Count
For counter2 = 1 To lengthoflist
If Cells(counter2, 7) <> 0 Then
TotalSum = TotalSum + Cells(counter2, 7)
End If
Range("m15") = TotalSum
Next counter2
End Sub

[p45cal]

Whatever's in Cells(counter2, 7) is not a whole number (it could be text, or a number with decimals?)