We’d all like to think our company’s data is well protected, but when you ask IT professionals they admit the data probably is not as safe as it could be.

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

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

if C29=”High” then

+1 @ Cell L49 & N49 & P49 & R49 & T49 & V49

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

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

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

if true then find respective factor in range R39:R48 & Add +1 (if it is at Range HL then put +1 @ Unity )else nothing.

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

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

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get this solution by purchasing an Individual license!
Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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

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

Sorry

Scoring-G-V05.xlsm

+1 @ Cell L60 & N60 & P60 & R60 & T60 & V60

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

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

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

if true then find respective factor in range R50:R59 & Add +1 (if it is at Range HL then put +1 @ Unity )else nothing.

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

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

Thank You & sorry for wasting your Time.

You post a question then change the content and change and assume Experts do know what the hell is going on !!!

Sorry

thanks

+1 @ Cell L49 & N49 & P49 & R49 & T49 & V49

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

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

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

if true then find respective factor in range R39:R48 & Add +1 (if it is at Range HL then put +1 @ Unity )else nothing.

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

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

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

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

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.

Thanks

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.

no alteration & no adding & open for all.

Thank You & Sorry For inconvenience.

gowflow

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

+1 @ Cell L49 & N49 & P49 & R49 & T49 & V49

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

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

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

if true then find respective factor in range R39:R48 & Add +1 (if it is at Range HL then put +1 @ Unity )else nothing.

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

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

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

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

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

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

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

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

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

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
```

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
```

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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trialI 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

Anyway pls feel free to post link of any new issue you may need help with.

Regards/gowflow

```
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
```

I mean this Thanks

Microsoft Excel

From novice to tech pro — start learning today.

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get this solution by purchasing an Individual license!
Start your 7-day free trial.

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