How can i manage it with the If Selection.Cells(x, 8) ??? Can u please explain?
Thanks On 23 Mrz., 20:31, Tom Jeffries <tjeff...@gmail.com> wrote: > An Alternative Solution: > Public Function IsAcct(code As String) As Boolean > Dim Acct > Dim Found As Boolean > > Acct = Array( _ > "AD", "AE", "AF", "AG", "AI", "AL", "AM", "AN", "AO", _ > "AQ", "AR", "AS", "AT", "AU", "AW", "AX", "AZ", "BA", _ > "BB", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BM", _ > "BN", "BO", "BR", "BS", "BT", "BV", "BW", "BY", "BZ", _ > "CA", "CC", "CD", "CF", "CG", "CH", "CI", "CK", "CL", _ > "CM", "CN", "CO", "CR", "CS", "CU", "CV", "CX", "CY", _ > "CZ", "DE", "DJ", "DK", "DM", "DO", "DZ", "EC", "EE", _ > "EG", "EH", "ER", "ES", "ET", "FI", "FJ", "FK", "FM", _ > "FO", "FR", "GA", "GB", "GD", "GE", "GF", "GG", "GH", _ > "GI", "GL", "GM", "WS", "YE", "YT", "ZA", "ZM", "ZW") > > code = StrConv(Trim(code), vbUpperCase) ' Upper-case no blanks > Found = False > > For i = 0 To UBound(Acct) > If Acct(i) = code Then > Found = True > Exit For > End If > Next > > IsAcct = Found > > End Function > > > > On Sun, Mar 22, 2009 at 6:54 PM, xmux <kurtulu...@gmail.com> wrote: > > > Hi Everyone, > > > I am just checking a Cell with > > > If Selection.Cells(x, 8) <> _ > > "AD" Or "AE" Or "AF" Or "AG" Or "AI" Or "AL" Or "AM" Or "AN" Or "AO" > > Or "AQ" Or "AR" Or "AS" Or "AT" Or "AU" Or _ > > "AW" Or "AX" Or "AZ" Or "BA" Or "BB" Or "BD" Or "BE" Or "BF" Or "BG" > > Or "BH" Or "BI" Or "BJ" Or "BM" Or "BN" Or _ > > "BO" Or "BR" Or "BS" Or "BT" Or "BV" Or "BW" Or "BY" Or "BZ" Or "CA" > > Or "CC" Or "CD" Or "CF" Or "CG" Or "CH" Or _ > > "CI" Or "CK" Or "CL" Or "CM" Or "CN" Or "CO" Or "CR" Or "CS" Or "CU" > > Or "CV" Or "CX" Or "CY" Or "CZ" Or "DE" Or _ > > "DJ" Or "DK" Or "DM" Or "DO" Or "DZ" Or "EC" Or "EE" Or "EG" Or "EH" > > Or "ER" Or "ES" Or "ET" Or "FI" Or "FJ" Or _ > > "FK" Or "FM" Or "FO" Or "FR" Or "GA" Or "GB" Or "GD" Or "GE" Or "GF" > > Or "GG" Or "GH" Or "GI" Or "GL" Or "GM" Or _ > > "WS" Or "YE" Or "YT" Or "ZA" Or "ZM" Or "ZW" Then > > MsgBox "Account Name cannot be empty! " & "Place: Row: " & x & " > > Column: 8" > > GoTo Einde > > End If > > > If i run the Macro i got the run time Error! > > Anyone has any idea? > > > Thanks- Zitierten Text ausblenden - > > - Zitierten Text anzeigen - --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
