
Sholtan Singh
Member
Members

Forum Posts: 28
Member Since:
July 29, 2018
July 29, 2018

Sub STEP15() Dim r As Long Dim m As Long Dim wb1 As Workbook Set wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls") Set ws1 = wb1.Worksheets.Item(1) Application.ScreenUpdating = False With ws1 m = .Range("A" & .Rows.Count).End(xlUp).Row For r = 2 To m If .Range("H" & r).Value < .Range("D" & r).Value Then .Range("K" & r).Value = Application.Ceiling(.Range("K" & r).Value, 0.05) .Range("K" & r).NumberFormat = "0.00" Else .Range("K" & r).Value = Application.Floor(.Range("K" & r).Value, 0.05) .Range("K" & r).NumberFormat = "0.00" End If Next r End With Application.ScreenUpdating = True wb1.Save wb1.Close End Sub
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: andria young, Bruce Tang Nian
Guest(s) 10
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 871
Purfleet: 412
Frans Visser: 346
David_Ng: 306
lea cohen: 219
Jessica Stewart: 205
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Bruce Tang Nian
Scot C
Othman AL MUTAIRI
Misael Gutierrez Sr.
Attif Ihsan
Kieran Fee
Murat Hasanoglu
Brett Dryland
Saeed Aldousari
Bhuwan Devkota
Forum Stats:
Groups: 3
Forums: 24
Topics: 6222
Posts: 27293
Member Stats:
Guest Posters: 49
Members: 31918
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —
