VBA Delete Entire Row in Table Based on Userform Selection

MishTaylor

New Member
Joined
May 4, 2021
Messages
8
Office Version
  1. 365
Platform
  1. Windows
Hi Everyone, I'm working on a project and am new to VBA. I've followed tons of tutorials online but I am stuck trying to delete a row in my table based on a selection made in a listbox within a user form.
The purpose of the userform is to collect data on reallocating medication that was taken off the production line. We package drugs into weekly strip medication and sometimes there is a change required so we take the strips off the line. I'm trying to gauge what the costs and labour impact is. Operations needs to be able to input drug names and quantities they want to reallocate but I want them to be able to delete a row for whatever reason they may have made an error. I also need the form to clear the comboboxes and then the filters those comboboxes are set up against - I can't seem to get the worksheet to delete or clear the range of the filters. Any help would be great! Thank-you!
This is what the userform looks like:

1620147251144.png

What I've done is added "ID" column ("A") to the table to use as the search criteria. This ID number pops up in "textboxemtpy" on the userform which I've hidden. I need to match that textbox value to the row in my "Reallocation_Data" table and delete the entire row. When a record is selected in the listbox, it populates in the comboboxes which sets off the advanced filters I'm using to get the drug information in the combobox drop downs. I need to be able to select a row, delete it from the table and listbox along with clear the comboxes and advanced filter range in another sheet.

' DELETE BUTTON for entire selected row in userform --------------(not working)-------------------------------------
Private Sub CommandButtonD_Click()
If Me.textboxempty.Value = "" Then
MsgBox "Select the record to delete"
Exit Sub
End If

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")
Dim selected_row As Long

selected_row = Application.WorksheetFunction.Match(CLng(Me.textboxempty.Value), sh.Range("A:A"), 0)

sh.Range("A" & selected_row).EntireRow.Delete

' clear comboboxes -----------------------------(is working)--------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""
Me.textboxempty.Value = ""

' Refresh Listbox------------------------------------------------------------------------------------------------
Call RefreshData

' clear filters--------------(isn't working)----------------------------------------------------------------------------------
ws.Sheets("Drugs_In_RTS").Range("I2:P1000").Clear

End Sub
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.

dmt32

Well-known Member
Joined
Jul 3, 2012
Messages
6,605
Office Version
  1. 2019
Platform
  1. Windows
Hi,
welcome to forum

From the image it looks like you are using rowsource to populate your listbox & if this is so, you will need to disconnect it before you can delete the selected row.

try updating your code with following

VBA Code:
'disconnect rowsource
Me.ListBox1.RowSource = ""

'delete row
sh.Range("A" & selected_row).EntireRow.Delete

'rest of code

're-connect rowsource
Me.ListBox1.RowSource = "Sheet1!A1:A15"

The fixed range given is just an example you will need to update (and change listbox name ) as required

If still having issues would be helpful to forum if share all code behind your for (using code tags) or better still, place copy of workbook with dummy data on a file sharing site like dropbox & provide a link to it

Hope Helpful

Dave
 

MishTaylor

New Member
Joined
May 4, 2021
Messages
8
Office Version
  1. 365
Platform
  1. Windows
Hi,
welcome to forum

From the image it looks like you are using rowsource to populate your listbox & if this is so, you will need to disconnect it before you can delete the selected row.

try updating your code with following

VBA Code:
'disconnect rowsource
Me.ListBox1.RowSource = ""

'delete row
sh.Range("A" & selected_row).EntireRow.Delete

'rest of code

're-connect rowsource
Me.ListBox1.RowSource = "Sheet1!A1:A15"

The fixed range given is just an example you will need to update (and change listbox name ) as required

If still having issues would be helpful to forum if share all code behind your for (using code tags) or better still, place copy of workbook with dummy data on a file sharing site like dropbox & provide a link to it

Hope Helpful

Dave
Hi Dave, thanks!

Thanks so much for the reply! I can actually get it to delete now but I'm not able to clear the filter range so I can't continue to select another item to delete/update or add new. I'm pasting the rest of my code below (please bear with me this is my first VBA project - a lot of it isn't working properly lol).

I don't have DropBox but I've uploaded a small dummy version of the data to Google Drive.


