Comments for McFarlan Enterprises LLC

Comment on Excel VBA: Adding unique items from a list to a userform combobox by Arun

Arun — Thu, 15 Dec 2011 09:38:54 +0000

This is the another option for you
Sub Button1_Click()
Dim i As Integer
Dim j As Integer
Dim Duplicate As Integer
Range(“A1″).Select
For i = 1 To ActiveCell.CurrentRegion.Rows.Count
Duplicate = 0
For j = i + 1 To ActiveCell.CurrentRegion.Rows.Count
If Cells(i, 1).Value = Cells(j, 1).Value Then
Duplicate = Duplicate + 1
End If
Next j
If Duplicate = 0 Then
UserForm1.ComboBox1.AddItem Cells(i, 1).Value
End If
Next i
UserForm1.Show
End Sub

Comment on Excel VBA: Adding unique items from a list to a userform combobox by Dave

Dave — Sat, 19 Feb 2011 16:09:28 +0000

Dim rng As Range, c As Range, r As Range
Dim rws As Long, y As Integer

rws = ActiveSheet.UsedRange.Columns(1).Rows.Count

ComboBox1.Clear

Set r = Range(Cells(1, 1), Cells(rws, 1))

For Each c In r.Cells

y = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(c.Row, 1)), c)

If y = 1 Then ComboBox1.AddItem c

Next c
‘———————–No selecting cells required———-
davesexcel.com

Comment on Optimizing Google Places Part 1: Starting a Business by Optimizing Google Places Part 2: Your Website | McFarlan Enterprises LLC

Optimizing Google Places Part 2: Your Website | McFarlan Enterprises LLC — Wed, 08 Sep 2010 23:08:12 +0000

[...] SEO, Website Design, and Business Solutions in Grand Rapids, MI Skip to content About UsContact UsServices « Optimizing Google Places Part 1: Starting a Business [...]

Comment on Services by New rate structure for our services | McFarlan Enterprises

New rate structure for our services | McFarlan Enterprises — Mon, 07 Jun 2010 01:36:42 +0000

[...] Design and Business Solutions in Grand Rapids, Michigan Skip to content About UsContact UsServices « Excel VBA: Adding unique items from a list to a userform [...]