Solved

Scoring

Posted on 2014-02-06
44
136 Views
Last Modified: 2014-02-10
Sir gowflow ,

will you look in to this, this is same kind of process.

01.

On Button click analyze
if C29=”High” then
+1 @ Cell L49 & N49 & P49 & R49 & T49 & V49

02.

Find C22 Value from Range K2:K11 (+ or – 4 point leverage)
if True then find respective factor in range L39:L48 & Add +1 (if  it is at Range CC then put +1 @ Unity)else nothing next step

03.

Find C23 Value in Range K2:K11(+ or – 4 point leverage)
if true then find respective factor in range N39:N48 & Add +1(if  it is at Range CC then put +1 @ Unity )else nothing next step

04.

Find C22 value from range O2:O11(+ or – 4 point leverage)
if true then find respective factor in range P39:P48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing next step

05.

Find C23 value from range O2:O11(+ or – 4 point leverage)
if true then find respective factor in range R39:R48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing.

06.

Find C22 value from range S2:S11(+ or – 4 point leverage)
if true then find respective factor in range T39:T48 & Add +1 (if  it is at Rang PC then put +1 @ Unity )else nothing next step

07.

Find C23 value from range S2:S11(+ or – 4 point leverage)
if true then find respective factor in range V39:V48 & Add +1 (if  it is at Range PC then put +1 @ Unity )else nothing
END

Same for Low.


Thank You
Scoring-G-V05.xlsm
0
Comment
Question by:itjockey
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 27
  • 17
44 Comments
 
LVL 29

Expert Comment

by:gowflow
ID: 39839918
this one is 4 points leverage whereas the previous was 3 points leverage but at one point you said 4 points and what was posted was 4 points so what is it now ??

For low you need to post as so many references although I did the last one but was not obvious.

I cannot act as asker and give answers !!! at the same time
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39839947
this one is 4 points leverage whereas the previous was 3 points leverage but at one point you said 4 points and what was posted was 4 points so what is it now ??

pls take it 4 point as default for all process.

For low you need to post as so many references although I did the last one but was not obvious.
Sure I will.

Thnaks
0
 
LVL 8

Author Comment

by:itjockey
ID: 39839950
as far as this question every thing is clear Sir?
0
Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

 
LVL 8

Author Comment

by:itjockey
ID: 39840005
one thing to mention -  (off the question) recently you got a medal of Rock Star!!!   ;)  cheers
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840073
Hold on Sir extremely extremely sorry ...........pls forgive me.....
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840145
Need To Add One More Step above Step 1.

One Button Click Pre "Time Range With Current Price Range" it Copy & Past Cell values
Copy Cell Values


Sorry
Scoring-G-V05.xlsm
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39840170
Cannot have a question hold too much
What is it now ?
the original post ?
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840190
One Button Click Pre "Time Range With Current Price Range" it Copy & Past Cell values

01.

Copy values fro mention Cells

02.

if C29=”LOW” then
+1 @ Cell L60 & N60 & P60 & R60 & T60 & V60

03.

Find C22 Value from Range K11:K20 (+ or – 4 point leverage)
if True then find respective factor in range L50:L59 & Add +1 (if  it is at Range CC then put +1 @ Unity)else nothing next step

04.

Find C23 Value in Range K11:K20(+ or – 4 point leverage)
if true then find respective factor in range N50:N59 & Add +1(if  it is at Range CC then put +1 @ Unity )else nothing next step

05.

Find C22 value from range O11:O20(+ or – 4 point leverage)
if true then find respective factor in range P50:P59 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing next step

06.

Find C23 value from range O11:O20(+ or – 4 point leverage)
if true then find respective factor in range R50:R59 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing.

07.

Find C22 value from range S11:S20(+ or – 4 point leverage)
if true then find respective factor in range T50:T59 & Add +1 (if  it is at Rang PC then put +1 @ Unity )else nothing next step

08.

Find C23 value from range S11:S20(+ or – 4 point leverage)
if true then find respective factor in range V50:V59 & Add +1 (if  it is at Range PC then put +1 @ Unity )else nothing
END

Thank You
Scoring-G-V05.xlsm
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840203
I know it will remove Formulas but I have to  do this. have no choice.


Thank You & sorry for wasting your Time.
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39840219
Your not getting it !!!
You post a question then change the content and change and assume Experts do know what the hell is going on !!!

Sorry
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840234
Sir if you had done something from my original post just need to add step 01 from above post. thatz it. actually I had make ready text for my next question for "LOW". & in hurry I just copy past (don't even look at it).......sorry my bad....


thanks
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840241
Apology :(
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39840244
Sorry I am lost
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840264

01.

One Button Click "Pre Time Range With Current Price Range" it Copy & Past Cell valuesCopy cell values

02.

if C29=”High” then
+1 @ Cell L49 & N49 & P49 & R49 & T49 & V49

03.

Find C22 Value from Range K2:K11 (+ or – 4 point leverage)
if True then find respective factor in range L39:L48 & Add +1 (if  it is at Range CC then put +1 @ Unity)else nothing next step

04.

Find C23 Value in Range K2:K11(+ or – 4 point leverage)
if true then find respective factor in range N39:N48 & Add +1(if  it is at Range CC then put +1 @ Unity )else nothing next step

05.

Find C22 value from range O2:O11(+ or – 4 point leverage)
if true then find respective factor in range P39:P48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing next step

06.

Find C23 value from range O2:O11(+ or – 4 point leverage)
if true then find respective factor in range R39:R48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing.

07.

Find C22 value from range S2:S11(+ or – 4 point leverage)
if true then find respective factor in range T39:T48 & Add +1 (if  it is at Rang PC then put +1 @ Unity )else nothing next step

08.

Find C23 value from range S2:S11(+ or – 4 point leverage)
if true then find respective factor in range V39:V48 & Add +1 (if  it is at Range PC then put +1 @ Unity )else nothing
END
Thnks
Scoring-G-V05.xlsm
0
 
LVL 8

Author Comment

by:itjockey
ID: 39840286
Brief description of step 1
Copy Cell Value A33 Past To C29
Copy Cell Value B33 Past To B28
Copy Cell Value G33 Past To B27
Copy Cell Value L33 Past To B26
Copy Cell Value K33 Past To B25
Copy Cell Value J33 Past To B24
Copy Cell Value I32 Past To B23
Copy Cell Value H32 Past To B22

Thank You
0
 
LVL 8

Author Comment

by:itjockey
ID: 39841344
Sir, you are still in this question?

Thank You
0
 
LVL 8

Author Comment

by:itjockey
ID: 39841346
Just asking not in a hurry...
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39841908
what is the button
2 Process WB

for ?
0
 
LVL 8

Author Comment

by:itjockey
ID: 39841996
That is for run this process from historical point location "C\Data G".

if you don't angry I would like to post code which I had edited from you previous code in notepad. I dint tested yet. just for understanding VBA. pls guide me which book I read for coding. I had bought from local market book called "Excel 2010 Power Programming with VBA by John Walkenbach" is that a good book for VBA?

Thanks
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39842055
no idea.
Sorry but is this school now ?

You first ask a question
then
change the question and add items
then
add more items with buttons
then want to post code that you altered for Expert to check ?

what kind of bazar is this ??

Sorry have no time for all this.
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842068
ok sorry, I had add one Button "Pre TimeRange With Current Price Range (2)" & ask for one more Step from start which copy & past. I dint mention any thing about button "2 Process WB". that is created for my next question.

Thanks
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39842072
Do not mean to be arrogant but you should first read the rules on how to ask a question in EE and see the guide lines

1) Question should be clear and concise. (like to the point and short and precise)
2) Refrain from changing the question while replies comes in
3) If need be get solution to the question and ask related question if you need refinement so to keep threads short and not lengthy for other people to be able to follow
4) You should provide sample data for Expert to understand what you want.
5) Provided Explanation on how the process work
6) Should be open to all Expert and not people in particular
7) Answer fast to Experts and to specifc requests
8) Award points fairly and equally when items is solved

... and more

I know you provide most of these, but your questions are extremely long and elaborate and you keep adding to items that are in the going.
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842089
ok Sir Noted ...next time I will be  precise. & stick to my very first post which I am seeking for.
no alteration & no adding & open for all.

Thank You & Sorry For inconvenience.
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842222
So Sir, Now  What Is Status Of This Question Abandoned Or Still Active?


Thanks You
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39842618
This question is active and you will need to choose a part and clear part that you may post after this comment that will advise if able to accomplish.
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842673
Ok Sir, here it is. On Button Click Pre Time Range With Current Price Range (2)

01.

Copy Cell Value A33 Past To C29
Copy Cell Value B33 Past To B28
Copy Cell Value G33 Past To B27
Copy Cell Value L33 Past To B26
Copy Cell Value K33 Past To B25
Copy Cell Value J33 Past To B24
Copy Cell Value I32 Past To B23
Copy Cell Value H32 Past To B22

02.

if C29=”High” then
+1 @ Cell L49 & N49 & P49 & R49 & T49 & V49

03.

Find C22 Value from Range K2:K11 (+ or – 4 point leverage)
if True then find respective factor in range L39:L48 & Add +1 (if  it is at Range CC then put +1 @ Unity)else nothing next step

04.

Find C23 Value in Range K2:K11(+ or – 4 point leverage)
if true then find respective factor in range N39:N48 & Add +1(if  it is at Range CC then put +1 @ Unity )else nothing next step

05.

Find C22 value from range O2:O11(+ or – 4 point leverage)
if true then find respective factor in range P39:P48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing next step

06.

Find C23 value from range O2:O11(+ or – 4 point leverage)
if true then find respective factor in range R39:R48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing.

07.

Find C22 value from range S2:S11(+ or – 4 point leverage)
if true then find respective factor in range T39:T48 & Add +1 (if  it is at Rang PC then put +1 @ Unity )else nothing next step

08.

Find C23 value from range S2:S11(+ or – 4 point leverage)
if true then find respective factor in range V39:V48 & Add +1 (if  it is at Range PC then put +1 @ Unity )else nothing
END
Thank You
Scoring-G-V05.xlsm
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39842739
Well here are my comments:

1) You want to create a new button called
Pre Time Range With Current Price Range (2) and have it execute the above code.

this means the above code will lie 'independantly' of other existing code in 1 sub that will execute upon activating this button.
Is this what is needed ?

Bearing in mind: that we also have:
A- Button called analyse that upon activation will analyse Col B,D,F,H basis value that is in Cell C29 wether High or Low

B-Also we have a button that will import a certain workbook and anaylse it automatically for Col B,D,F,H

How this new button created will not conflict or change or modify or maybe make previous buttons work incorrectly ?

Would you at the end need 2 buttons
one for B,D,F,H
one for L, N, P, R, T, V

or they should both be incorporated in the same routine ?
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842806
here is the explanation why need 2nd button.
A.as in analyze button we use vlaues of only row 33, which analyze "Current Price With current Time".  & in second process we need to use "Previous Time Range With Current Price Range" so for B22 & B23 (CD & TD) is taken from row  32. where in ""Current Price With current Time" B22 & B23 (CD & TD) is taken from row 33.

Thanks
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39842841
So then you will have:
1) Analyse: that will Analyse 1 time a set of data based on what is in C29
2) Process Workbook: that will import WB and fill in B,D,F,H
3) Pre Time Range With Current Price Range that will fill in L, N, P, R, T, V with all the details given right ?

It is important to note that when activating 2) it will not update 3) or vice versa

is this correct this way ?
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842903
Sir as I don't know much about coding, so look in to situation & I come up with idea that we need two separate code for separate process as I thought it may conflict with each other. If you feel it may not then merge whole process in one code.

I am totally trusting  you so it is up to you. I am happy with both buttons as well as with only button.

Thanks You
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39842921
Well it depends what you want to do !!
2 buttons = possibly pressing 1 and not the other or pressing 1 2 or 3 times then 1 time an other.... data is not in correlation.

1 button = each and every time the whole data is processed and all the columns are filled.

So you decide it is not me who will use this it depend what is your need.
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39842948
only one button "Analyze" for this question



& only one button for process WB path C:\Data G\ "Process Workbook" which is my next question

Thanks
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39843085
ok now it is more clear.

So this is what will do.
Will have on this question only 1 button:

Analyse: That will analyse a piece of data that will update as per previous code to which will add updating of col L, N, P, R, T, V to have a full
B,D,F,H, L, N, P, R, T, V each and every time this button is pressed.

pls confirm.
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39843092
yes Sir
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39843103
ok fine now. Let me work on it, if no one else beat me to it.
gowflow
0
 
LVL 29

Accepted Solution

by:
gowflow earned 500 total points
ID: 39843282
ok here is what was performed.

I incorporated the new requirement into the existing Analyse button and on top of the existing code for which pls see the below new Code.

Sub Analyse()
Dim WS As Worksheet
Dim MaxRow As Long
Dim cCell As Range
Dim Min As Long, Max As Long, I As Long, J As Long, K As Long
Dim factor As String
Dim Col As String

Set WS = ActiveSheet

'---> Step 1 Call for Pre Time Range With Current Price Range
PTRwCPR

'---> Step 2 check if High or Low
'     Step 2 - High

