Excel help....fastest finger first....

[Joe_Fox]

Hello,

I need to add the text "+62" to every cell in a column that has 8 characters.

So if a cell had "45339834" I want to run a macro that changes this to "+62 45339834".

Is this easy peasy? Any pointers would be grand.

Joe

 

[Darth Vodka]

Sub AppendSelection
     dim LoopCell as range
     
     For Each LoopCell in Selection
          if len(LoopCell.Value)=8 then
               LoopCell.Value="+62 " & LoopCell.Value
          end if
     Next
End Sub

works on what cells are selected...

 

[Darth Vodka]

you don't need VBA

you could just use formulae

="+62 " & A1

etc

 

[Joe_Fox]

Thank you Darth, much obliged.

 

[SJN-Fox]

you don't need VBA

you could just use formulae

="+62 " & A1

etc

Yes but that would add it to every cell regardless of whether it had 8 nuimbers in or not, and the implication in the original question was that the +62 needed adding to every cell that has 8 numbers and therefore not if there are not 8 numbers. So the VBA solution would allow for this, whereas your solution doesn't.

 

[Darth Vodka]

Yes but that would add it to every cell regardless of whether it had 8 nuimbers in or not, and the implication in the original question was that the +62 needed adding to every cell that has 8 numbers and therefore not if there are not 8 numbers. So the VBA solution would allow for this, whereas your solution doesn't.

pffft

=if(len(a1)=8,"+62 "&a1,a1)

 

[SJN-Fox]