named-ranges

I'm working on my first ever VBA project, and need a bit of absolute newbie guidance. I have a submission form that staff will be using to submit their daily KPIs. I have a list box control in a user form called "lstName" that employees will use to select their name before submitting the form Employee names are stored in a named range on "Sheet11" called "EmpName". I want to direct the list box to draw the list of names from the "EmpName" range on Sheet11; but don't know how I would do this in VBA. I was going to use RowSource to point the list box to the data, but I am lost as to how to do

Background: Since recently I came to know about a secret named range that gets created through using AutoFilter . Usually (if not always) this is called "_FilterDatabase". I thought about playing around with this a little, but then got stuck on the Range object it refers to. Let me explain with the example below: Test data: | Header1 | Header2 | |---------|---------| | 50 | | | 10 | | | 30 | | | 40 | | | 20 | | Test Code: Sub Test() With Sheet1 .Range("A1:B1").AutoFilter 1, ">40" Dim rng As Range: Set rng = .Range("_FilterDatabase") If rng.SpecialCells(12).Count > 2 Then rng.Columns(2).Offset

I've spent hours trying to find out how to join returned values from a named range, but the result is a run-time error 32 - Type mismatch. As a newbie I'm still struggling with arrays, so maybe I've overlooked some detail. Thank you for helping me out. Example: (B1)Benzine, (B2)Diesel, (B3)Hybride -> (E1)Gasoline, (E2)Diesel, (E3)Hybrid This is the named range: Another example (to be more clear): Example 2: (B1)Benzine, (B3)Hybride -> (E1)Gasoline, (E3)Hybrid Option Explicit Sub splitter() Dim i As Long Dim w As Long 'Dim oWB As Workbook Dim oWS As Worksheet Dim oWS9 As Worksheet Dim rngMOTOR

I have automated a proper record input into the table that I use as a database, and when the table is filtered the input don't work. So I have code this to unfilter DataBase before every record input. Public Sub UnFilter_DB() Dim ActiveS As String, CurrScreenUpdate As Boolean CurrScreenUpdate = Application.ScreenUpdating Application.ScreenUpdating = False ActiveS = ActiveSheet.Name Sheets("DB").Activate Sheets("DB").Range("A1").Activate Sheets("DB").ShowAllData DoEvents Sheets(ActiveS).Activate Application.ScreenUpdating = CurrScreenUpdate End Sub But now, it stays stuck on Sheets("DB")

Here's my script, but I can't get it to work for some weird reason??!!! Driving me nuts. function removeThenSetProtection() { // Remove all range protections in the spreadsheet that the user has //permission to edit. var ss = SpreadsheetApp.getActive(); var protections = ss.getProtections(SpreadsheetApp.ProtectionType.SHEET); for (var i = 0; i < protections.length; i++) { var protection = protections[i]; if (protection.canEdit()) { protection.remove(); } } } Change: var protections = ss.getProtections(SpreadsheetApp.ProtectionType.RANGE); To: var protections = ss.getProtections(SpreadsheetApp