I want short code some how

T

TLS49

Board Regular
Joined
Nov 26, 2019
Messages
132
Office Version
  1. 365
Platform
  1. Windows
How I make code shorter.. It doing for all worksheets. I only want do for one worksheets only sheet name is calle remove cities

VBA Code: 
'Removing cities name from the list
'Range D2:D273,G2:G273
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Cells.Replace What:="ARIZONA ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    End With
    With ws
  .Cells.Replace What:="ATLANTA ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="BALTIMORE ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
 
     .Cells.Replace What:="BUFFALO ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="CAROLINA ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="CHICAGO ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False


    .Cells.Replace What:="CINCINNATI ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="CLEVELAND ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="DALLAS ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="DENVER ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="DETROIT ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="GREEN BAY ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="HOUSTON ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="INDIANAPOLIS ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="JACKSONVILLE ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="KANSAS CITY ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="LOS ANGELES ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="MIAMI ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="MINNESOTA ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="NEW ENGLAND ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="NEW ORLEANS ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="NEW YORK ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="LAS VEGAS ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="PHILADELPHIA ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="PITTSBURGH ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="SAN FRANCISCO ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False


    .Cells.Replace What:="SEATTLE ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="TAMPA BAY ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="TENNESSEE ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    .Cells.Replace What:="WASHINGTON ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    
     End With
    
    Next ws
 

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
Sort by date Sort by votes
Hi
What about
VBA Code: 
Sub test()
Dim ws As Worksheet
Dim a
Dim i
a = Array("ARIZONA", "ATLANTA", "BALTIMORE", ..............) ' fill all the cities
    For Each ws In ActiveWorkbook.Worksheets
    With ws
    For i = 0 To UBound(a)
    On Error Resume Next
        .Cells.Replace What:=a(i, 1), Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
      Next
     End With
     Next
End Sub
 
Upvote 0
mohadin said:
Hi
What about
VBA Code: 
Sub test()
Dim ws As Worksheet
Dim a
Dim i
a = Array("ARIZONA", "ATLANTA", "BALTIMORE", ..............) ' fill all the cities
    For Each ws In ActiveWorkbook.Worksheets
    With ws
    For i = 0 To UBound(a)
    On Error Resume Next
        .Cells.Replace What:=a(i, 1), Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
      Next
     End With
     Next
End Sub
Click to expand...

The Variable is not defined. I have error post picture blue line have a problem. I need worksheet in code is called Remove Cities
 

Attachments

  • ERROR VBA CODE.jpg
    ERROR VBA CODE.jpg
    67.8 KB · Views: 12
Upvote 0
If I understand you correctly, you only want this applied to a single sheet called "remove cities"? If that is correct, try the following code. I note that your list includes both states as well as cities, and that each name is followed by a space.
VBA Code: 
Option Explicit
Sub RemoveCities()
    Dim ws As Worksheet, arr, i As Long
    Set ws = Worksheets("remove cities")    '<~~ *** MAKE SURE THE SPELLING IS CORRECT ***
    
    arr = Array("ARIZONA ", "ATLANTA ", "BALTIMORE ", "BUFFALO ", "CAROLINA ", "CHICAGO ", "CINCINNATI ", _
                "CLEVELAND ", "DALLAS ", "DENVER ", "DETROIT ", "GREEN BAY ", "HOUSTON ", "INDIANAPOLIS ", _
                "JACKSONVILLE ", "KANSAS CITY ", "LOS ANGELES ", "MIAMI ", "MINNESOTA ", "NEW ENGLAND ", _
                "NEW ORLEANS ", "NEW YORK ", " LAS VEGAS ", "PHILADELPHIA ", "PITTSBURGH ", "SAN FRANCISCO ", _
                "SEATTLE ", "TAMPA BAY ", "TENNESSEE ", "WASHINGTON ")
    With ws.Cells
        For i = LBound(arr) To UBound(arr)
            .Replace arr(i), "", xlPart
        Next i
    End With
End Sub
 
Upvote 0
Solution
VBA Code: 
[CODE=vba]
Sub test()
Dim ws As Worksheet
Dim a
Dim i&
a = Array("ARIZONA ", "ATLANTA ", "BALTIMORE ", "BUFFALO ", "CAROLINA ", "CHICAGO ", "CINCINNATI ", _
                "CLEVELAND ", "DALLAS ", "DENVER ", "DETROIT ", "GREEN BAY ", "HOUSTON ", "INDIANAPOLIS ", _
                "JACKSONVILLE ", "KANSAS CITY ", "LOS ANGELES ", "MIAMI ", "MINNESOTA ", "NEW ENGLAND ", _
                "NEW ORLEANS ", "NEW YORK ", " LAS VEGAS ", "PHILADELPHIA ", "PITTSBURGH ", "SAN FRANCISCO ", _
                "SEATTLE ", "TAMPA BAY ", "TENNESSEE ", "WASHINGTON ")
    With sheets("Remove Cities")
    For i = 0 To UBound(a)
    On Error Resume Next
        .Cells.Replace What:=a(i, 1), Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
      Next
     End With

End Sub
[/CODE]

I gad mention to you to fill the array Like kevin
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question
Saveas newwb, close new wb, delete old wb
Replies
8
Views
174
eiloken
E
L
  • Question
Clean Text - Remove Repeat Line Breaks
Replies
4
Views
170
lneidorf
L
R
  • Question
Formatting using VBA
Replies
0
Views
419
RandyD123
R
R
  • Solved
Excel VBA error when attempting to replace text that has multiple lines a cell
2
Replies
11
Views
370
Revco
R
S
  • Question
Parse data - Overwrite lines with updated data
Replies
0
Views
123
Scifo
S

Forum statistics

Threads
1,215,044
Messages
6,122,827
Members
449,096
Latest member
Erald

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