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
IF(LEFT(Data!A3,10)="Account ov", SEARCH(":",Data!A3,1),"")
IF(A3<>"", MID(Data!A3,A3+3,20), 0)IF(LEFT(Data!A3, 7)="Renewal", SEARCH(":",Data!A3),"")IF(c3<>"", MID(Data!A3,c3+2, 15),"")IF(LEFT(Data!A3,7)="Date is",SEARCH(":",Data!A3),"")IF(e3<>"",MID(Data!A3,e3+2,15),"")IF(LEFT(Data!A3,9)="Date Act",LEFT(Data!A4,7),"")B3*-1D4F14G16

<colgroup><col><col><col><col><col><col><col><col span="2"><col><col><col><col></colgroup><tbody>
</tbody>



Sheet 11

IF(D4<>"", IF(PFcalc!B4<>"",IF(PFcalc!A4=0,A3,PFcalc!A4),PFcalc!A4),"")IF(PFcalc!C3<>"",PFcalc!B3,"")IF(PFcalc!C3<>"",PFcalc!C3,"")IF(PFcalc!C3<>"",PFcalc!D3,"")IF(OR(A3<>A2,A3<>A4,AND(A3<>"",A4="")),A3,"")IF(OR(AND($A3<>"",$A4=""),$A3<>$A4),B3, "")IF(OR(AND($A3<>"",$A4=""),$A3<>$A4),C3, "")IF(A4<>"", IF($A3<>$A4,C4,""),"")IF(A4<>"", IF($A3<>$A4,D4,""),"")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),"")))

<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>
</tbody>



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

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
Sort by date Sort by votes
You must log in or register to reply here.

Similar threads

E
  • Solved
Copying data from 1 sheet to another in vba
Replies
7
Views
176
Kaper
Kaper
J
  • Solved
IF and AND formulas for multiple criteria
Replies
6
Views
172
Peter_SSs
Peter_SSs
U
  • Question
store values from dropdownlist
Replies
3
Views
132
RobP
R
R
  • Question
Macro not working after adding two new items
Replies
4
Views
94
myall_blues
myall_blues
SaraWitch
  • Solved
Add zero to beginning of number extraction
2
Replies
10
Views
356
MARK858
MARK858

Forum statistics

Threads
1,214,653
Messages
6,120,752
Members
448,989
Latest member
mariah3

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