cell with wrap text and merge and center

[BORUCH]

Question

if i have cell A1 and cell A2 merged together with wrapped text, and i want to increase each individual number by a certain percent how would i get that done for ex.

$100.25 ZZ
$200.25 ZA

through excel VBA

 

[Logit]

.
Don't use merged cells. They cause more issues than is worth the visual appearance.

 

[BORUCH]

in my situation i use it a lot if you can possibility help with a vba code i would appreciate it

Thanks

 

[BORUCH]

Does anybody have an answer ?

 

[Rick Rothstein]

Select the merged cell and then run this macro...

[table="width: 500"]
[tr]
	[td]Sub IncreaseWrappedTextByCertainPercent()
  Dim X As Long, IncreaseBy As Double, Parts() As String
  IncreaseBy = 0.15  ' 15 percent
  Parts = Split(ActiveCell.Value, vbLf)
  For X = 0 To UBound(Parts)
    Parts(X) = Format((1 + IncreaseBy) * Val(Replace(Parts(X), "$", "")), "$0.00") & Mid(Parts(X), InStr(Parts(X), " "))
  Next
  Selection = Join(Parts, vbLf)
End Sub[/td]
[/tr]
[/table]

 

[BORUCH]

hi

Thanks so much that worked perfectly !

One more question how would i identify a cell that has wrapped text and merge center for ex.

what if statement in VBA can i use to say ,that it should only run your code if the cell has this type of formatting

 

[Rick Rothstein]

One more question how would i identify a cell that has wrapped text and merge center for ex.

what if statement in VBA can i use to say ,that it should only run your code if the cell has this type of formatting

I'll use Selection for the cell reference, but you can replace it with any valid cell range reference...

If Selection.MergeCells And Selection.WrapText Then

 

[BORUCH]

HI

I would also need to identify if the cell has multiple lines like my first example.

 

[BORUCH]

hi

if i wanted to round the number to the nearest nickel just to make it look nicer ,like the mround function how would i fit it in this code

 

[BORUCH]

I Tried application.worksheetfunction.mround
but i'm getting an error