Macro Lookup

Ravin

Board Regular
Joined
Aug 24, 2012
Messages
67
I need some help on the best way to action this

I have a list of IDs in a single column A in excel, the number of IDs will vary in length over time (tab called ID)

e.g
100
200
300

I need to lookup those IDs against another sheet that contains 100k rows (tab called Lookup)

the lookup result is always in column H which is 5 columns away from the lookup row the lookup start is Column D

the challenge is the original ID will have multiple results

i.e.
ID Result
100 A
100 B
100 C
200 G
300 H

and I need all the results in one column, next to original ID as above called output A

then I need to take all those result references and lookup against another sheet in excel (Stock)

the result lookup will be in column A in that sheet

but this time I dont want to see the reference result if it doesnt appear on stock sheet via the lookup
and if it does appear on sheet only if the data in column H= FALSE
and finally I want a date check on column C where date = today but the date is formatted as so "2021-03-19T06:00:19.196Z" so it needs to check the first 10 characters

and want to call this output B

A Geoff 2021-03-19 True True Yes True 1 80

A being the original result - and the entire row of data that appeared on stock tab - that satisfied those conditions
 
dante example.xlsx
ABCDEFGHI
1skuurldateaddToBasketButtonPresentclickAndCollectPresentdeliveryPromisestockCheckPresentnumberOfStoresprice
2
3
4
output
 
Upvote 0

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.
1616798553218.png
 
Upvote 0
That's because no records match.
Put records dated March 26 or the date of the execution.

Try this:

VBA Code:
Sub Output_Results()
  Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, sh4 As Worksheet
  Dim a As Variant, b As Variant, c As Variant, d As Variant, e As Variant
  Dim i As Long, j As Long, k As Long
  Dim dic As Object
  Dim itm As Variant
  Dim fec As Date
  Dim sta As Boolean
  
  Set sh1 = Sheets("enter item")
  Set sh2 = Sheets("data")
  Set sh3 = Sheets("stock")
  Set sh4 = Sheets("output")
  Set dic = CreateObject("Scripting.Dictionary")
  
  sh1.Range("C2:D" & Rows.Count).ClearContents
  sh4.Range("A2:I" & Rows.Count).ClearContents
  
  a = sh1.Range("A2", sh1.Range("A" & Rows.Count).End(3)).Value2
  b = sh2.Range("A2", sh2.Range("H" & Rows.Count).End(3)).Value2
  c = sh3.Range("A2", sh3.Range("I" & Rows.Count).End(3)).Value2
  ReDim d(1 To UBound(b, 1), 1 To 2)
  ReDim e(1 To UBound(c, 1), 1 To 9)
  
  For i = 1 To UBound(b, 1)
    If dic.exists(b(i, 1)) Then
      dic(b(i, 1)) = dic(b(i, 1)) & "|" & b(i, 8)
    Else
      dic(b(i, 1)) = b(i, 8)
    End If
  Next
  
  For i = 1 To UBound(a, 1)
    If dic.exists(a(i, 1)) Then
      For Each itm In Split(dic(a(i, 1)), "|")
        k = k + 1
        d(k, 1) = a(i, 1)
        d(k, 2) = itm
      Next
    End If
  Next
  
  dic.RemoveAll
  For i = 1 To UBound(c, 1)
    dic(CStr(c(i, 1))) = c(i, 1) & "|" & c(i, 2) & "|" & c(i, 3) & "|" & c(i, 4) & "|" & _
                   c(i, 5) & "|" & c(i, 6) & "|" & c(i, 7) & "|" & c(i, 8) & "|" & c(i, 9)
  Next
  
  For i = 1 To UBound(d, 1)
    If dic.exists(d(i, 2)) Then
      fec = CDate(Left(Split(dic(d(i, 2)), "|")(2), 10))
      sta = Split(dic(d(i, 2)), "|")(6)
      If fec = Date And sta = True Then
        j = j + 1
        k = 0
        For Each itm In Split(dic(d(i, 2)), "|")
          k = k + 1
          e(j, k) = itm
        Next
      End If
    End If
  Next
  
  'output sheet "enter item"
  sh1.Range("C2").Resize(k, 2).Value = d
  'output sheet "output"
  If j = 0 Then
    MsgBox "No record matches"
  Else
    sh4.Range("A2").Resize(j, 9).Value = e
    MsgBox "End output"
  End If
End Sub
 
Upvote 0
That's because no records match.
Put records dated March 26 or the date of the execution.

Try this:

VBA Code:
Sub Output_Results()
  Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, sh4 As Worksheet
  Dim a As Variant, b As Variant, c As Variant, d As Variant, e As Variant
  Dim i As Long, j As Long, k As Long
  Dim dic As Object
  Dim itm As Variant
  Dim fec As Date
  Dim sta As Boolean
 
  Set sh1 = Sheets("enter item")
  Set sh2 = Sheets("data")
  Set sh3 = Sheets("stock")
  Set sh4 = Sheets("output")
  Set dic = CreateObject("Scripting.Dictionary")
 
  sh1.Range("C2:D" & Rows.Count).ClearContents
  sh4.Range("A2:I" & Rows.Count).ClearContents
 
  a = sh1.Range("A2", sh1.Range("A" & Rows.Count).End(3)).Value2
  b = sh2.Range("A2", sh2.Range("H" & Rows.Count).End(3)).Value2
  c = sh3.Range("A2", sh3.Range("I" & Rows.Count).End(3)).Value2
  ReDim d(1 To UBound(b, 1), 1 To 2)
  ReDim e(1 To UBound(c, 1), 1 To 9)
 
  For i = 1 To UBound(b, 1)
    If dic.exists(b(i, 1)) Then
      dic(b(i, 1)) = dic(b(i, 1)) & "|" & b(i, 8)
    Else
      dic(b(i, 1)) = b(i, 8)
    End If
  Next
 
  For i = 1 To UBound(a, 1)
    If dic.exists(a(i, 1)) Then
      For Each itm In Split(dic(a(i, 1)), "|")
        k = k + 1
        d(k, 1) = a(i, 1)
        d(k, 2) = itm
      Next
    End If
  Next
 
  dic.RemoveAll
  For i = 1 To UBound(c, 1)
    dic(CStr(c(i, 1))) = c(i, 1) & "|" & c(i, 2) & "|" & c(i, 3) & "|" & c(i, 4) & "|" & _
                   c(i, 5) & "|" & c(i, 6) & "|" & c(i, 7) & "|" & c(i, 8) & "|" & c(i, 9)
  Next
 
  For i = 1 To UBound(d, 1)
    If dic.exists(d(i, 2)) Then
      fec = CDate(Left(Split(dic(d(i, 2)), "|")(2), 10))
      sta = Split(dic(d(i, 2)), "|")(6)
      If fec = Date And sta = True Then
        j = j + 1
        k = 0
        For Each itm In Split(dic(d(i, 2)), "|")
          k = k + 1
          e(j, k) = itm
        Next
      End If
    End If
  Next
 
  'output sheet "enter item"
  sh1.Range("C2").Resize(k, 2).Value = d
  'output sheet "output"
  If j = 0 Then
    MsgBox "No record matches"
  Else
    sh4.Range("A2").Resize(j, 9).Value = e
    MsgBox "End output"
  End If
End Sub

of course thanks Dante because it was debugging and Ihadnt picked up the smaple date was out of date thankyou so much
 
Upvote 0
of course thanks Dante because it was debugging and Ihadnt picked up the smaple date was out of date thankyou so much

Dante I have run the latest data, and the code runs perfectly

but the outputs vary

so the 1st output only displays 9 items rather than 29 items

BOM Macro v3 Working.xlsm
ABCD
1Enter Component SKU BelowComponent SKUSelling SKU
2206182206182206182
3206011206011206011
4234613234613234613
5103206103206103206
6234438234438234438
7231007231007231007
8157665157665157665
9230987230987230987
10231006231006231006
11234440
12173918
13220570
14231756
15192444
16148193
17231838
18192393
19234434
20230990
21157664
22230991
23193862
24206012
25157747
26193834
27158535
28192448
29203383
30205978
enter item
Cells with Conditional Formatting
CellConditionCell FormatStop If True
C2:C1048576Cell Value>0textNO
A2:A1048576Cell Value>0textNO
D2:D1048576Cell Value>0textNO


BOM Macro v3 Working.xlsm
ABCDEFGHIJKLM
1Component SKUComponent DescriptionJDA StatusComponent SKUSKU_DESCRIPTIONCategoryJDA StatusSelling SKUSelling SkuDescriptionJDA Status
2100006Elux 14cm Warming Drawer EED14800AXACTIVE100006Elux 14cm Warming Drawer EED14800AXShowroom KitchensACTIVE100006100005Zan F/S Washing Machine ZWH6160P WhiteDELETE
3100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019100006Elux 14cm Warming Drawer EED14800AXACTIVE
4100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019100019Kitchen Installation Hippo Skip BagACTIVE
5100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019100020Bathroom Installation Hippo Skip BagACTIVE
6100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019100023Vieste Close Coupled PanACTIVE
7100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019100024Vieste Close Coupled CisternACTIVE
8100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019100025Vieste 550mm 1th BasinACTIVE
9100020Bathroom Installation Hippo Skip BagACTIVE100020Bathroom Installation Hippo Skip BagInstallationsACTIVE100020100026Vieste Full PedestalACTIVE
10100023Vieste Close Coupled PanACTIVE100023Vieste Close Coupled PanShowroom BathroomsACTIVE100023100027Vieste 450mm Cloakroom BasinACTIVE
11100024Vieste Close Coupled CisternACTIVE100024Vieste Close Coupled CisternShowroom BathroomsACTIVE100024100028Vieste Semi PedestalACTIVE
12100025Vieste 550mm 1th BasinACTIVE100025Vieste 550mm 1th BasinShowroom BathroomsACTIVE100025100029Vieste Comfort Height PanACTIVE
13100026Vieste Full PedestalACTIVE100026Vieste Full PedestalShowroom BathroomsACTIVE100026100030Vieste Soft Close Toilet SeatACTIVE
14100027Vieste 450mm Cloakroom BasinACTIVE100027Vieste 450mm Cloakroom BasinShowroom BathroomsACTIVE10002710003540mm Sq/Rec Easy Plumb KitDELETE
15100028Vieste Semi PedestalACTIVE100028Vieste Semi PedestalShowroom BathroomsACTIVE10002810003640mm Quad/Offset Quad Easy Plumb KitACTIVE
16100029Vieste Comfort Height PanACTIVE100029Vieste Comfort Height PanShowroom BathroomsACTIVE100029100037Frosted/Tan 25mm Waste Kit.DELETE
17100030Vieste Soft Close Toilet SeatACTIVE100030Vieste Soft Close Toilet SeatShowroom BathroomsACTIVE100030100038Sesto/Trento Cistern FittingsACTIVE
1810003640mm Quad/Offset Quad Easy Plumb KitACTIVE10003640mm Quad/Offset Quad Easy Plumb KitShowroom BathroomsACTIVE100036100041Sesto CisternDELETE
19100038Sesto/Trento Cistern FittingsACTIVE100038Sesto/Trento Cistern FittingsShowroom BathroomsACTIVE100038100042Trento CisternACTIVE
20100042Trento CisternACTIVE100042Trento CisternShowroom BathroomsACTIVE100042100217C RICA CRM Facia HL Frdg/Laund 600x722mmDELETE
21100343April 8mm Glass Quadrant Enclosure 900ACTIVE100343April 8mm Glass Quadrant Enclosure 900Showroom BathroomsACTIVE100343100218ROCKFORD Plinth 2.5MDELETE
22100344April 8mm Glass Slider Door Only 1200ACTIVE100344April 8mm Glass Slider Door Only 1200Showroom BathroomsACTIVE100344100219STAMFORD Single Oven TowerDELETE
23100345April 8mm Glass Slider Enclosure 800ACTIVE100344April 8mm Glass Slider Door Only 1200Showroom BathroomsACTIVE100345100220STAMFORD Larder Unit 600mmDELETE
24100345April 8mm Glass Slider Enclosure 800ACTIVE167488April Enclosure side panel 800mmShowroom BathroomsACTIVE100345100221TENBY Thick Decor End TallDELETE
25100346April 8mm Glass Slider Enclosure 900ACTIVE100344April 8mm Glass Slider Door Only 1200Showroom BathroomsACTIVE100346100222GALWAY Thick Decor End TallDELETE
26100346April 8mm Glass Slider Enclosure 900ACTIVE167489April Enclosure side panel 900mmShowroom BathroomsACTIVE100346100343April 8mm Glass Quadrant Enclosure 900ACTIVE
27100384Venturi 6 Dble Door Offset Quad 1200x800ACTIVE100384Venturi 6 Dble Door Offset Quad 1200x800Showroom BathroomsACTIVE100384100344April 8mm Glass Slider Door Only 1200ACTIVE
28100393Saluzzo Mono Basin MixerACTIVE100393Saluzzo Mono Basin MixerShowroom BathroomsACTIVE100393100345April 8mm Glass Slider Enclosure 800ACTIVE
29100394Saluzzo 2 tap hole Bath Filler no plateACTIVE100394Saluzzo 2 tap hole Bath Filler no plateShowroom BathroomsACTIVE100394100346April 8mm Glass Slider Enclosure 900ACTIVE
30100395Saluzzo Bath Shower Mixer 2thACTIVE100395Saluzzo Bath Shower Mixer 2thShowroom BathroomsACTIVE100395100384Venturi 6 Dble Door Offset Quad 1200x800ACTIVE
31100397Teramo Tall Basin MixerACTIVE100397Teramo Tall Basin MixerShowroom BathroomsACTIVE100397100393Saluzzo Mono Basin MixerACTIVE
32100398Teramo Compact Mono Basin MixerACTIVE100398Teramo Compact Mono Basin MixerShowroom BathroomsACTIVE100398100394Saluzzo 2 tap hole Bath Filler no plateACTIVE
33100400Teramo Bath Shower Mixer 2thACTIVE100400Teramo Bath Shower Mixer 2thShowroom BathroomsACTIVE100400100395Saluzzo Bath Shower Mixer 2thACTIVE
data
 