' Generic Name combo box ---------------------(To find generic name from query. can't seem to get it to run when the sheet is hidden)-------------------------------
Private Sub ComboBoxGen_Change()
Set ws = ThisWorkbook.Sheets("Drugs_In_RTS")
Range("Drugs_In_RTS").Parent.Activate
Dim r As Long
r = 2

ws.Range("I2").Value = Me.ComboBoxGen.Value
' advanced filter for getting strengths and din --------------------------------
ws.Range("Drugs_In_RTS[[#All],[GenericName]:[DIN]]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Sheets("Drugs_In_RTS").Range("I1:I2"), CopyToRange:=ws.Range("J1:K1"), _
Unique:=False

'searching list of strengths in advanced filter ----------(cascading advanced filter to get strengths and dins from previous advanced filter. Doesn't work when sheet is hidden) ---------
Me.ComboBoxStr.Clear
Do Until ws.Cells(r, 10).Value = ""
ComboBoxStr.AddItem ws.Cells(r, 10).Value
r = r + 1
Loop
End Sub
'strength combo box -------------------------------------------------------------------
Private Sub ComboBoxStr_Change()
Set ws = ThisWorkbook.Sheets("Drugs_In_RTS")
Dim r As Long
r = 2

ws.Range("I2").Value = ComboBoxGen.Value
ws.Range("M2").Value = ComboBoxStr.Value

' secondary advanced filter to find din based on selected strength --------------------
ws.Columns("J:K").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=(ws.Range( _
"M1:M2")), CopyToRange:=(ws.Range("O1:P1")), Unique:=False

' searching list of dins in advanced filter --------------------------------------------
Me.ComboBoxDIN.Clear
Do Until ws.Cells(r, 16).Value = ""
ComboBoxDIN.AddItem ws.Cells(r, 16).Value
r = r + 1
Loop
End Sub


'ADD BUTTON - data to reallocation table Button------------------------(seems to work)--------------------------
Private Sub CommandButtonA_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")

Set tbl = sh.ListObjects("Restocktable")
Dim lrow As ListRow
Set lrow = tbl.ListRows.Add

'validations for missing information so user can't submit incomplete form --------------
If Me.ComboBoxGen.Value = "" Then
MsgBox "Missing Drug Name", vbCritical
Exit Sub
End If
If Me.ComboBoxStr.Value = "" Then
MsgBox "Missing Strength", vbCritical
Exit Sub
End If
If Me.ComboBoxDIN.Value = "" Then
MsgBox "Missing DIN", vbCritical
Exit Sub
End If
If Me.TextBoxQty.Value = "" Then
MsgBox "Missing Quantity", vbCritical
Exit Sub
End If
'----------------------------------------------------------------------------------------
' only accepting numeric values in textbox --------------------------------------------
If Not IsNumeric(TextBoxQty.Value) Then
TextBoxQty.Value = ""
MsgBox ("Only numeric values accepted in quantity field.")
Exit Sub
End If

' actually sending the data to the reallocation table ------------------------------------
With lrow
.Range(1).Value = "=row()-1"
.Range(2).Value = Now
.Range(3).Value = Me.ComboBoxGen.Value
.Range(4).Value = Me.ComboBoxStr.Value
.Range(5).Value = Me.ComboBoxDIN.Value
.Range(6).Value = Me.TextBoxQty.Value

End With

' then clearing the user form ------------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""

Call RefreshData
' this doesn't work - but I'm trying to clear the advanced filter range when a item is selected in the listbox and gets populated in the filter---
Sheets("Drugs_In_RTS").Range("I2:P1000").Clear

End Sub
' CLEAR BUTTON for when wrong data is entered prior to submitting the form ----------
Private Sub commandbuttonClear_Click()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")

Me.ComboBoxDIN.Value = ""
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.TextBoxQty.Value = ""

' this doesn't work - but I'm trying to clear the advanced filter range when a item is selected in the listbox and gets populated in the filter---
ws.Sheets("Drugs_In_RTS").Range("I2:P1000").Clear


End Sub

' DELETE BUTTON entire selected row---------------------------------------------------
Private Sub CommandButtonD_Click()
If Me.textboxempty.Value = "" Then
MsgBox "Select the record to delete"
Exit Sub
End If

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")
Dim selected_row As Long


