Excel 2010 Issue - Formula not working..

P

politot

New Member
Joined
Nov 22, 2012
Messages
22
Hi Excel Guru's,

Can someone help me how this excel formula will generate a result using excel 2010, this code works perfect on excel 2007 but i need this formula works on 2010. Many Thanks!


Sheet 9
[TABLE="width: 1084"]
<colgroup><col><col><col><col><col><col><col><col span="2"><col><col><col><col></colgroup><tbody>[TR]
[TD]IF(LEFT(Data!A3,10)="Account ov", SEARCH(":",Data!A3,1),"")
[/TD]
[TD]IF(A3<>"", MID(Data!A3,A3+3,20), 0)[/TD]
[TD]IF(LEFT(Data!A3, 7)="Renewal", SEARCH(":",Data!A3),"")[/TD]
[TD]IF(c3<>"", MID(Data!A3,c3+2, 15),"")[/TD]
[TD]IF(LEFT(Data!A3,7)="Date is",SEARCH(":",Data!A3),"")[/TD]
[TD]IF(e3<>"",MID(Data!A3,e3+2,15),"")[/TD]
[TD]IF(LEFT(Data!A3,9)="Date Act",LEFT(Data!A4,7),"")[/TD]
[TD][/TD]
[TD][/TD]
[TD]B3*-1[/TD]
[TD]D4[/TD]
[TD]F14[/TD]
[TD]G16[/TD]
[/TR]
</tbody>[/TABLE]



Sheet 11

[TABLE="width: 1172"]
<colgroup><col width="74"><col span="2" width="94"><col width="91"><col width="39"><col width="33"><col width="66"><col width="96"><col width="101"><col width="104"><col width="89"><col span="2" width="64"><col width="99"><col width="64"></colgroup><tbody>[TR]
[TD="class: xl66, width: 74"]IF(D4<>"", IF(PFcalc!B4<>"",IF(PFcalc!A4=0,A3,PFcalc!A4),PFcalc!A4),"")[/TD]
[TD="class: xl66, width: 94"]IF(PFcalc!C3<>"",PFcalc!B3,"")[/TD]
[TD="class: xl66, width: 94"]IF(PFcalc!C3<>"",PFcalc!C3,"")[/TD]
[TD="class: xl66, width: 91"]IF(PFcalc!C3<>"",PFcalc!D3,"")[/TD]
[TD="class: xl66, width: 39"][/TD]
[TD="class: xl66, width: 33"][/TD]
[TD="class: xl66, width: 66"]IF(OR(A3<>A2,A3<>A4,AND(A3<>"",A4="")),A3,"")[/TD]
[TD="class: xl66, width: 96"]IF(OR(AND($A3<>"",$A4=""),$A3<>$A4),B3, "")[/TD]
[TD="class: xl66, width: 101"]IF(OR(AND($A3<>"",$A4=""),$A3<>$A4),C3, "")[/TD]
[TD="class: xl66, width: 104"]IF(A4<>"", IF($A3<>$A4,C4,""),"")[/TD]
[TD="class: xl66, width: 89"]IF(A4<>"", IF($A3<>$A4,D4,""),"")[/TD]
[TD="class: xl66, width: 64"]IF(AND($O$2="no", I3<>"",A3<>"",K3=""), I3, IF(AND($O$2="Yes", A4="",A3<>""), "OPEN", IF(G3<>"", IF(AND(H3>=I3,H3<=J3),H3,K3),"")))[/TD]
[TD="class: xl67, width: 64"][/TD]
[TD="class: xl67, width: 99"][/TD]
[TD="class: xl67, width: 64"][/TD]
[/TR]
</tbody>[/TABLE]



Sheet8.Select
Sheet8.[a1].Select
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
w = ActiveCell.Row
With Sheet9
.Range(.Cells(3, 1), .Cells(w, 1)).Formula = "=" & Sheet9.Range("A1").Value
.Range(.Cells(3, 2), .Cells(w, 2)).Formula = "=" & Sheet9.Range("B1").Value
.Range(.Cells(3, 3), .Cells(w, 3)).Formula = "=" & Sheet9.Range("C1").Value
.Range(.Cells(3, 4), .Cells(w, 4)).Formula = "=" & Sheet9.Range("D1").Value
.Range(.Cells(3, 5), .Cells(w, 5)).Formula = "=" & Sheet9.Range("E1").Value
.Range(.Cells(3, 6), .Cells(w, 6)).Formula = "=" & Sheet9.Range("F1").Value
.Range(.Cells(3, 7), .Cells(w, 7)).Formula = "=" & Sheet9.Range("G1").Value
.Range(.Cells(16, 10), .Cells(w, 10)).Formula = "=" & Sheet9.Range("J1").Value
.Range(.Cells(16, 11), .Cells(w, 11)).Formula = "=" & Sheet9.Range("K1").Value
.Range(.Cells(16, 12), .Cells(w, 12)).Formula = "=" & Sheet9.Range("L1").Value
.Range(.Cells(16, 13), .Cells(w, 13)).Formula = "=" & Sheet9.Range("M1").Value
End With

With Sheet3
.Range(.Cells(16, 1), .Cells(w, 1)).Formula = "=" & Sheet3.Range("a1").Value
.Range(.Cells(16, 2), .Cells(w, 2)).Formula = "=" & Sheet3.Range("b1").Value
.Range(.Cells(16, 3), .Cells(w, 3)).Formula = "=" & Sheet3.Range("c1").Value
.Range(.Cells(16, 4), .Cells(w, 4)).Formula = "=" & Sheet3.Range("d1").Value
End With

Sheets("Calc").Select
With ActiveSheet
.Range(.Cells(2, 1), .Cells(w, 4)).AutoFilter Field:=3, Criteria1:=RGB(194 _
, 214, 154), Operator:=xlFilterCellColor
End With
Sheet3.Range("a2:d2").Select
Sheet3.Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("PFcalc").Select
Sheet10.Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Generating number of rows
Sheet10.[a1].Select
Selection.End(xlToRight).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
x = ActiveCell.Row

With Sheet11
.Range(.Cells(4, 1), .Cells(x, 1)).Formula = "=" & Sheet11.Range("A1").Value
.Range(.Cells(3, 2), .Cells(x, 2)).Formula = "=" & Sheet11.Range("B1").Value
.Range(.Cells(3, 3), .Cells(x, 3)).Formula = "=" & Sheet11.Range("C1").Value
.Range(.Cells(3, 4), .Cells(x, 4)).Formula = "=" & Sheet11.Range("D1").Value
.Range(.Cells(3, 7), .Cells(x, 7)).Formula = "=" & Sheet11.Range("G1").Value
.Range(.Cells(3, 8), .Cells(x, 8)).Formula = "=" & Sheet11.Range("H1").Value
.Range(.Cells(3, 9), .Cells(x, 9)).Formula = "=" & Sheet11.Range("I1").Value
.Range(.Cells(3, 10), .Cells(x, 10)).Formula = "=" & Sheet11.Range("J1").Value
.Range(.Cells(3, 11), .Cells(x, 11)).Formula = "=" & Sheet11.Range("K1").Value
.Range(.Cells(3, 12), .Cells(x, 12)).Formula = "=" & Sheet11.Range("L1").Value
End With
 

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)
Sort by date Sort by votes
You must log in or register to reply here.

Similar threads

A
  • Question Question
Excel formula please
Replies
4
Views
119
JoeMo
J
F
  • Solved
TEXTSPLIT not working as expected inside of BYROW. Workaround?
2
Replies
11
Views
782
felixstraube
F
I
  • Solved
Simplify my working code please
Replies
7
Views
186
ipbr21054
I
K
  • Question Question
create fixtures but 2 vs 2
Replies
7
Views
205
kerm007
K
S
  • Solved
Dynamic pulldown of sheet names
Replies
2
Views
165
ShadowRider
S

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top