Burrgogi
Active Member
- Joined
- Nov 3, 2005
- Messages
- 495
- Office Version
- 2010
- Platform
- Windows
VBA Code:
Sub Fanatical_Table()
'
Workbooks.Open Filename:= _
"D:\Games\Game Collection\Fanatical Bundle Tracker Workbook (started on Nov 6, 2020).xlsm"
Sheets.Add After:=Sheets(Sheets.Count), Type:= _
"D:\Games\Fanatical Bundle Template 2C.xltx"
ActiveSheet.Name = Format(Date, "mm_dd_yyyy")
Range("A2").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
' This deletes the last 2 unnecessary columns
Columns("J:K").Select
Selection.Delete Shift:=xlToLeft
' Cut the trading cards (TC) column and move it to the left of the Playmode col.
Columns("I:I").Select
Selection.Cut
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
' Look for the word Steam in col. C and replace it with nothing
Columns("C:C").Select
Selection.Replace What:="Steam ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False
' cannot figure out how to do the very last part of the routine
End Sub
I've got a very simple VBA routine and I'm stumped on the very last part. I need the routine to look at the values shown in col. B
for example it will say:
Steam 100%
Steam 84%
Steam 95%
Steam 91%
....The number of rows will always vary.
I need just the numerical values only transferred over to col. E. Col. E has already been formatted to display the number as percentage e.g. (92%).