deleted

[guesswho1234]

deleted

[el kaka22]

So, you are providing an Excel sheet with macro functionality for free of cost. Nice try bro, keep it up.
But I have not heard any file hosting in the name of xup, so fear to open your links. I like to have any screen shot for excel sheet with data and how to use it effectively if possible.

[guesswho1234]

So, you are providing an Excel sheet with macro functionality for free of cost. Nice try bro, keep it up.

Exactly.
At first i made it just for me to keep track of my trading but someday i just thought why not share it and here it is.

But I have not heard any file hosting in the name of xup, so fear to open your links. I like to have any screen shot for excel sheet with data and how to use it effectively if possible.

Well i just typed "one click filehoster" into google this one seemed the easiest one upload some file.

This is a screenshot of the version i am currently using (a little bit older than the version i uploaded):
https://i.imgsafe.org/f0099efe6b.png

But if you still dont trust me you can just tinker it together yourself.
All you have to do is:
Make a new Excel-File with 3 sheets (first one = main-sheet where you put the code into, second one is where you paste the tradehistory-data and the third one is where you paste the deposithistory-data)
Add a button to sheet one with the name CommandButton1 (not the caption; caption can be whatever you want)
Paste the code from below into the main-sheet by Right-Click onto the main-sheet (down at the ribbon) -> Show Code -> Paste
Save it as <whatever>.xlsm (its important that you choose *.xlsm since you want to use a macro in this file)

Voila!

The only thing missing is the formatting but otherwise you should get the same result more or less.

The code:

