Get_Involved
Active Member
- Joined
- Jan 26, 2007
- Messages
- 383
I have this code in my “Thusworkbook”
It doesn’t work. I have tried every way I can think of, you name it, I tried to rewrite to MAX just work.
I am not knowledgeable enough with VBCODE.
Can this code be rewrite with Max instead?
The Max I want to find is in “Bid Calculator C29:G29”
I would appreciate any help with this mater, please tell me where to place it.
Thanks
Code:
Sub COPY()
Sheets("Legend").Range("R4").COPY Sheets("Bid Calculator").Range("C29")
With Sheets("Bid Calculator")
For MY_COUNT = 3 To 7
If Not (IsEmpty(.Cells(29, MY_COUNT).Value)) Then
A = Sheets("Legend").Range("R4").Value
MY_NO = .Cells(29, MY_COUNT).Value + Sheets("Legend").Range("R4").Value
End If
Next MY_COUNT
End With
Sheets("Legend").Range("R4").Value = MY_NO
End Sub
It doesn’t work. I have tried every way I can think of, you name it, I tried to rewrite to MAX just work.
I am not knowledgeable enough with VBCODE.
Can this code be rewrite with Max instead?
The Max I want to find is in “Bid Calculator C29:G29”
I would appreciate any help with this mater, please tell me where to place it.
Thanks
Last edited: