Compare two columns, but only first 4 letters - vba excel -


i have 2 columns - column , column b, filled different items. column b shorter (it has less items column a). need vba formula in excel 2007 following:

1) compare first 4 letters of items in column b first 4 letters of items column

2) find match in column , copy whole content of cell in column column c, next item in column b matched.

here's i've made far:

    sub compare() dim range1 range, range2 range, rng1 range, rng2 range dim x long xtitleid = "compare" set range1 = application.selection set range1 = application.inputbox("range1 :", xtitleid, range1.address, type:=8) set range2 = application.inputbox("range2:", xtitleid, type:=8) application.screenupdating = false each rng1 in range1     xvalue = rng1.value      each rng2 in range2     x = rng2.row         if xvalue = rng2.value             rng1.copy             activesheet.range("c" & x).pastespecial         end if     next next application.screenupdating = true end sub 

this code job, compares whole words , need first 4 letters. know of function left, don't know how implement here. can me?

the function need following:

test = left("yourvalue",4) 

of course there opposite function:

test = right("yourvalue",5) 

in firts case result in test "your" , in second case "value"

to copy value in colum c can use 2 strategy:

activesheet.range("c" & x).cells(row_index, column_index) 

or

activesheet.range("c" & x).pastespecial 

Comments

Popular posts from this blog

java - Spring Data JPA: Why findOne(id) executing delete query internally? -

python - Mongodb How to add addtional information when aggregating? -

java - Incorrect order of records in M-M relationship in hibernate -