Learning VBA

V

Vin90

New Member
Joined
Oct 20, 2017
Messages
29
Hi guys,

I'm currently working & learning to play with VBA and create certain command button and userforms to ease some of the job.

So I've been working on this forms and get stuck with "Compile Error: Method or data member not found"

The idea is to have 1 command button on the 1st userform which will prompt the 2nd userform, and on the 2nd userform there are two command buttons (cmdY - Yes, cmdN - No).

I've get the first part of the form working properly, but when I get the aforementioned error when I click on the cmd1 button.

Here is how I code:

Userform 1:
Code: 
Private Sub UserForm_Initialize()
[COLOR=#008000]    'Populate control.
[/COLOR]    With cboShift
        .AddItem "Night"
        .AddItem "Morning"
        .AddItem "Evening"
    End With
    With cboPrd
        .AddItem "K2"
        .AddItem "TC"
        .AddItem "TP"
    End With
    txtDate.Value = Format(Date, "mm/dd/yyyy")
    Label1100.Font.Size = 15
    Label1100.Font.Bold = True
    Label1200.Font.Size = 14
    Label1200.Font.Bold = True
    Label1300.Font.Size = 14
    Label1300.Font.Bold = True
    Label1301.Font.Size = 10
    Label1301.Font.Bold = True
    Label1302.Font.Size = 10
    Label1302.Font.Bold = True
    Label1400.Font.Size = 14
    Label1400.Font.Bold = True
End Sub

Private Sub cmdAdd_Click()
[COLOR=#008000]    'show formW.
[/COLOR]    formW.Show
End Sub

Private Sub cmdClose_Click()
[COLOR=#008000]    'Close UserForm.
[/COLOR]    Unload Me
End Sub


Userform 2
Code: 
Private Sub cmdY_Click()
[COLOR=#008000]    'Copy input values to sheet.
[/COLOR]    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Data")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Cells(lRow, 1).Value = Me.txtDate.Value
        .Cells(lRow, 3).Value = Me.cboShift.Value
        .Cells(lRow, 4).Value = Me.cboPrd.Value
        .Cells(lRow, 5).Value = Me.txtTB.Value
        .Cells(lRow, 6).Value = Me.txtGP.Value
        .Cells(lRow, 7).Value = Me.txtTR.Value
        .Cells(lRow, 8).Value = Me.txtcap.Value
        .Cells(lRow, 9).Value = Me.txtcap5.Value
        .Cells(lRow, 10).Value = Me.txtbl.Value
        .Cells(lRow, 11).Value = Me.txtbl5.Value
        .Cells(lRow, 12).Value = Me.txtblsp.Value
        .Cells(lRow, 13).Value = Me.txtblsp5.Value
        .Cells(lRow, 14).Value = Me.txtnl.Value
        .Cells(lRow, 15).Value = Me.txtnl5.Value
        .Cells(lRow, 16).Value = Me.txtnlsp.Value
        .Cells(lRow, 17).Value = Me.txtnlsp5.Value
        .Cells(lRow, 18).Value = Me.txtbkl.Value
        .Cells(lRow, 19).Value = Me.txtbkl5.Value
        .Cells(lRow, 20).Value = Me.txtbklsp.Value
        .Cells(lRow, 21).Value = Me.txtbklsp5.Value
        .Cells(lRow, 22).Value = Me.txtimp.Value
        .Cells(lRow, 23).Value = Me.txtimp5.Value
        .Cells(lRow, 24).Value = Me.txtlek.Value
        .Cells(lRow, 25).Value = Me.txtlek5.Value
        .Cells(lRow, 26).Value = Me.txtors.Value
        .Cells(lRow, 27).Value = Me.txtors5.Value
        .Cells(lRow, 28).Value = Me.txtudf.Value
        .Cells(lRow, 29).Value = Me.txtudf5.Value
        .Cells(lRow, 30).Value = Me.txtfom.Value
        .Cells(lRow, 31).Value = Me.txtfom5.Value
        .Cells(lRow, 32).Value = Me.txtcai.Value
        .Cells(lRow, 33).Value = Me.txtcai5.Value
        .Cells(lRow, 34).Value = Me.txtprc.Value
        .Cells(lRow, 35).Value = Me.txtprc5.Value
        .Cells(lRow, 36).Value = Me.txtrjc.Value
        .Cells(lRow, 37).Value = Me.txtrjc5.Value
    End With
[COLOR=#008000]    'Clear input controls.
[/COLOR]    Me.cboShift.Value = ""
    Me.cboPrd.Value = ""
    Me.txtTB.Value = ""
    Me.txtGP.Value = ""
    Me.txtTR.Value = ""
    Me.txtcap.Value = ""
    Me.txtcap5.Value = ""
    Me.txtbl.Value = ""
    Me.txtbl5.Value = ""
    Me.txtblsp.Value = ""
    Me.txtblsp5.Value = ""
    Me.txtnl.Value = ""
    Me.txtnl5.Value = ""
    Me.txtnlsp.Value = ""
    Me.txtnlsp5.Value = ""
    Me.txtbkl.Value = ""
    Me.txtbkl5.Value = ""
    Me.txtbklsp.Value = ""
    Me.txtbklsp5.Value = ""
    Me.txtimp.Value = ""
    Me.txtimp5.Value = ""
    Me.txtlek.Value = ""
    Me.txtlek5.Value = ""
    Me.txtors.Value = ""
    Me.txtors5.Value = ""
    Me.txtudf.Value = ""
    Me.txtudf5.Value = ""
    Me.txtfom.Value = ""
    Me.txtfom5.Value = ""
    Me.txtcai.Value = ""
    Me.txtcai5.Value = ""
    Me.txtprc.Value = ""
    Me.txtprc5.Value = ""
    Me.txtrjc.Value = ""
    Me.txtrjc5.Value = ""
End Sub

Sub cmdN_Click()
    'Close formW.
    Unload Me
End Sub

Is there anything wrong?
Any other suggestions to simply is also welcome :)

Thank you so much.
 

Excel Facts

Copy a format multiple times
Select a formatted range. Double-click the Format Painter (left side of Home tab). You can paste formatting multiple times. Esc to stop
Sort by date Sort by votes
You have not said what line of code is showing an error. When you have an error normally one line of code will be highlighted.
We are not able to read all these lines of code and know for sure if all your controls are properly named.

Try removing all this clear controls code and see if that is where the problem is for testing purposes.

And it would help if you noted what type controls these are.

I normally keep default names like TextBox1 and TextBox2 etc.
Seeing a script like this automatically lets us know what type control this is.


And we could just write a loop that would do a lot of this work.

Here is a script for example that will clear all you UserForm TextBoxes:

Code: 
Private Sub CommandButton1_Click()
Dim x As Control
    For Each x In Me.Controls
     If TypeOf x Is MSForms.TextBox Then x.Value = ""
    Next
End Sub
 
Upvote 0
And see if you were to keep all your TextBoxs with their default names. Like TextBox1 and TextBox2

You could use a script like this to loop through all your Textboxes like this:
This example assumes you have 8 TextBoxes Named TextBox1 TextBox2 etc. these are the default names

And then this script will automatically clear the TextBox for you also.

Code: 
Private Sub CommandButton2_Click()
Dim lRow As Long
Dim i As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    For i = 1 To 8
        Cells(lRow, i).Value = Me.Controls("TextBox" & i).Value
        Me.Controls("TextBox" & i).Value = ""
    Next
End Sub
 
Upvote 0
Hi, thank you for your reply..

I'm very new to VBA, so most of these codes come from a quick google search..

I've tried to delete the clear controls code and the problem still exist.. The highlighted error is shown below (purple underlined), and I am sure the command button is correct.

Code: 
[U][B][COLOR=#800080]Private Sub cmdY_Click()[/COLOR][/B][/U]
[COLOR=#008000]    'Copy input values to sheet.
[/COLOR]    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Data")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Cells(lRow, 1).Value = Me.txtDate.Value
        .Cells(lRow, 3).Value = Me.cboShift.Value
        .Cells(lRow, 4).Value = Me.cboPrd.Value
        .Cells(lRow, 5).Value = Me.txtTB.Value
        .Cells(lRow, 6).Value = Me.txtGP.Value
        .Cells(lRow, 7).Value = Me.txtTR.Value
        .Cells(lRow, 8).Value = Me.txtcap.Value
        .Cells(lRow, 9).Value = Me.txtcap5.Value
        .Cells(lRow, 10).Value = Me.txtbl.Value
        .Cells(lRow, 11).Value = Me.txtbl5.Value
        .Cells(lRow, 12).Value = Me.txtblsp.Value
        .Cells(lRow, 13).Value = Me.txtblsp5.Value
        .Cells(lRow, 14).Value = Me.txtnl.Value
        .Cells(lRow, 15).Value = Me.txtnl5.Value
        .Cells(lRow, 16).Value = Me.txtnlsp.Value
        .Cells(lRow, 17).Value = Me.txtnlsp5.Value
        .Cells(lRow, 18).Value = Me.txtbkl.Value
        .Cells(lRow, 19).Value = Me.txtbkl5.Value
        .Cells(lRow, 20).Value = Me.txtbklsp.Value
        .Cells(lRow, 21).Value = Me.txtbklsp5.Value
        .Cells(lRow, 22).Value = Me.txtimp.Value
        .Cells(lRow, 23).Value = Me.txtimp5.Value
        .Cells(lRow, 24).Value = Me.txtlek.Value
        .Cells(lRow, 25).Value = Me.txtlek5.Value
        .Cells(lRow, 26).Value = Me.txtors.Value
        .Cells(lRow, 27).Value = Me.txtors5.Value
        .Cells(lRow, 28).Value = Me.txtudf.Value
        .Cells(lRow, 29).Value = Me.txtudf5.Value
        .Cells(lRow, 30).Value = Me.txtfom.Value
        .Cells(lRow, 31).Value = Me.txtfom5.Value
        .Cells(lRow, 32).Value = Me.txtcai.Value
        .Cells(lRow, 34).Value = Me.txtprc.Value
        .Cells(lRow, 35).Value = Me.txtprc5.Value
        .Cells(lRow, 36).Value = Me.txtrjc.Value
        .Cells(lRow, 37).Value = Me.txtrjc5.Value
    End With
[COLOR=#008000]    'Clear input controls.
[/COLOR]    Me.cboShift.Value = ""
    Me.cboPrd.Value = ""
    Me.txtTB.Value = ""
    Me.txtGP.Value = ""
    Me.txtTR.Value = ""
    Me.txtcap.Value = ""
    Me.txtcap5.Value = ""
    Me.txtbl.Value = ""
    Me.txtbl5.Value = ""
    Me.txtblsp.Value = ""
    Me.txtblsp5.Value = ""
    Me.txtnl.Value = ""
    Me.txtnl5.Value = ""
    Me.txtnlsp.Value = ""
    Me.txtnlsp5.Value = ""
    Me.txtbkl.Value = ""
    Me.txtbkl5.Value = ""
    Me.txtbklsp.Value = ""
    Me.txtbklsp5.Value = ""
    Me.txtimp.Value = ""
    Me.txtimp5.Value = ""
    Me.txtlek.Value = ""
    Me.txtlek5.Value = ""
    Me.txtors.Value = ""
    Me.txtors5.Value = ""
    Me.txtudf.Value = ""
    Me.txtudf5.Value = ""
    Me.txtfom.Value = ""
    Me.txtfom5.Value = ""
    Me.txtcai.Value = ""
    Me.txtcai5.Value = ""
    Me.txtprc.Value = ""
    Me.txtprc5.Value = ""
    Me.txtrjc.Value = ""
    Me.txtrjc5.Value = ""
End Sub

Sub cmdN_Click()
    'Close formW.
    Unload Me
End Sub

Regarding the change to the "clear text box command"
Does the following click button only to clear the textboxes?

Code: 
Private Sub CommandButton2_Click()
Dim lRow As Long
Dim i As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    For i = 1 To 8
        Cells(lRow, i).Value = Me.Controls("TextBox" & i).Value
        Me.Controls("TextBox" & i).Value = ""
    Next
End Sub

Because the textboxes should only be cleared once the value in each textboxes is inputted into the Worksheet.
Unless there is a way to combine this two actions into a single click command??
 
Upvote 0
I've tried to remove the clear script and the problem remains..

Code: 
Private Sub cmdY_Click()
[COLOR=#008000]    'Copy input values to sheet.
[/COLOR]    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Data")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Cells(lRow, 1).Value = Me.txtDate.Value
        .Cells(lRow, 3).Value = Me.cboShift.Value
        .Cells(lRow, 4).Value = Me.cboPrd.Value
        .Cells(lRow, 5).Value = Me.txtTB.Value
        .Cells(lRow, 6).Value = Me.txtGP.Value
        .Cells(lRow, 7).Value = Me.txtTR.Value
        .Cells(lRow, 8).Value = Me.txtcap.Value
        .Cells(lRow, 9).Value = Me.txtcap5.Value
        .Cells(lRow, 10).Value = Me.txtbl.Value
        .Cells(lRow, 11).Value = Me.txtbl5.Value
        .Cells(lRow, 12).Value = Me.txtblsp.Value
        .Cells(lRow, 13).Value = Me.txtblsp5.Value
        .Cells(lRow, 14).Value = Me.txtnl.Value
        .Cells(lRow, 15).Value = Me.txtnl5.Value
        .Cells(lRow, 16).Value = Me.txtnlsp.Value
        .Cells(lRow, 17).Value = Me.txtnlsp5.Value
        .Cells(lRow, 18).Value = Me.txtbkl.Value
        .Cells(lRow, 19).Value = Me.txtbkl5.Value
        .Cells(lRow, 20).Value = Me.txtbklsp.Value
        .Cells(lRow, 21).Value = Me.txtbklsp5.Value
        .Cells(lRow, 22).Value = Me.txtimp.Value
        .Cells(lRow, 23).Value = Me.txtimp5.Value
        .Cells(lRow, 24).Value = Me.txtlek.Value
        .Cells(lRow, 25).Value = Me.txtlek5.Value
        .Cells(lRow, 26).Value = Me.txtors.Value
        .Cells(lRow, 27).Value = Me.txtors5.Value
        .Cells(lRow, 28).Value = Me.txtudf.Value
        .Cells(lRow, 29).Value = Me.txtudf5.Value
        .Cells(lRow, 30).Value = Me.txtfom.Value
        .Cells(lRow, 31).Value = Me.txtfom5.Value
        .Cells(lRow, 32).Value = Me.txtcai.Value
        .Cells(lRow, 33).Value = Me.txtcai5.Value
        .Cells(lRow, 34).Value = Me.txtprc.Value
        .Cells(lRow, 35).Value = Me.txtprc5.Value
        .Cells(lRow, 36).Value = Me.txtrjc.Value
        .Cells(lRow, 37).Value = Me.txtrjc5.Value
    End With
[COLOR=#008000]    'Clear input controls.
[/COLOR]    Me.cboShift.Value = ""
    Me.cboPrd.Value = ""
    Me.txtTB.Value = ""
    Me.txtGP.Value = ""
    Me.txtTR.Value = ""
    Me.txtcap.Value = ""
    Me.txtcap5.Value = ""
    Me.txtbl.Value = ""
    Me.txtbl5.Value = ""
    Me.txtblsp.Value = ""
    Me.txtblsp5.Value = ""
    Me.txtnl.Value = ""
    Me.txtnl5.Value = ""
    Me.txtnlsp.Value = ""
    Me.txtnlsp5.Value = ""
    Me.txtbkl.Value = ""
    Me.txtbkl5.Value = ""
    Me.txtbklsp.Value = ""
    Me.txtbklsp5.Value = ""
    Me.txtimp.Value = ""
    Me.txtimp5.Value = ""
    Me.txtlek.Value = ""
    Me.txtlek5.Value = ""
    Me.txtors.Value = ""
    Me.txtors5.Value = ""
    Me.txtudf.Value = ""
    Me.txtudf5.Value = ""
    Me.txtfom.Value = ""
    Me.txtfom5.Value = ""
    Me.txtcai.Value = ""
    Me.txtcai5.Value = ""
    Me.txtprc.Value = ""
    Me.txtprc5.Value = ""
    Me.txtrjc.Value = ""
    Me.txtrjc5.Value = ""
End Sub

Sub cmdN_Click()
    'Close formW.
    Unload Me
End Sub

Is there any way to combine the function of command button to input the value into a worksheet and clear the text boxes at the same time?

I'm very new to VBA, in fact all the written codes are simply copy and paste from quick goggle search, I understand the simple codes, but once it gets complicated my brain has to adapt slowly =(
 
Upvote 0
Sorry I forgot to highlight the problem.. So when I click on the command button, the Private_Sub cmdY_Click() was highlighted.. I'm sure the command box name is correct, unsure where the problem lies :(

Code: 
[COLOR=#800080][U][B]Private Sub cmdY_Click()[/B][/U][/COLOR]
[COLOR=#008000]    'Copy input values to sheet.
[/COLOR]    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Data")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Cells(lRow, 1).Value = Me.txtDate.Value
        .Cells(lRow, 3).Value = Me.cboShift.Value
        .Cells(lRow, 4).Value = Me.cboPrd.Value
        .Cells(lRow, 5).Value = Me.txtTB.Value
        .Cells(lRow, 6).Value = Me.txtGP.Value
        .Cells(lRow, 7).Value = Me.txtTR.Value
        .Cells(lRow, 8).Value = Me.txtcap.Value
        .Cells(lRow, 9).Value = Me.txtcap5.Value
        .Cells(lRow, 10).Value = Me.txtbl.Value
        .Cells(lRow, 11).Value = Me.txtbl5.Value
        .Cells(lRow, 12).Value = Me.txtblsp.Value
        .Cells(lRow, 13).Value = Me.txtblsp5.Value
        .Cells(lRow, 14).Value = Me.txtnl.Value
        .Cells(lRow, 15).Value = Me.txtnl5.Value
        .Cells(lRow, 16).Value = Me.txtnlsp.Value
        .Cells(lRow, 17).Value = Me.txtnlsp5.Value
        .Cells(lRow, 18).Value = Me.txtbkl.Value
        .Cells(lRow, 19).Value = Me.txtbkl5.Value
        .Cells(lRow, 20).Value = Me.txtbklsp.Value
        .Cells(lRow, 21).Value = Me.txtbklsp5.Value
        .Cells(lRow, 22).Value = Me.txtimp.Value
        .Cells(lRow, 23).Value = Me.txtimp5.Value
        .Cells(lRow, 24).Value = Me.txtlek.Value
        .Cells(lRow, 25).Value = Me.txtlek5.Value
        .Cells(lRow, 26).Value = Me.txtors.Value
        .Cells(lRow, 27).Value = Me.txtors5.Value
        .Cells(lRow, 28).Value = Me.txtudf.Value
        .Cells(lRow, 29).Value = Me.txtudf5.Value
        .Cells(lRow, 30).Value = Me.txtfom.Value
        .Cells(lRow, 31).Value = Me.txtfom5.Value
        .Cells(lRow, 32).Value = Me.txtcai.Value
        .Cells(lRow, 33).Value = Me.txtcai5.Value
        .Cells(lRow, 34).Value = Me.txtprc.Value
        .Cells(lRow, 35).Value = Me.txtprc5.Value
        .Cells(lRow, 36).Value = Me.txtrjc.Value
        .Cells(lRow, 37).Value = Me.txtrjc5.Value
    End With
[COLOR=#008000]    'Clear input controls.
[/COLOR]    Me.cboShift.Value = ""
    Me.cboPrd.Value = ""
    Me.txtTB.Value = ""
    Me.txtGP.Value = ""
    Me.txtTR.Value = ""
    Me.txtcap.Value = ""
    Me.txtcap5.Value = ""
    Me.txtbl.Value = ""
    Me.txtbl5.Value = ""
    Me.txtblsp.Value = ""
    Me.txtblsp5.Value = ""
    Me.txtnl.Value = ""
    Me.txtnl5.Value = ""
    Me.txtnlsp.Value = ""
    Me.txtnlsp5.Value = ""
    Me.txtbkl.Value = ""
    Me.txtbkl5.Value = ""
    Me.txtbklsp.Value = ""
    Me.txtbklsp5.Value = ""
    Me.txtimp.Value = ""
    Me.txtimp5.Value = ""
    Me.txtlek.Value = ""
    Me.txtlek5.Value = ""
    Me.txtors.Value = ""
    Me.txtors5.Value = ""
    Me.txtudf.Value = ""
    Me.txtudf5.Value = ""
    Me.txtfom.Value = ""
    Me.txtfom5.Value = ""
    Me.txtcai.Value = ""
    Me.txtcai5.Value = ""
    Me.txtprc.Value = ""
    Me.txtprc5.Value = ""
    Me.txtrjc.Value = ""
    Me.txtrjc5.Value = ""
End Sub

Sub cmdN_Click()
    'Close formW.
    Unload Me
End Sub
 
Upvote 0
If your just learning Vba why are you changing Command Button Names.
That is not a Default Name.

This is a Default Command Button Name:
Private Sub CommandButton2_Click()

I would not play around with things like this when I'm just learning.

You have given all you controls modified names. So I suspect you have named something wrong.

I would try writing just two or three lines of this code check and see if it works and if so continue on.
Writing 100 lines of code and then discovering what's wrong may be difficult.
 
Upvote 0
@Vin90
When you get the error, scroll down the macro & you should see one of txt, or combo boxes is highlighted in blue.
This means that it doesn't exist on the form.
 
Upvote 0
As I mentioned, I follow a tutorial from a quick google search, so I don't know how much damage it could have done..

Anyways, I've just do a small trial using a shorter cod, the problem is still there..

I think the problem is that I have 2 userforms (UserForm1 and UserForm2).

UserForm1 contains TextBox1, TextBox2, CommandButton1, and CommandButton2.
With the following codes:
Code: 
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
Private Sub Commandbutton2_click()
Unload Me
End Sub

UserForm2 contains only CommandButton1 and CommandButton2.
With the following codes:
Code: 
[U][COLOR=#ff0000]Private Sub CommandButton1_Click()[/COLOR][/U][COLOR=#ff0000]    [/COLOR][U][COLOR=#ff0000][/COLOR][/U][B]<== Highlighted Error[/B]
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worsheets("Sheet1")
lRow = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row
With ws
    .Cells(lRow, 1).Value = Me.TextBox1.Value
    .Cells(lRow, 2).Value = Me.TextBox2.Value
End With
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
End Sub
Private Sub Commandbutton2_click()
Unload Me
End Sub

I think the problem is the logic and connection behind the UserForm1 and UserForm2, what I am trying to achieve is to have CommandButton1 in UserForm1 to prompt UserForm2, and the CommandButton1 in UserForm2 to input Values in TextBox1 and TextBox2 in UserForm1 into the worksheet.

The UserForm2 is just a small notification to ensure users that the Value they have put into the textboxes are correct.
 
Upvote 0
You must log in or register to reply here.

Forum statistics

Threads
1,224,823
Messages
6,181,179
Members
453,021
Latest member
Justyna P

Share this page

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