Search:

Type: Posts; User: Mohadin

Search: Search took 0.02 seconds.

  1. Re: Programatically Change Number Values In A String

    Sub test()
    Dim rng As Range
    Dim cel As Range
    Set rng = ActiveSheet.Range("A1:A10")
    For Each cel In rng
    If IsNumeric(cel.Value) Then
    cel.Value = cel.Value +...
  2. Replies
    8
    Views
    1,774

    Re: Stop apostrophe from becoming text

    HI Dan_the_chiwi_man

    Sub test()
    Range("C2").Select
    ActiveCell.Formula = "=B2&""'s ""&D2"
    Range("B7").Select
    End Sub
  3. Re: VBA Help : Small Automation using VBA Macros

    Hi
    How about


    Sub test()
    Dim a As Variant, lr
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    a = Range("b1:b" & Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 3)
    With...
Results 1 to 3 of 3



Click Here to Expand Forum to Full Width