selected_row = Application.WorksheetFunction.Match(CLng(Me.textboxempty.Value), sh.Range("A:A"), 0)
'disconnect rowsource ----
Me.ListBox1.RowSource = ""
'delete row---------------
sh.Range("A" & selected_row).EntireRow.Delete

' clear comboboxes -------------------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""
Me.textboxempty.Value = ""

Call RefreshData

' clear filters----------------------------------------------------------------------
Me.ListBox1.RowSource = "Reallocation_Data!A2:F"
End Sub

' this button SAVES the entire workbook---------------------------------------------------
Private Sub CommandButtonS_Click()
ThisWorkbook.Save
MsgBox "Data Saved"

End Sub
' UPDATE record button ----------------------------------------------------------------
Private Sub CommandButtonUpdate_Click()
If Me.textboxempty.Value = "" Then
MsgBox "Select the record to update"
Exit Sub
End If

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")

Dim selected_row As Long
selected_row = Application.WorksheetFunction.Match(CLng(Me.textboxempty.Value), sh.Range("A:A"), 0)

'validations for missing information so user can't submit incomplete form --------------
If Me.ComboBoxGen.Value = "" Then
MsgBox "Missing Drug Name", vbCritical
Exit Sub
End If
If Me.ComboBoxStr.Value = "" Then
MsgBox "Missing Strength", vbCritical
Exit Sub
End If
If Me.ComboBoxDIN.Value = "" Then
MsgBox "Missing DIN", vbCritical
Exit Sub
End If
If Me.TextBoxQty.Value = "" Then
MsgBox "Missing Quantity", vbCritical
Exit Sub
End If
'----------------------------------------------------------------------------------------
' only accepting numeric values in textbox --------------------------------------------
If Not IsNumeric(TextBoxQty.Value) Then
TextBoxQty.Value = ""
MsgBox ("Only numeric values accepted in quantity field.")
Exit Sub
End If

' actually sending the data to the rellocation table ------------------------------------

sh.Range("C" & selected_row).Value = Me.ComboBoxGen.Value
sh.Range("D" & selected_row).Value = Me.ComboBoxStr.Value
sh.Range("E" & selected_row).Value = Me.ComboBoxDIN.Value
sh.Range("F" & selected_row).Value = Me.TextBoxQty.Value
sh.Range("B" & selected_row).Value = Now

' then clearing the user form ------------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""
Me.textboxempty.Value = ""

Call RefreshData
ws.Sheets("Drugs_In_RTS").Range("I2:P1000").Clear
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.textboxempty.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Me.ComboBoxGen.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
Me.ComboBoxStr.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Me.ComboBoxDIN.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.TextBoxQty.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)

End Sub


Private Sub UserForm_activate()
Call RefreshData

End Sub

Sub RefreshData()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Dim last_row As Long
last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
With Me.ListBox1
.ColumnHeads = True
.ColumnCount = 6
.ColumnWidths = "20,80,130,50,70,20"
.RowSource = "Reallocation_Data!A2:F" & last_row
End With
End Sub
 

dmt32

Well-known Member
Joined
Jul 3, 2012
Messages
6,605
Office Version
  1. 2019
Platform
  1. Windows
Hi,
glad suggestion helped you - with a complex project like yours it would be more helpful if you could upload the macro version of your workbook that includes sample data.
Also for future tip, learn to make use of code tags when posting code - Just click on VBA in the toolbar & post your code between the tags.

Dave
 

MishTaylor

New Member
Joined
May 4, 2021
Messages
8
Office Version
  1. 365
Platform
  1. Windows
Thanks Dave - I've uploaded the whole thing to Google Drive and put the code into the correct form now. I'm really in over my head with this! I can post another question for the other issues I've got if that's more appropriate


VBA Code:
' Generic Name combo box -----------------------------------------------------
Private Sub ComboBoxGen_Change()
Set ws = ThisWorkbook.Sheets("Drugs_In_RTS")
Range("Drugs_In_RTS").Parent.Activate
Dim r As Long
r = 2

