crypto spreadsheet macro content

Module 1
Function CMCRank(CMCTokenSymbol As String)

    Application.Volatile

    CMCRank = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 2, 0)

End Function

Function CMCPrice(CMCTokenSymbol As String)

    Application.Volatile

    CMCPrice = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 3, 0)

End Function

Function CMCPriceBTC(CMCTokenSymbol As String)

    Application.Volatile

    CMCPriceBTC = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 4, 0)

End Function

Function CMCVolume24h(CMCTokenSymbol As String)

    Application.Volatile

    CMCVolume24h = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 5, 0)

End Function

Function CMCMarketCap(CMCTokenSymbol As String)

    Application.Volatile

    CMCMarketCap = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 6, 0)

End Function

Function CMCAvailableSupply(CMCTokenSymbol As String)

    Application.Volatile

    CMCAvailableSupply = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 7, 0)

End Function

Function CMCTotalSupply(CMCTokenSymbol As String)

    Application.Volatile

    CMCTotalSupply = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 8, 0)

End Function

Function CMCPercentChange1h(CMCTokenSymbol As String)

    Application.Volatile

    CMCPercentChange1h = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 9, 0)

End Function

Function CMCPercentChange24h(CMCTokenSymbol As String)

    Application.Volatile

    CMCPercentChange24h = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 10, 0)

End Function

Function CMCPercentChange7d(CMCTokenSymbol As String)

    Application.Volatile

    CMCPercentChange7d = WorksheetFunction.VLookup(CMCTokenSymbol, Worksheets("CMC").Range("$C:$M"), 11, 0)

End Function


Module 2
Sub Refresh()
'
' Refresh Macro
'
    ActiveWorkbook.RefreshAll
    Calculate

End Sub


Module 3
Sub RefreshCMC()
'
' RefreshCMC Macro
'
    Range("A2").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub
Sub RefreshCMC2()
'
' RefreshCMC2 Macro
'
    Sheets("CMC").Select
    Range("A2").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Portifolio").Select
End Sub
Sub refreshCMC3()
'
' refreshCMC3 Macro
'
    Sheets("CMC").Select
    Range("N4").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub
Sub refreshCMC5()
'
' refreshCMC5 Macro
'

'
    Sheets("CMC").Select
    ActiveWorkbook.Connections("Query - CMC").Refresh
End Sub


Module 4
Sub addcoin()
'
' addcoin Macro
'

'
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveWindow.ScrollColumn = 1
    Range("B6:B26").Select
    Selection.Copy
    Range("K6").Select
    ActiveSheet.Paste
    Range("K6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Add Coin Name"
    Range("K7").Select
End Sub


Module 5
Sub blockheight()
'
' blockheight Macro
'
    Sheets("BTC Data").Select
    ActiveWorkbook.Connections("status?q=getBlockCount").Refresh
    Range("AF2").Select
    Selection.TextToColumns Destination:=Range("AF2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="}", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("AF5").Select
    Selection.Copy
    Range("AF4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Portifolio").Select
    Range("B41").Select

End Sub
Sub getblockheight()
'
' getblockheight Macro
'

'
    Sheets("BTC Data").Select
    Application.Run "Cryptoprices8.xlsm!blockheight"
End Sub


Module 6 (nothing)
Module 7
Sub Macro3()
'
' Macro3 Macro
'

'
    Range("C36:I36").Select
    Selection.Copy
    Sheets("Log Sheet").Select
    Range("B3").Select
    Selection.End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub


Module 8
Sub Macro1()
'
' Macro1 Macro
'

'
End Sub


Module 9
Sub unhide()
'
' unhide Macro
'

'
    ActiveSheet.Range("$B$359:$AT$1500").AutoFilter Field:=6, Criteria1:="<>"
    ActiveSheet.Range("$B$359:$AT$1500").AutoFilter Field:=6
    ActiveSheet.Range("$B$359:$AT$1500").AutoFilter Field:=6, Criteria1:="<>"
End Sub


Module 10
Sub Macro2()
'
' Macro2 Macro
'

'
    Range("L1:L4").Select
    Selection.ClearContents
End Sub
Sub Macro4()
'
' Macro4 Macro
'

'
    Range("L1:L3").Select
    Selection.Cut
    Application.CutCopyMode = False
    Range("M1:M3").Select
    Selection.Cut
    Range("L1").Select
    ActiveSheet.Paste
End Sub


Module 11
Sub Macro5()
'
' Macro5 Macro
'

'
    Range("M20:M28").Select
    Selection.ClearContents
End Sub