Anyone can help me my last bit please!!

[noogamyui]

I have been testing my program for couple of time already. That was working. my last bit make me so confuse again and i don't understand some of the meaning. so please help me to convert lotus macro to excel vba please. I am nearly finish my goal but i don't understand my last bit.
(my last bit it 's from number 20 until finish.)

I give you guys some of orginal as well so Just help me please! Thanks so much for someone who helping me.


5 {goto}AH1~{down 6}
6 /m{end}{right}~AP7~{if AP7<>0}{branch BC9}
7 {goto}AL1~{down 6}/{BRANCH BC20}
8
9 {if AR7>0.01*AP7}{branch BC14}
10 {goto}AH3~{end}{d}{end}{d}{d 1}/rvAP7..AR7~~
11 {down 1}
12 {BRANCH BC6}
13
14 /rvAQ7~AP7~
15 {BRANCH BC9}
16
17
18
19
20 /m{end}{right}~AP7~
21 {if AP7<>0}{branch BC25}
22 {goto}AT1~{down 6}(@MAX(AI7,AM7,AI56,AM56,AI105,AM105,AI154,AM154,AI203,AM203,AI252,AM252,AI301,AM301))~/c~.{right 1}{end}{d}{left 1}~
23 /rv{end}{r}{right 1}{end}{d}{left 1}{end}{u}~~{goto}AT1~/rv~~/reBC1..BC22~

25 {if AR7>0.01*AP7}{branch BC30}
26 {goto}AL3~{end}{d}{end}{d}{d 1}/rvAP7..AR7~~
27 {down 1}
28 {BRANCH BC20}

29 /rvAQ7~AP7~
30 {BRANCH BC25}

 

[Andrew Poulsom]

It would be better to stick to your original thread:

http://www.mrexcel.com/board2/viewtopic.php?p=540008&highlight=#540008

Hope this helps:

    Do
        Range(Selection, Selection.End(xlToRight)).Cut Range("AP7")
        If Range("AP7") <> 0 Then
            If Range("AR7") > Range("AP7") * 0.1 Then
                Range("AP7").Value = Range("AQ7").Value
            End If
            Range("AL3").End(xlDown).End(xlDown).Offset(1, 0).Select
            Range("AP7:AR7").Value = Selection.Value
            Selection.Offset(1, 0).Select
        Else
            Range("AT7").Select
            Selection.Formula = "=MAX(AI7,AM7,AI56,AM56,AI105,AM105,AI154,AM154,AI203,AM203,AI252,AM252,AI301,AM301)"
            Selection.Copy Range(Selection.Offset(0, 1), Selection.Offset(0, 1).End(xlDown)).Offset(0, -1)
            Range(Selection, Selection.End(xlToRight).Offset(0, 1).End(xlDown).Offset(0, -1).End(xlUp)).Select
            Selection.Value = Selection.Value
            Range("AT1").Value = Range("AT1").Value
            Range("BC1:BC22").ClearContents
            Exit Do
        End If
    Loop