Upvote 0
so the list of items we detail in enter item sheet will vary from 5 items to a hundred items

the combinations which you detail in c2:D

doesnt seem to display all the combinations

it seems to only show 9 rows

but the next output seems to suggest it is looking up all the combinations

Rav
 
Upvote 0
That's because no records match.
Put records dated March 26 or the date of the execution.

Try this:

VBA Code:
Sub Output_Results()
  Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, sh4 As Worksheet
  Dim a As Variant, b As Variant, c As Variant, d As Variant, e As Variant
  Dim i As Long, j As Long, k As Long
  Dim dic As Object
  Dim itm As Variant
  Dim fec As Date
  Dim sta As Boolean
 
  Set sh1 = Sheets("enter item")
  Set sh2 = Sheets("data")
  Set sh3 = Sheets("stock")
  Set sh4 = Sheets("output")
  Set dic = CreateObject("Scripting.Dictionary")
 
  sh1.Range("C2:D" & Rows.Count).ClearContents
  sh4.Range("A2:I" & Rows.Count).ClearContents
 
  a = sh1.Range("A2", sh1.Range("A" & Rows.Count).End(3)).Value2
  b = sh2.Range("A2", sh2.Range("H" & Rows.Count).End(3)).Value2
  c = sh3.Range("A2", sh3.Range("I" & Rows.Count).End(3)).Value2
  ReDim d(1 To UBound(b, 1), 1 To 2)
  ReDim e(1 To UBound(c, 1), 1 To 9)
 
  For i = 1 To UBound(b, 1)
    If dic.exists(b(i, 1)) Then
      dic(b(i, 1)) = dic(b(i, 1)) & "|" & b(i, 8)
    Else
      dic(b(i, 1)) = b(i, 8)
    End If
  Next
 
  For i = 1 To UBound(a, 1)
    If dic.exists(a(i, 1)) Then
      For Each itm In Split(dic(a(i, 1)), "|")
        k = k + 1
        d(k, 1) = a(i, 1)
        d(k, 2) = itm
      Next
    End If
  Next
 
  dic.RemoveAll
  For i = 1 To UBound(c, 1)
    dic(CStr(c(i, 1))) = c(i, 1) & "|" & c(i, 2) & "|" & c(i, 3) & "|" & c(i, 4) & "|" & _
                   c(i, 5) & "|" & c(i, 6) & "|" & c(i, 7) & "|" & c(i, 8) & "|" & c(i, 9)
  Next
 
  For i = 1 To UBound(d, 1)
    If dic.exists(d(i, 2)) Then
      fec = CDate(Left(Split(dic(d(i, 2)), "|")(2), 10))
      sta = Split(dic(d(i, 2)), "|")(6)
      If fec = Date And sta = True Then
        j = j + 1
        k = 0
        For Each itm In Split(dic(d(i, 2)), "|")
          k = k + 1
          e(j, k) = itm
        Next
      End If
    End If
  Next
 
  'output sheet "enter item"
  sh1.Range("C2").Resize(k, 2).Value = d
  'output sheet "output"
  If j = 0 Then
    MsgBox "No record matches"
  Else
    sh4.Range("A2").Resize(j, 9).Value = e
    MsgBox "End output"
  End If
End Sub

Hi Dante

So there is definitely a range length issue

so I have re run the data again today

my list of lookup items is about 100

it looks up and returns only 10 results for first output when i expected 100 results

but it doesnt look across all the range defined in data tab. There are 100k rows in data tab

and obviously it also doesnt then lookup all the results against stock

i've checked the formats and to make sure it works i have reformatted all items to text on each tab

Rav

Dante example v2.xlsm
ABCDE
1Enter Component SKU BelowComponent SKUSelling SKU
2167938103206103206
3173923157665157665
4187407148193148193
5231808157747157747
6322140158535158535
7234432142248142248
8206011142249142249
9234613148825148825
10103206161559161559
11234438
12231007
13157665
14230987
15231006
16234440
17173918
18220570
19231756
20192444
21148193
22231838
enter item
Cells with Conditional Formatting
CellConditionCell FormatStop If True
C2:C1048576Cell Value>0textNO
A2:A1048576Cell Value>0textNO
D2:D1048576Cell Value>0textNO