Code:

Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect ("123")
    
    Dim sheetId As Integer
    sheetId = 1
    
    Dim s_date As Date
    If Worksheets(sheetId).Cells(4, 9).Value > 0 Then
        s_date = Worksheets(sheetId).Cells(4, 9).Value
    Else
        s_date = "01/01/1900"
    End If
    
    Dim e_date As Date
    If Worksheets(sheetId).Cells(5, 9).Value > 0 Then
        e_date = Worksheets(sheetId).Cells(5, 9).Value
    Else
        e_date = "01/01/1900"
    End If
    
    Dim sheetTHId As Integer
    sheetTHId = 2
    
    'preset
    Application.ScreenUpdating = False

    Worksheets(sheetId).Cells.Columns("A:E").ClearContents
    Worksheets(sheetId).Cells.Columns("A:E").Font.Bold = False
    Worksheets(sheetId).Cells.Columns("A:E").Borders.LineStyle = xlNone
    Worksheets(sheetId).Cells.Columns("A:E").Interior.ColorIndex = 0
    
    Worksheets(sheetId).Cells(1, 1).Value = "Market"
    Worksheets(sheetId).Cells(1, 2).Value = "Balance [BTC]"
    Worksheets(sheetId).Cells(1, 3).Value = "Fees paid [BTC]"
    Worksheets(sheetId).Cells(1, 4).Value = "Amount [Altcoins]"
    Worksheets(sheetId).Cells(1, 5).Value = "Break-Even-Price (without fees) [BTC]"
    Worksheets(sheetId).Range(Worksheets(sheetId).Cells(1, 1), Worksheets(sheetId).Cells(1, 5)).Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    'gen table based on tradehistory data
    Dim r_next As Boolean
    r_next = True
    
    Dim r_next2 As Boolean
    r_next2 = True
    
    Dim r As Integer
    r = 2
    
    Dim r2 As Integer
    r2 = 2
    
    Dim market As String
    market = ""
    
    Dim r_last As Integer
    r_last = 2
    
    'Loop through rows in [tradehistory]-sheet
    Do While r_next
        If Worksheets(sheetTHId).Cells(r, 1).Value <> "" Then
            If Worksheets(sheetTHId).Cells(r, 1).Value >= s_date And (Worksheets(sheetTHId).Cells(r, 1).Value <= e_date Or e_date = "01/01/1900") Then
                r_next2 = True
                r2 = 2
                market = Worksheets(sheetTHId).Cells(r, 2).Value
                
                'Loop through rows in [calc]-sheet to see if market of current row  in [tradehistory]-sheet is already listed
                Do While r_next2
                    If Worksheets(sheetId).Cells(r2, 1) <> market And Worksheets(sheetId).Cells(r2, 1) <> "" Then
                        r2 = r2 + 1
                    Else
                       Worksheets(sheetId).Cells(r2, 1).Value = market
                       r_next2 = False
                    End If
                    
                    If r_last < r2 Then
                        r_last = r2
                    End If
                Loop
                
                If Worksheets(sheetTHId).Cells(r, 4) = "Buy" Then
                    Worksheets(sheetId).Cells(r2, 2).Value = Worksheets(sheetId).Cells(r2, 2).Value - Worksheets(sheetTHId).Cells(r, 7).Value
                    Worksheets(sheetId).Cells(r2, 3).Value = Worksheets(sheetId).Cells(r2, 3).Value + 0
                End If
                
                If Worksheets(sheetTHId).Cells(r, 4) = "Sell" Then
                    Worksheets(sheetId).Cells(r2, 2).Value = Worksheets(sheetId).Cells(r2, 2).Value + Worksheets(sheetTHId).Cells(r, 10).Value
                    Worksheets(sheetId).Cells(r2, 3).Value = Worksheets(sheetId).Cells(r2, 3).Value + (Worksheets(sheetTHId).Cells(r, 7).Value - Worksheets(sheetTHId).Cells(r, 10).Value) + 0
                End If
                
                Worksheets(sheetId).Cells(r2, 4).Formula = "=SUMIF(" & Worksheets(sheetTHId).Name & "!B:B," & Worksheets(sheetId).Name & "!A" & r2 & "," & Worksheets(sheetTHId).Name & "!K:K)"
                Worksheets(sheetId).Cells(r2, 5).FormulaR1C1 = "=IF(RC[-1]>0.001, RC[-3] / RC[-1], ""."")"
                       
                'hatching for readiablity
                If r2 Mod 2 = 0 Then
                    Range(Worksheets(sheetId).Cells(r2, 1), Worksheets(sheetId).Cells(r2, 5)).Interior.ColorIndex = 15
                End If
            End If
            
            r = r + 1
        Else
            r_next = False
        End If
        
    Loop
    
    'correction based on deposithistory data
    sheetTHId = 3
    
    r_next2 = True
        
    r2 = 2
        
    Do While r_next2
        If Worksheets(sheetTHId).Cells(r2, 1).Value <> "" Then
            If Worksheets(sheetTHId).Cells(r2, 1).Value >= s_date And (Worksheets(sheetTHId).Cells(r2, 1).Value <= e_date Or e_date = "01/01/1900") Then
                If Worksheets(sheetTHId).Cells(r2, 2).Value <> "BTC" Then
                    r_next = True
                    r = 2
                        
                    Do While r_next
                        If Worksheets(sheetId).Cells(r, 1).Value <> "" Then
                            If Worksheets(sheetTHId).Cells(r2, 2).Value = Left(Worksheets(sheetId).Cells(r, 1).Value, Len(Worksheets(sheetTHId).Cells(r2, 2).Value)) Then
                                Worksheets(sheetId).Cells(r, 4).Formula = Worksheets(sheetId).Cells(r, 4).Formula & "+" & Worksheets(sheetTHId).Cells(r2, 3).Value
                            End If
                            
                            r = r + 1
                        Else
                            r_next = False
                        End If
                    Loop
                End If
            End If
        
            r2 = r2 + 1
        Else
            r_next2 = False
        End If
    Loop
    
    'finish with sum row
    Rows(r_last + 1).EntireRow.Font.Bold = True
    
    Worksheets(sheetId).Cells(r_last + 1, 1).Value = "SUM:"
    Worksheets(sheetId).Cells(r_last + 1, 2).Formula = "=SUM(B2:B" & r_last & ")"
    Worksheets(sheetId).Cells(r_last + 1, 3).Formula = "=SUM(C2:C" & r_last & ")*(-1)"
    Worksheets(sheetId).Range(Worksheets(sheetId).Cells(r_last + 1, 1), Worksheets(sheetId).Cells(r_last + 1, 5)).Borders(xlEdgeTop).LineStyle = xlContinuous
    
    Application.ScreenUpdating = True
    ActiveSheet.Protect ("123")
End Sub

greetings!

[Winner]

It isn't everyday that someone posts a free product in this particular section. Thanks for the Macro, I might see if I can get some use out of this via Excel.

How did you find this?

[guesswho1234]

It isn't everyday that someone posts a free product in this particular section. Thanks for the Macro, I might see if I can get some use out of this via Excel.

Isnt most of crypto stuff open source etc.?