'1
'If C29 = ”High” Then
'+1 @ Cell B49 & D49 & F49 & H49 & L49 & N49 & P49 & R49 & T49 & V49

'2
'Find C22 Value from Range C2:C11 (+ or – 4 point leverage)
'if True then find respective factor in range B39:B48 & Add +1 (if  it is at Close Hits then put +1 @ Unity)else nothing next step

'3
'Find C23 Value in Range C2:C11(+ or – 4 point leverage)
'if true then find respective factor in range D39:D48 & Add +1(if  it is at Close Hits then put +1 @ Unity )else nothing next step

'4
'Find C22 value from range G2:G11(+ or – 4 point leverage)
'if true then find respective factor in range F39:F48 & Add +1 (if  it is at Point Hits then put +1 @ Unity )else nothing next step

'5
'Find C23 value from range G2:G11(+ or – 4 point leverage)
'if true then find respective factor in range H39:H48 & Add +1 (if  it is at Point Hits then put +1 @ Unity )else nothing. End

'6
'Find C22 Value from Range K2:K11 (+ or – 4 point leverage)
'if True then find respective factor in range L39:L48 & Add +1 (if  it is at Range CC then put +1 @ Unity)else nothing next step

'7
'Find C23 Value in Range K2:K11(+ or – 4 point leverage)
'if true then find respective factor in range N39:N48 & Add +1(if  it is at Range CC then put +1 @ Unity )else nothing next step

'8
'Find C22 value from range O2:O11(+ or – 4 point leverage)
'if true then find respective factor in range P39:P48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing next step

'9
'Find C23 value from range O2:O11(+ or – 4 point leverage)
'if true then find respective factor in range R39:R48 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing.

'10
'Find C22 value from range S2:S11(+ or – 4 point leverage)
'if true then find respective factor in range T39:T48 & Add +1 (if  it is at Rang PC then put +1 @ Unity )else nothing next step

'11
'Find C23 value from range S2:S11(+ or – 4 point leverage)
'if true then find respective factor in range V39:V48 & Add +1 (if  it is at Range PC then put +1 @ Unity )else nothing
'End

'---> High
If WS.Range("C29") = "High" Then
    WS.Range("B49") = WS.Range("B49") + 1
    WS.Range("D49") = WS.Range("D49") + 1
    WS.Range("F49") = WS.Range("F49") + 1
    WS.Range("H49") = WS.Range("H49") + 1
    WS.Range("L49") = WS.Range("L49") + 1
    WS.Range("N49") = WS.Range("N49") + 1
    WS.Range("P49") = WS.Range("P49") + 1
    WS.Range("R49") = WS.Range("R49") + 1
    WS.Range("T49") = WS.Range("T49") + 1
    WS.Range("V49") = WS.Range("V49") + 1

    '---> Items 02,03,04,05,06,07,08,09,10,11
    For K = 1 To 5
        For I = 22 To 23
            If K = 1 And I = 22 Then
                Col = "C"
                fcol = "B"
            ElseIf K = 1 And I = 23 Then
                Col = "C"
                fcol = "D"
            ElseIf K = 2 And I = 22 Then
                Col = "G"
                fcol = "F"
            ElseIf K = 2 And I = 23 Then
                Col = "G"
                fcol = "H"
            ElseIf K = 3 And I = 22 Then
                Col = "K"
                fcol = "L"
            ElseIf K = 3 And I = 23 Then
                Col = "K"
                fcol = "N"
            ElseIf K = 4 And I = 22 Then
                Col = "O"
                fcol = "P"
            ElseIf K = 4 And I = 23 Then
                Col = "O"
                fcol = "R"
            ElseIf K = 5 And I = 22 Then
                Col = "S"
                fcol = "T"
            ElseIf K = 5 And I = 23 Then
                Col = "S"
                fcol = "V"
            End If
                   
            Min = WS.Range("C" & I) - 4
            Max = WS.Range("C" & I) + 4
            For J = 2 To 11
                If WS.Range(Col & J) >= Min And WS.Range(Col & J) <= Max Then
                    factor = WS.Range(Col & J).Offset(0, -2)
                    
                    Select Case factor
                        Case "Close Hits", "Point Hits", "Range CC", "Range HL", "Range PC"
                            factor = "Unity"
                    End Select
                    
                    Exit For
                End If
            Next J
            
            If factor <> "" Then
                Set cCell = WS.Range("A39:A49").Find(what:=factor, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
                If Not cCell Is Nothing Then
                    WS.Cells(cCell.Row, fcol) = WS.Cells(cCell.Row, fcol) + 1
                End If
                factor = ""
            End If
        Next I
    Next K

End If

'---> Step 2 check if High or Low
'     Step 2 - Low


'1
'On Button click analyze
'If C29 = ”Low” Then
'+1 @ Cell B60 & D60 & F60 & H60 & L60 & N60 & P60 & R60 & T60 & V60

'2
'Find C22 Value from Range C11:C20 (+ or – 4 point leverage)
'if True then find respective factor in range B50:B59 & Add +1 (if  it is at Close Hits then put +1 @ Unity)else nothing next step

'3
'Find C23 Value in Range C11:C20(+ or – 4 point leverage)
'if true then find respective factor in range D50:D59 & Add +1(if  it is at Close Hits then put +1 @ Unity )else nothing next step

'4
'Find C22 value from range G11:G20(+ or – 4 point leverage)
'if true then find respective factor in range F50:F59 & Add +1 (if  it is at Point Hits then put +1 @ Unity )else nothing next step

'5
'Find C23 value from range G11:G20(+ or – 4 point leverage)
'if true then find respective factor in range H50:H59 & Add +1 (if  it is at Point Hits then put +1 @ Unity )else nothing. End

'6
'Find C22 Value from Range K11:K20 (+ or – 4 point leverage)
'if True then find respective factor in range L50:L59 & Add +1 (if  it is at Range CC then put +1 @ Unity)else nothing next step

'7
'Find C23 Value in Range K11:K20(+ or – 4 point leverage)
'if true then find respective factor in range N50:N59 & Add +1(if  it is at Range CC then put +1 @ Unity )else nothing next step

'8
'Find C22 value from range O11:O20(+ or – 4 point leverage)
'if true then find respective factor in range P50:P59 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing next step

'9
'Find C23 value from range O11:O20(+ or – 4 point leverage)
'if true then find respective factor in range R50:R59 & Add +1 (if  it is at Range HL then put +1 @ Unity )else nothing.

'10
'Find C22 value from range S11:S20(+ or – 4 point leverage)
'if true then find respective factor in range T50:T59 & Add +1 (if  it is at Rang PC then put +1 @ Unity )else nothing next step

'11
'Find C23 value from range S11:S20(+ or – 4 point leverage)
'if true then find respective factor in range V50:V59 & Add +1 (if  it is at Range PC then put +1 @ Unity )else nothing
'End

'---> Low
If WS.Range("C29") = "Low" Then
    WS.Range("B60") = WS.Range("B60") + 1
    WS.Range("D60") = WS.Range("D60") + 1
    WS.Range("F60") = WS.Range("F60") + 1
    WS.Range("H60") = WS.Range("H60") + 1
    WS.Range("L60") = WS.Range("L60") + 1
    WS.Range("N60") = WS.Range("N60") + 1
    WS.Range("P60") = WS.Range("P60") + 1
    WS.Range("R60") = WS.Range("R60") + 1
    WS.Range("T60") = WS.Range("T60") + 1
    WS.Range("V60") = WS.Range("V60") + 1

    '---> Step 02,03,04,05
    For K = 1 To 5
        For I = 22 To 23
            If K = 1 And I = 22 Then
                Col = "C"
                fcol = "B"
            ElseIf K = 1 And I = 23 Then
                Col = "C"
                fcol = "D"
            ElseIf K = 2 And I = 22 Then
                Col = "G"
                fcol = "F"
            ElseIf K = 2 And I = 23 Then
                Col = "G"
                fcol = "H"
            ElseIf K = 3 And I = 22 Then
                Col = "K"
                fcol = "L"
            ElseIf K = 3 And I = 23 Then
                Col = "K"
                fcol = "N"
            ElseIf K = 4 And I = 22 Then
                Col = "O"
                fcol = "P"
            ElseIf K = 4 And I = 23 Then
                Col = "O"
                fcol = "R"
            ElseIf K = 5 And I = 22 Then
                Col = "S"
                fcol = "T"
            ElseIf K = 5 And I = 23 Then
                Col = "S"
                fcol = "V"
            End If
                   
            Min = WS.Range("C" & I) - 4
            Max = WS.Range("C" & I) + 4
            For J = 11 To 20
                If WS.Range(Col & J) >= Min And WS.Range(Col & J) <= Max Then
                    factor = WS.Range(Col & J).Offset(0, -2)
                    
                    Select Case factor
                        Case "Close Hits", "Point Hits", "Range CC", "Range HL", "Range PC"
                            factor = "Unity"
                    End Select
                    
                    Exit For
                End If
            Next J
            
            If factor <> "" Then
                Set cCell = WS.Range("A50:A59").Find(what:=factor, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
                If Not cCell Is Nothing Then
                    WS.Cells(cCell.Row, fcol) = WS.Cells(cCell.Row, fcol) + 1
                End If
                factor = ""
            End If
        Next I
    Next K

End If

End Sub

Sub PTRwCPR()
Dim WS As Worksheet

Set WS = ActiveSheet

'---> Transfer Previous Time Range with Current Price Range
WS.Range("C29") = WS.Range("A33")
WS.Range("B28") = WS.Range("B33")
WS.Range("B27") = WS.Range("G33")
WS.Range("B26") = WS.Range("L33")
WS.Range("B25") = WS.Range("K33")
WS.Range("B24") = WS.Range("J33")
WS.Range("B23") = WS.Range("I32")
WS.Range("B22") = WS.Range("H32")

End Sub

Open in new window



The I also Incorporated a new button Called Clear Scoring Data which when activated, will clear all the data in the scoring table to accept new values. Here is the code for this button.

Sub ClearData()
Dim WS As Worksheet

Set WS = ActiveSheet

'---> Clear Data from Scoring Table
WS.Range("B39:B60").ClearContents
WS.Range("D39:D60").ClearContents
WS.Range("F39:F60").ClearContents
WS.Range("H39:H60").ClearContents

WS.Range("L39:L60").ClearContents
WS.Range("N39:N60").ClearContents
WS.Range("P39:P60").ClearContents
WS.Range("R39:R60").ClearContents
WS.Range("T39:T60").ClearContents
WS.Range("V39:V60").ClearContents
End Sub

Open in new window


Attached is the new updated workbook.
Kindly try it for different sets of values and ensure it is correctly setup.

gowflow
Scoring-G-V06.xlsm
0
 
LVL 8

Author Comment

by:itjockey
ID: 39843320
Sir gowflow,

I will check Surly with different set of data tomorrow.it is too late here 4;15 AM.

Have a good week end cheers!!!


Thank You
0
 
LVL 8

Author Closing Comment

by:itjockey
ID: 39845446
Thank You & Sorry For Misunderstanding.
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39845578
No problem, it is just that maybe you felt the weekend coming so u wanted to throw everything ... and all at once ! sometimes it does not help.

Anyway pls feel free to post link of any new issue you may need help with.
Regards/gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39846939
May Post Question For Process WB From Different Location?


Thanks
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39846957
You mean the CTRLL r ?
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39846963
Sub ProcessWorkbook()
Dim WB As Workbook
Dim WS As Worksheet
Dim ThisWS As Worksheet
Dim MaxRow As Long, I As Long, lCount As Long
Dim WBName As String

With Application
    .EnableEvents = False
    .DisplayAlerts = False
    .ScreenUpdating = False
End With

'---> Replace this with the exact path and file name of your file
 WBName = "C:\Data G\xyz.xlsx"
'WBName = "C:\Users\JGE002\Desktop\EE Projects\itjockey\13 Scoring part3\xyz.xlsx"
Set ThisWS = ActiveSheet
Set WB = Workbooks.Open(WBName)
Set WS = WB.ActiveSheet

MaxRow = WS.Range("A" & WS.Rows.Count).End(xlUp).Row

For I = 3 To MaxRow
    WS.Range("A" & I & ":L" & I + 1).Copy
    ThisWS.Activate
    ThisWS.Range("A32").PasteSpecial xlPasteValues
    Analyse
    lCount = lCount + 1
    DoEvents
Next I

WB.Close savechanges:=False
Set WB = Nothing
Set WS = Nothing

With Application
    .EnableEvents = True
    .DisplayAlerts = True
    .ScreenUpdating = True
End With


MsgBox ("Analyse and Import of entire workbook completed successfully for " & lCount & " points.")


End Sub

Open in new window


I mean this Thanks
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39847016
No problem go ahead and ask and put a link in here. Pls have your question clear.
gowflow
0
 
LVL 8

Author Comment

by:itjockey
ID: 39847128
here it is..Scoring


I may not be available as my shift change to morning as of now.

Thanks
0

Featured Post

Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager is not included in Office 2013. This comes as a shock to users upgrading from earlier versions of Office, such as 2007 and 2010, where Picture Manager was included as a standard application. This article explains how…
In this article we discuss how to recover the missing Outlook 2011 for Mac data like Emails and Contacts manually.
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

740 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question