VBA subtracting two dates and creating a new column

[Palucci]

I have a function, I would like it to subtract dates from me and create a new column. However, it does not work, it shows me an error here

.Value = Evaluate("if({1}," & .Offset(, -2).Address & "-" & .Offset(, -1).Address & ","""")")

"Application - definied or object - definied error :

   With wbMe.Sheets("Arkusz3").Range("G2", Range("A" & Rows.Count).End(xlUp).Offset(, 1))
      .Value = Evaluate("if({1}," & .Offset(, -2).Address & "-" & .Offset(, -1).Address & ","""")")
   End With

 

[Palucci]

I have a function, I would like it to subtract dates from me and create a new column. However, it does not work, it shows me an error here

.Value = Evaluate("if({1}," & .Offset(, -2).Address & "-" & .Offset(, -1).Address & ","""")")

"Application - definied or object - definied error :

   With wbMe.Sheets("Arkusz3").Range("G2", Range("A" & Rows.Count).End(xlUp).Offset(, 1))
      .Value = Evaluate("if({1}," & .Offset(, -2).Address & "-" & .Offset(, -1).Address & ","""")")
   End With

cross post : VBA subtracting two dates and creating a new column

 

[Fluff]

This line

With wbMe.Sheets("Arkusz3").Range("G2", Range("A" & Rows.Count).End(xlUp).Offset(, 1))

is creating a range from B2:G & last row in A.
You are then offsetting that range by -2 columns which you cannot do for col B

 

[Palucci]

This line

With wbMe.Sheets("Arkusz3").Range("G2", Range("A" & Rows.Count).End(xlUp).Offset(, 1))

is creating a range from B2:G & last row in A.
You are then offsetting that range by -2 columns which you cannot do for col B

im little lost. I wanted to subtract columns E and D and put result in G

 

[Fluff]

Which column should be subtracted from which?

 

[Palucci]

Which column should be subtracted from which?

Column E subtracted from column D and the result in column G (or the first blank)

 

[Fluff]

In that case try

   With wbMe.Sheets("Arkusz3").Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row)
      .Value = .worksheet.Evaluate("if({1}," & .Offset(, -3).Address & "-" & .Offset(, -2).Address & ","""")")
   End With

 

[Palucci]

That was what it was about! Is there a chance to add a column name?

In that case try

   With wbMe.Sheets("Arkusz3").Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row)
      .Value = .worksheet.Evaluate("if({1}," & .Offset(, -3).Address & "-" & .Offset(, -2).Address & ","""")")
   End With

That was what it was about! Is there a chance to add a column name?

 

[Fluff]

What do you mean?

 

[Palucci]

What do you mean?

For example now i have some like that : And i would like add name to headers e.g: " Diffrence"