Also to make it easier you can just follow the steps from above if you want to implement the code by yourself.

Remember though that the formatting will not be the same since i didnt format the "output-table" with the macro.

How did you find this?

Well i am a parttime softwaredev and wanted to contribute to the cryptoworld. Even if its not much its still something and i found it quite useful for myself so far.

So i didnt find it anywhere. I just made it myself.


greetings!

[FaucetRank.com]

I downloaded your excel file and later I shall check how it can help me to analyze poloniex coin data. I hope it will be very useful.

[Golftech]

I downloaded your excel file and later I shall check how it can help me to analyze poloniex coin data. I hope it will be very useful.

i will wait for your comments mate let me see if its useful i just started to trade as well so im looking for some helpful things to keep my trade updated.

[STT]

So, you are providing an Excel sheet with macro functionality for free of cost. Nice try bro, keep it up.
But I have not heard any file hosting in the name of xup, so fear to open your links. I like to have any screen shot for excel sheet with data and how to use it effectively if possible.

There is a general guide to websites, even google can be used roughly to gauge a website.  The worst sites are generally labelled by some service.    Here is one of them and its verdict on this host is good
https://www.mywot.com/en/scorecard/xup.in?utm_source=addon&utm_content=rw-viewsc

Doesnt mean the actual file is ok, Im not sure nowadays if excel allows anything really dangerous.  Its microsoft, probably

[guesswho1234]

So, you are providing an Excel sheet with macro functionality for free of cost. Nice try bro, keep it up.
But I have not heard any file hosting in the name of xup, so fear to open your links. I like to have any screen shot for excel sheet with data and how to use it effectively if possible.

Doesnt mean the actual file is ok, Im not sure nowadays if excel allows anything really dangerous.  Its microsoft, probably

It could be since its possible to execute stuff when opening the file. But i only uploaded the excel-file and no other *.exe that could be executed.

Furthermore you could just follow the instructions from my initial post where i explain how you can prevent macros from being started (renaming the file from *.xlsm to *.xlsx).

I think with all the stuff i provided it should be possible for everyone to test my file savely.

Here some more pictures:






greetings!

[guesswho1234]

UPDATE:

+ improved datepicker


I hope you guys like it and i am open for feedback!


greetings!


File: http://www.xup.in/dl,19204092/calc.xlsm/


feel free to donate (btc): 1L1dUy9iuakec4kSDhs3KuMw3gEfwhuqsJ

[Millionero]

following

[chris330]

I'm still lost in what could be this one file "Transactionhistory.csv"  poloniex offfers deposit and withdrawl, tradehistory, lendinghistory.. where u get that one?

+1 still looking for that myself

[guesswho1234]

I'm still lost in what could be this one file "Transactionhistory.csv"  poloniex offfers deposit and withdrawl, tradehistory, lendinghistory.. where u get that one?

I'm still lost in what could be this one file "Transactionhistory.csv"  poloniex offfers deposit and withdrawl, tradehistory, lendinghistory.. where u get that one?

+1 still looking for that myself

either they have renamed it or it was wrong the whole time

anyways whats ment is the d & w history

sry for that one  

Just noticed that people might not exclusively trade <altcoin> / btc which means as soon as you f.e. trade xmr / usdt my workbook could break.

I didnt try what exactly happens if you do so but im sure it will alter the results.

So keep that in mind when you are using my current version.

Im planning to fix this as soon as possible but dont know yet when i have time for that.


greetings!


feel free to donate (btc): 1L1dUy9iuakec4kSDhs3KuMw3gEfwhuqsJ

UPDATE:

+ quick fix for the above problem so that you now get the correct profit/loss BTC value (have not found time yet to implement that you can choose between BTC, USDT, etc. ... it is on my list though)

I hope you guys like it and i am open for feedback!


greetings!


File: http://www.xup.in/dl,15547789/calc.xlsm/


feel free to donate (btc): 1L1dUy9iuakec4kSDhs3KuMw3gEfwhuqsJ

[chris330]

I cannot get this to work at all  

Get a compile error "cant find project or library"

Virus Total for others for people worried about the file
https://www.virustotal.com/en/file/2edffe063d34a127f2f6d4d5199111faf7241f50bf0a292446e836b557f567b7/analysis/1490696890/

[guesswho1234]

I cannot get this to work at all  

Get a compile error "cant find project or library"

