Excel VBA iterate over all used cells and substitute their values -

-

this first time ever working vba , excel , problem caused big lack of knowledge on part.

i have 1 column list of city names (containing 800 items, hence i'm looking automatically replace them) , chunks of text in term "cityname" occurs multiple times , needs replaced correct city name, in setup value of first column cell in same row.

so found this: how iterate through cells in excel vba or vsto 2005

and found instr , substitute functions looking through excel vba reference.

using iteration works fine:

sub mysubstitute()     dim cell range         each cell in activesheet.usedrange.cells             if instr(cell.value, "cityname") > 0                 msgbox "hello world!"         end if     next cell end sub

i message box every "cityname" in sheet (a test sheet 2 rows).

however when add want achieve runtime error (1004):

sub mysubstitute()     dim cell range     each cell in activesheet.usedrange.cells         if instr(cell.value, "cityname") > 0             cell.value = worksheetfunction.substitute(cell.value, "cityname", cells(cell.row, a))         end if     next cell end sub

so guess in line wrong can't figure out what. hints mistake appreciated, :)

you should change:

 cell.value = worksheetfunction.substitute(cell.value, "cityname", cells(cell.row, a))

by

 cell.value = worksheetfunction.substitute(cell.value, "cityname", cells(cell.row, 1))

Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5); ...
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:...
Read more