ws.Range("I2").Value = Me.ComboBoxGen.Value
' advanced filter for getting strengths and din --------------------------------
ws.Range("Drugs_In_RTS[[#All],[GenericName]:[DIN]]").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Sheets("Drugs_In_RTS").Range("I1:I2"), CopyToRange:=ws.Range("J1:K1"), _
        Unique:=False
          
'searching list of strengths in advanced filter --------------------------------
Me.ComboBoxStr.Clear
Do Until ws.Cells(r, 10).Value = ""
    ComboBoxStr.AddItem ws.Cells(r, 10).Value
    r = r + 1
Loop
End Sub
'strength combo box -------------------------------------------------------------------
Private Sub ComboBoxStr_Change()
Set ws = ThisWorkbook.Sheets("Drugs_In_RTS")
Dim r As Long
r = 2

ws.Range("I2").Value = ComboBoxGen.Value
ws.Range("M2").Value = ComboBoxStr.Value

' secondary advanced filter to find din based on selected strength --------------------
ws.Columns("J:K").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=(ws.Range( _
        "M1:M2")), CopyToRange:=(ws.Range("O1:P1")), Unique:=False
        
' searching list of dins in advanced filter --------------------------------------------
Me.ComboBoxDIN.Clear
Do Until ws.Cells(r, 16).Value = ""
    ComboBoxDIN.AddItem ws.Cells(r, 16).Value
    r = r + 1
Loop
End Sub


'ADD BUTTON - data to reallocation table Button--------------------------------------------------
Private Sub CommandButtonA_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")

Set tbl = sh.ListObjects("Restocktable")
Dim lrow As ListRow
Set lrow = tbl.ListRows.Add

'validations  for missing information so user can't submit incomplete form --------------
If Me.ComboBoxGen.Value = "" Then
MsgBox "Missing Drug Name", vbCritical
Exit Sub
End If
If Me.ComboBoxStr.Value = "" Then
MsgBox "Missing Strength", vbCritical
Exit Sub
End If
If Me.ComboBoxDIN.Value = "" Then
MsgBox "Missing DIN", vbCritical
Exit Sub
End If
If Me.TextBoxQty.Value = "" Then
MsgBox "Missing Quantity", vbCritical
Exit Sub
End If
'----------------------------------------------------------------------------------------
' only accepting numeric values in textbox --------------------------------------------
If Not IsNumeric(TextBoxQty.Value) Then
TextBoxQty.Value = ""
MsgBox ("Only numeric values accepted in quantity field.")
Exit Sub
End If

' actually sending the data to the rellocation table ------------------------------------
With lrow
.Range(1).Value = "=row()-1"
.Range(2).Value = Now
.Range(3).Value = Me.ComboBoxGen.Value
.Range(4).Value = Me.ComboBoxStr.Value
.Range(5).Value = Me.ComboBoxDIN.Value
.Range(6).Value = Me.TextBoxQty.Value

End With

' then clearing the user form ------------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""

Call RefreshData

Sheets("Drugs_In_RTS").Range("I2:P1000").Clear

End Sub
' CLEAR BUTTON for when wrong data is entered prior to submitting the form ----------
Private Sub commandbuttonClear_Click()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")

Me.ComboBoxDIN.Value = ""
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.TextBoxQty.Value = ""

 ws.Sheets("Drugs_In_RTS").Range("I2:P1000").Clear


End Sub

' DELETE BUTTON entire selected row---------------------------------------------------
Private Sub CommandButtonD_Click()
If Me.textboxempty.Value = "" Then
MsgBox "Select the record to delete"
Exit Sub
End If

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")
Dim selected_row As Long


selected_row = Application.WorksheetFunction.Match(CLng(Me.textboxempty.Value), sh.Range("A:A"), 0)
'disconnect rowsource ----
Me.ListBox1.RowSource = ""
'delete row---------------
sh.Range("A" & selected_row).EntireRow.Delete
        
' clear comboboxes -------------------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""
Me.textboxempty.Value = ""
 
 Call RefreshData
 
 ' clear filters----------------------------------------------------------------------

End Sub

' this button SAVES the entire workbook---------------------------------------------------
Private Sub CommandButtonS_Click()
ThisWorkbook.Save
MsgBox "Data Saved"

End Sub
' UPDATE record button ----------------------------------------------------------------
Private Sub CommandButtonUpdate_Click()
If Me.textboxempty.Value = "" Then
MsgBox "Select the record to update"
Exit Sub
End If

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")

