Multiple task at once

[ride2esc]

Hello everyone
I am trying to make multi-calculation at once in excel, and firs I want to know if possible, and if yes..then how

From another tool I get some data which look like this:

Bot, [03.02.21 20:48]
Sell order executed at Bittrex
43.14492517 ZRX @ 0.73 USDT
Total: 31.49 USDT
Fees paid: 0.06 USDT
Average rate: 0.70 USDT
Break Even Price: 0.70 USDT
Profit/Loss of this trade: 1.50 USDT (5.28%)
Overall Profit/Loss: 6.19 USDT

Bot, [03.02.21 21:05]
Sell order executed at Binance
15634 HOT @ 0.00 USDT
Total: 12.99 USDT
Fees paid: 0.01 USDT
Average rate: 0.00 USDT
Break Even Price: 0.00 USDT
Profit/Loss of this trade: 0.41 USDT (3.38%)
Overall Profit/Loss: 3.85 USDT

And so on..
I want to extract in another sheet or in another column the following data:

Date	Market (bittrex, binance, etc)	Profit/loss	Overall profit/loss
03.02.21 20:48	Bittrex	1.50	3.85

After this is done, I want to do some calculations. Sums, and other, but those I know how.
So, I can copy and paste from the other program the data, then paste it in excel then the report.

Please advise.
Thank you

 

[ride2esc]

nope. No error but it does nothing..

 

[Fluff]

Is your data in col A?

 

[ride2esc]

Yes, column A!

 

[Fluff]

Using the code from mohadin in post#8 with the mods I made

Sub test()
    Dim a As Variant
    Dim ar As Range
    Range(Cells(1, 3), Cells(1, 6)) = Array("Date", "Market (bittrex, binance, etc)", "Profit/loss", "Overall profit/loss")
    For Each ar In Columns("A:A").SpecialCells(xlCellTypeConstants, 2).Areas
        a = ar
        a(1, 1) = Split(Split(a(1, 1), "[")(1), "]")(0)
        a(2, 1) = Split(a(2, 1), "at")(1)
        a(3, 1) = Split(Split(a(8, 1), ": ")(1), "USDT")(0) * 1
        a(4, 1) = Split(Split(a(9, 1), ": ")(1), " ")(0) * 1
        Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Resize(, 4) = Application.Transpose(a)
    Next
End Sub

gives me

+Fluff 1.xlsm
	A	B	C	D	E	F
1	Bot, [03.02.21 20:48]		Date	Market (bittrex, binance, etc)	Profit/loss	Overall profit/loss
2	Sell order executed at Bittrex		03.02.21 20:48	Bittrex	1.5	6.19
3	43.14492517 ZRX @ 0.73 USDT		03.02.21 21:05	Binance	0.41	3.85
4	Total: 31.49 USDT
5	Fees paid: 0.06 USDT
6	Average rate: 0.70 USDT
7	Break Even Price: 0.70 USDT
8	Profit/Loss of this trade: 1.50 USDT (5.28%)
9	Overall Profit/Loss: 6.19 USDT
10
11	Bot, [03.02.21 21:05]
12	Sell order executed at Binance
13	15634 HOT @ 0.00 USDT
14	Total: 12.99 USDT
15	Fees paid: 0.01 USDT
16	Average rate: 0.00 USDT
17	Break Even Price: 0.00 USDT
18	Profit/Loss of this trade: 0.41 USDT (3.38%)
19	Overall Profit/Loss: 3.85 USDT
20
21
Master

 

[ride2esc]

This code works also for me now!!!!
Thank you so MUCH!

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[mohadin]

​

@Fluff Thanks in deed