Virus Total for others for people worried about the file
https://www.virustotal.com/en/file/2edffe063d34a127f2f6d4d5199111faf7241f50bf0a292446e836b557f567b7/analysis/1490696890/

got a screenshot maybe?

also are you using a mac?
sadly it somehow does not work on macs

i can also offer you to add me on skype: constraccta


greetings

[hanisnl]

Hi there !

Nice job building this .

I think you should revise the XML as it has 3 sheets :
calc
tradeHistory
transactionHistory


I think maybe the tradeHistory is the deposit history ? or ?

EDIT:
also, I canțt get this work .. I get an error in the macros :
Method or Data member not found - when I try to select multiple dates. .. the macro is looking for COLUMN L2:
ActiveChart.FullSeriesCollection(1).Values = "=tradeHistory!$L$2:$L$" & r - 1
I think that should be the date, and for example when I export all trade history I have the date in the first column .

... also the selection is a bit weird .. you are better with CTRL+click on each date... but maybe it should take into account all the data by default .

I hope you get a working example up soon ! good luck !

[Klon522]

Hi guesswho1234,

thank you very much for your effort on this programm.

Is it mandatory to use MS Office for that? Because i got an error, when i press go. I use LibreOffice 5.3.1.2.


c/ximg.php?fid=55233911[/img]

No difference with or without the data from polo provided.

Also,i cant set the date right. I can choose year and month, but not the day.

[guesswho1234]

I think you should revise the XML as it has 3 sheets :
calc
tradeHistory
transactionHistory

the reason for this is so that each data-input is seperate and nothing gets confused

so the calc sheet is the main sheet where all the macro stuff happens while the other 2 sheets are only for data you export from poloniex

I think maybe the tradeHistory is the deposit history ? or ?

tradeHistory = history from all your trades on poloniex (https://poloniex.com/tradeHistory)
depositHistory = history fromm all your deposits on poloniex (https://poloniex.com/depositHistory)

EDIT:
also, I canțt get this work .. I get an error in the macros :
Method or Data member not found - when I try to select multiple dates. .. the macro is looking for COLUMN L2:
ActiveChart.FullSeriesCollection(1).Values = "=tradeHistory!$L$2:$L$" & r - 1
I think that should be the date, and for example when I export all trade history I have the date in the first column .

i am a little confused with what you are doing.

what do you mean by "select multiple dates"?
afterall you should select a timeframe with the datepicker (from-date, to-date).

also the error you get has nothing to do with the date.
the "L"-Column should be empty when you import your data (it gets filled by the macro and is used for the graph).
it is correct that the first column is the date in the data from poloniex. thats the way it should be

... also the selection is a bit weird .. you are better with CTRL+click on each date... but maybe it should take into account all the data by default .

again i dont know what you are doing with the dates.

this is how it is suppoed to work (which it does on my computer atleast  ) for both dates (from-date, to-date):
-select month and year with the dropdown that opens when you click into the cell
-click on the cells for selecting a day (no dropdown there. it just takes the day you clicked on)
-if you do that the written date in the cell below the datepicker should change respectively (you could change that date manually too but is not recommended since the format needs to be correct. use the datepicker)
-hit go

maybe re-download my file and try this without any data. if that works you can again import your poloniex data as described.


greetings

[guesswho1234]

Hi guesswho1234,

thank you very much for your effort on this programm.

Is it mandatory to use MS Office for that? Because i got an error, when i press go. I use LibreOffice 5.3.1.2.

yes

it would be a miracle if any excel fake would be able to do what the original is capable of doing

c/ximg.php?fid=55233911[/img]

No difference with or without the data from polo provided.

Also,i cant set the date right. I can choose year and month, but not the day.

your link somehow got removed. try https://imgsafe.org/ maybe

also i think the reason that it does not work is beacuse you are not using ms excel.

sorry for that i can only provide it for ms excel.

btw. if you are a student you should get a free license for all ms office products from your university.


greetings

[Klon522]

Thank you for your answer.

Here the image with the error on your suggested site: https://i.imgsafe.org/f9f23eb8ee.jpg

And i don't like MS Office very much. For some reasons....but i fully understand your statement with the free ("fake") version.

and i looked into it: Yes, i can get a free copy of the 356 one..... but ohh that pain....maybe i will try something different before i sell my full soul to MS.

I think i have an old version (2010 or so)....let's try this first.