Dante example v2.xlsm
ABCDEFGH
1Component SKUComponent DescriptionJDA StatusComponent SKUSKU_DESCRIPTIONCategoryJDA StatusSelling SKU
2100006Elux 14cm Warming Drawer EED14800AXACTIVE100006Elux 14cm Warming Drawer EED14800AXShowroom KitchensACTIVE100006
3100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019
4100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019
5100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019
6100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019
7100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019
8100019Kitchen Installation Hippo Skip BagACTIVE100019Kitchen Installation Hippo Skip BagInstallationsACTIVE100019
9100020Bathroom Installation Hippo Skip BagACTIVE100020Bathroom Installation Hippo Skip BagInstallationsACTIVE100020
10100023Vieste Close Coupled PanACTIVE100023Vieste Close Coupled PanShowroom BathroomsACTIVE100023
11100024Vieste Close Coupled CisternACTIVE100024Vieste Close Coupled CisternShowroom BathroomsACTIVE100024
12100025Vieste 550mm 1th BasinACTIVE100025Vieste 550mm 1th BasinShowroom BathroomsACTIVE100025
13100026Vieste Full PedestalACTIVE100026Vieste Full PedestalShowroom BathroomsACTIVE100026
14100027Vieste 450mm Cloakroom BasinACTIVE100027Vieste 450mm Cloakroom BasinShowroom BathroomsACTIVE100027
15100028Vieste Semi PedestalACTIVE100028Vieste Semi PedestalShowroom BathroomsACTIVE100028
16100029Vieste Comfort Height PanACTIVE100029Vieste Comfort Height PanShowroom BathroomsACTIVE100029
17100030Vieste Soft Close Toilet SeatACTIVE100030Vieste Soft Close Toilet SeatShowroom BathroomsACTIVE100030
1810003640mm Quad/Offset Quad Easy Plumb KitACTIVE10003640mm Quad/Offset Quad Easy Plumb KitShowroom BathroomsACTIVE100036
19100038Sesto/Trento Cistern FittingsACTIVE100038Sesto/Trento Cistern FittingsShowroom BathroomsACTIVE100038
data


Dante example v2.xlsm
ABCDEFGHI
1skuurldateaddToBasketButtonPresentclickAndCollectPresentdeliveryPromisestockCheckPresentnumberOfStoresprice
2100006bb2021-04-01T06:00:19.652ZTRUEFALSEWithin 14 daysFALSE0329.00
3100007bb2021-04-01T06:00:19.652ZTRUEFALSEWithin 21 days from our supplierFALSE04250.00
4100008bb2021-04-01T06:00:19.664ZTRUEFALSEWithin 21 days from our supplierFALSE05050.00
5100009bb2021-04-01T06:00:19.652ZTRUEFALSEWithin 21 days from our supplierFALSE05350.00
6100010bb2021-04-01T06:00:19.652ZTRUEFALSEWithin 21 days from our supplierFALSE05600.00
7100016bb2021-04-01T06:00:19.650ZTRUETRUENext day availableFALSE22450.00
8100264bb2021-04-01T06:00:19.665ZTRUETRUENext day availableFALSE2238.25
9100269bb2021-04-01T06:00:19.649ZTRUETRUENext day availableFALSE1976.30
10100270bb2021-04-01T06:00:19.649ZTRUETRUENext day availableFALSE20410.00
11100272bb2021-04-01T06:00:19.652ZTRUETRUENext day availableFALSE22712.70
12100320bb2021-04-01T06:00:19.668ZTRUETRUENext day availableFALSE18537.00
13100321bb2021-04-01T06:00:19.668ZTRUETRUENext day availableFALSE16937.00
14100322bb2021-04-01T06:00:19.668ZTRUETRUENext day availableFALSE18037.00
15100329bb2021-04-01T06:00:19.652ZTRUETRUENext day availableFALSE1006.50
16100330bb2021-04-01T06:00:19.668ZTRUETRUENext day availableFALSE19237.00
17100393bb2021-04-01T06:00:19.674ZTRUEFALSEWithin 14 daysFALSE060.00
18100394bb2021-04-01T06:00:19.649ZTRUETRUEWithin 14 daysFALSE180.00
stock


Rav
 
Upvote 0

Forum statistics

Threads
1,214,652
Messages
6,120,746
Members
448,989
Latest member
mariah3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top