Replace RegEx smaller case with upper case

[od33n]

Hi all,

Is there any solution to do this task? I have been searching for solution, but i did not found it.

I am using this code for replaces. But dont know, how to say the script, that $2 i want to replace with small case

For example
elefant 1234AB to elefant 1234ab

I know i can do it also with replace without regex, but there is too much words what i need to replace

Thank you for helping me...

<code style="margin: 0px; padding: 0px; font-style: inherit;"> Dim r As Range Dim Univers0 As Object 'elefant 1234AB to elefant 1234ab animal.Pattern = "^(elefant \d{1,4})(A-Z){1,2}" For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp)) If animal.test(r.Value) Then r(, 1).Value = animal.Replace(r.Value, "$1$2") End If NextEnd Sub</code></pre>

 

[Gary McMaster]

The "Lower" worksheet function should work. You could also use the "LCase" function if you insist on using VBA.

Gary

 

[od33n]

mmm, dont know it much, please can you type me example code?

The "Lower" worksheet function should work. You could also use the "LCase" function if you insist on using VBA.

Gary

 

[Gary McMaster]

Public Sub Test()

Dim r As Range

For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp))
    r.Value = LCase(r.Value)
Next

End Sub

or using a formula:

In cell A1: "TEXT TO BE CHANGED TO LOWER CASE"
Formula in cell B1: =LOWER(A1)

Fill B1 down to end of column A

Hope this helps.

Gary

 

[od33n]

Hmmm,
this seems very good, but i am quite noobie in VBA so I would like to ask you also if i can combine this LCase with regEx as i have typed above.

The thing is, that in A column is not all strings needed to be lowered. So only those, that have 1 to 4 digits before for example (as code above)

Thank you very much.

Public Sub Test()

Dim r As Range

For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp))
    r.Value = LCase(r.Value)
Next

End Sub

or using a formula:

In cell A1: "TEXT TO BE CHANGED TO LOWER CASE"
Formula in cell B1: =LOWER(A1)

Fill B1 down to end of column A

Hope this helps.

Gary

 

[Gary McMaster]

Maybe something like this:

Public Sub Test()

Dim r As Range

For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp))
    If Val(r) <> 0 Then
        r.Value = LCase(r.Value)
    End If
Next

End Sub

 

[od33n]

Oh, thanks, this helped me much.