SMART VACUUM - Auto-Vacuum Fresh Dome SV002 10L

Review on this product which I bought due to my interest in those vacuum capability items.

Item: SMART VACUUM - Auto-Vacuum Fresh Dome SV002 10L
Objective: Needed a container to keep my bread fresh

Price: $105 SGD (Cash and carry from NTUC @ JEM)
Period of usage till date: Now, it's almost 2 week of using,
Review: Not bad so far as there ain't any bugs/ants spotted. Bread remains fresh despite 3 days storage.

Suggestion: Advised to use the big size battery rather than the AA battery with adapter. The suction seems to be more powerful when using the big size battery based on the suction sound. The first day I used AA battery and due to the below (detailed in the "some challenges faced) encountered, the second day the battery was totally drained. After changing to the big size battery, I don't need to change the battery till date.

Some challenges faced: Initially, it seemed that the suction is never completed because the suction keep going on every 15 mins interval. Tried to clean the silicon surface, but still same thing happened. It was after 2 days of trial and error that we realized because we never pressed the cover for 10 secs when we activated the suction. Now finally used to how it works and it's amazing.

http://www.innovative101.com/contact.html

My dreams

Why does tiredness come to find me?

It ripped me of my joy... it ripped me of my happiness...

It makes me feel so tired... It makes me feel so sad...

I've learned that not holding on is a better choice, and I have since found relief

It is sad that everything has to come to this.

People said that everyone has their own plan to make

So I am making my own plans.

For a brief moment in time, my dream came true..

But now I know it's time to let it go.

My dreams...

How can you be so near yet so far away?

My pain... it would be hard to get through..

But who could handle pain easily?

My dreams...

There is no reason to push the blame at others

For I am the one to make the decision

my dreams are gone....

Foodie Times Gelato Gelateria Italia from qoo10

Another hobby of mine~ Buying stuffs online..! Bought this e-ticket via qoo10 and it's a good offer if you are into gelato. The one shortcoming is the need to print out the hardcopy voucher.

What: Gelato from Gelateria Italia.

Choice: Except for the Durian flavor, free to choose any flavor (free flow toppings of chocolate chips, mini marshmallows and rainbow rice but it's difficult to take cos the gelato is quite a lot and not much room for the topping)

Size:
The smallest is Piccolo Cup - Choose only 1 flavor (Just nice for 1 person)
The biggest cup is 255g Cup - Choose 3 flavors (Good for sharing, too big portion for 1 to finish as I tried it and really it's a LOT!

Where to buy: Qoo10.sg
When to buy: Time sale! Lowest price I bought is $1.99 for Piccolo Cup and $3.95 for 255g cup

What to note:
1. The expiry date (Previously was 2 months whereas the last one I bought is till end of 31st Aug 2013)
2. Location. Although there are 7 stores in Singapore, this voucher can only be redeemed from 5 stores.

My coding

Private Sub Worksheet_Change(ByVal Target As Range)

'If Target.Column = 1 Or Target.Column = 2 Then

'if index don't exists, then pass in the last row index with last column index)


summary_row = Sheet1.Cells(Rows.Count, "a").End(xlUp).row
index_row = Sheet2.Cells(Rows.Count, "a").End(xlUp).row
lastCol = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Column


i = indexCell(Target.row, summary_row, index_row)
MsgBox (i)
MsgBox (summary_row)
If i <> summary_row Then
MsgBox (i)
MsgBox (Target.row)
    Call FillCells(i, Target.row, lastCol)
Else
    Call FillCells(summary_row + 1, index_row, lastCol)
End If

'if index exists, then pass in pass in the existed row index with last column index)
'Call FillCells(existrow, lastCol)

'End If


End Sub

Public Function indexCell(ByVal selected_row As Integer, ByVal summary_lastrow As Integer, ByVal index_lastrow As Integer) As Integer

Dim j As Integer

    j = summary_lastrow
 
    For i = 1 To summary_lastrow
        If Sheet1.Cells(i, 1).Value = Sheet2.Cells(selected_row, 1).Value Then
            j = i
        End If
    Next i
     
    indexCell = j
 
End Function
Sub FillCells(ByVal summary_row As Integer, ByVal index_row As Integer, ByVal col As Integer)

   'this portion is to cater to insert new row.
 
   
        Sheet1.Cells(summary_row, 1).Value = Sheet2.Cells(index_row, 1).Value
     
        If Sheet2.Cells(index_row, 2).Value = "Priority 1" Then
           Sheet1.Cells(summary_row, 2).Value = "1"
        ElseIf Sheet2.Cells(index_row, 2).Value = "Priority 2" Then
           Sheet1.Cells(summary_row, 2).Value = "2"
        ElseIf Sheet2.Cells(index_row, 2).Value = "Priority 3" Then
           Sheet1.Cells(summary_row, 2).Value = "3"
        End If
       
        For i = 1 To col
        'MsgBox (Sheet2.Cells(1, i).Value)
            If Sheet2.Cells(1, i).Value = "first count" Then
                Sheet1.Cells(summary_row, 3).Value = Sheet2.Cells(index_row, i).Value
                MsgBox (Sheet2.Cells(index_row, i).Value)
            End If
        Next i
     
         For i = 1 To col
        'MsgBox (Sheet2.Cells(1, i).Value)
            If Sheet2.Cells(1, i).Value = "last count" Then
                Sheet1.Cells(summary_row, 4).Value = Sheet2.Cells(index_row, i).Value
            End If
        Next i
     
        If (Sheet1.Cells(summary_row, 4).Value <> "") Or (Sheet1.Cells(summary_row, 3).Value <> "") Then
        a = Sheet1.Cells(summary_row, 3).Value
        b = Sheet1.Cells(summary_row, 4).Value
        'c = (b - a) / a
            Sheet1.Cells(summary_row, 6).Value = FormatPercent(((a - b) / a), 2)
        End If
 
    'Cell(row, column)
 

End Sub

I welcome myself back to blogging~

The last post was dated 2011! OMG. It's been SOOOO long since I updated anything. It's scary how times pass so fast.

I am back here again.

Welcome myself! haha

objective for coming back
1. Post more on food
2. talk more on drama/songs
3. keep myself going at making accessories, hopefully can attract people to buy from me and make a decent living online.
4. Keep myself entertain! LOL