Dim selected_row As Long
selected_row = Application.WorksheetFunction.Match(CLng(Me.textboxempty.Value), sh.Range("A:A"), 0)

'validations  for missing information so user can't submit incomplete form --------------
If Me.ComboBoxGen.Value = "" Then
MsgBox "Missing Drug Name", vbCritical
Exit Sub
End If
If Me.ComboBoxStr.Value = "" Then
MsgBox "Missing Strength", vbCritical
Exit Sub
End If
If Me.ComboBoxDIN.Value = "" Then
MsgBox "Missing DIN", vbCritical
Exit Sub
End If
If Me.TextBoxQty.Value = "" Then
MsgBox "Missing Quantity", vbCritical
Exit Sub
End If
'----------------------------------------------------------------------------------------
' only accepting numeric values in textbox --------------------------------------------
If Not IsNumeric(TextBoxQty.Value) Then
TextBoxQty.Value = ""
MsgBox ("Only numeric values accepted in quantity field.")
Exit Sub
End If

' actually sending the data to the rellocation table ------------------------------------

sh.Range("C" & selected_row).Value = Me.ComboBoxGen.Value
sh.Range("D" & selected_row).Value = Me.ComboBoxStr.Value
sh.Range("E" & selected_row).Value = Me.ComboBoxDIN.Value
sh.Range("F" & selected_row).Value = Me.TextBoxQty.Value
sh.Range("B" & selected_row).Value = Now

' then clearing the user form ------------------------------------------------------------
Me.ComboBoxGen.Value = ""
Me.ComboBoxStr.Value = ""
Me.ComboBoxDIN.Value = ""
Me.TextBoxQty.Value = ""
Me.textboxempty.Value = ""

Call RefreshData
 ws.Sheets("Drugs_In_RTS").Range("I2:P1000").Clear
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.textboxempty.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Me.ComboBoxGen.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
Me.ComboBoxStr.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Me.ComboBoxDIN.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.TextBoxQty.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)

End Sub


Private Sub UserForm_activate()
Call RefreshData

End Sub

Sub RefreshData()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Reallocation_Data")
Dim last_row As Long
last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
With Me.ListBox1
.ColumnHeads = True
.ColumnCount = 6
.ColumnWidths = "20,80,130,50,70,20"
.RowSource = "Reallocation_Data!A2:F" & last_row
End With
End Sub
 

dmt32

Well-known Member
Joined
Jul 3, 2012
Messages
6,605
Office Version
  1. 2019
Platform
  1. Windows
Hi,
do not have much time to spend working through your project but try replacing these two updated codes & see if helps you

VBA Code:
' Generic Name combo box -----------------------------------------------------
Private Sub ComboBoxGen_Change()
    Dim r           As Long
    Dim ws          As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Drugs_In_RTS")
    
    ws.Activate

    ws.Range("I2").Value = Me.ComboBoxGen.Value
    ' advanced filter for getting strengths and din --------------------------------
    ws.Range("A1").CurrentRegion.AdvancedFilter Action:= _
    xlFilterCopy, CriteriaRange:=ws.Range("I1:I2"), CopyToRange:=ws.Range("J1:K1"), _
    Unique:=False
    
    'searching list of strengths in advanced filter --------------------------------
    Me.ComboBoxStr.Clear
    r = 2
    Do Until ws.Cells(r, 10).Value = ""
        ComboBoxStr.AddItem ws.Cells(r, 10).Value
        r = r + 1
    Loop
End Sub


' CLEAR BUTTON for when wrong data is entered prior to submitting the form ----------
Private Sub commandbuttonClear_Click()
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Drugs_in_RTS")
    
    Me.ComboBoxDIN.Value = ""
    Me.ComboBoxGen.Value = ""
    Me.ComboBoxStr.Value = ""
    Me.TextBoxQty.Value = ""
    
    ws.Range("I2:P" & ws.Cells(ws.Rows.Count, "P").End(xlUp).Row).Clear

End Sub


Dave
 
Solution

Watch MrExcel Video

Forum statistics

Threads
1,133,619
Messages
5,659,913
Members
418,536
Latest member
Tezzies

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
Top