Specific worksheet upper case

[RJ1969]

Hello,
I have this code: see below.

this part here: If Intersect(Target, Range("F:F")) Is Nothing Then
I want to specify for Sheet3
How do I redo the code that Sheet3 F:F is no upper auto.

Thanks.

Private Sub Workbook_SheetChange(ByVal _
                                 Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range("F:F")) Is Nothing Then
        Target = UCase$(Target)
    Else
        Target = StrConv(Target, vbProperCase)
    End If
    Application.EnableEvents = True
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveCell.FormatConditions.Delete
End Sub

[RJ1969]

What I meant except Column F:F Sheet3

[Logit]

.
.
Paste this in the Sheet Level Module :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range("F:F")) Is Nothing Then
        Target = UCase$(Target)
    End If
    Application.EnableEvents = True
End Sub

[RJ1969]

Hi
I already had the code placed in thisworkbook. It works will all the worksheet.
Don’t have I specify the sheet that i want to exclude? I dont want an auto upper case on my worksheet Sheett3 in entire column F.

Tha ks

[Fluff13]

How about

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Sh.Name = "Sheet3" Then Exit Sub
    Application.EnableEvents = False
    If Intersect(Target, Sh.Range("F:F")) Is Nothing Then

[RJ1969]

Logit

Can this be work in workbook instead worksheet?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range("F:F")) Is Nothing Then
        Target = UCase$(Target)
    End If
    Application.EnableEvents = True
End Sub

[RJ1969]

Hi guys,
I think I got it. But when I put "F:F" it does not work.

See this code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next
Application.EnableEvents = False

If Sh.Name = "Sheet1" And Target.Address = "F:F" _
Then
    Target = StrConv(Target, vbProperCase)
Else
    Target = UCase$(Target)
End If

On Error GoTo 0
Application.EnableEvents = True

End Sub

[RJ1969]

I tried this too but no luck.

If Sh.Name = "Sheet3" And Target.Address = "$F$:$F$" _

[Fluff13]

Do you want it to exclude sheet3 completely?
If so just add the line I showed in post#5

[RJ1969]

I don't want to exclude Sheet3. I just want to exclude Column F in Sheet3 but the rest will be an auto upper case I had the F:F Sheet3.

This code might work but if I work it with a specific cell then it work. Let say $F$1 it works fine.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next
Application.EnableEvents = False

If Sh.Name = "Sheet1" And Target.Address = "F:F" _
Then
    Target = StrConv(Target, vbProperCase)
Else
    Target = UCase$(Target)
End If

On Error GoTo 0
Application.EnableEvents = True

End Sub

[Logit]

.
It sounds like you want auto-capitalize for all Sheets, all columns, EXCEPT for SHEET 3, Column F.

Is that correct ?

[RJ1969]

Hi

Yes, you got it. : o)

[RJ1969]

Something like this:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next
Application.EnableEvents = False

If Sh.Name = "Sheet3" And Target.Address = "F:F" _
Then
    Target = StrConv(Target, vbProperCase)
Else
    Target = UCase$(Target)
End If

On Error GoTo 0
Application.EnableEvents = True

End Sub

[RJ1969]

but like I said when I typed F:F on the code it does not work. But if I use $F$1 for cell itself works.

[Logit]

.
If the macro he submitted works .. why are you changing it to : $F$1 ???

[RJ1969]

No, I was actually trying to change to F:F.

Maybe my code was wrong.

[RJ1969]

Like you said Logit
"It sounds like you want auto-capitalize for all Sheets, all columns, EXCEPT for SHEET 3, Column F."
This is correct. This is what I want to happen but the codes does not work at all.

Thanks.

[Logit]

.
I believe this works ...

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
    Application.EnableEvents = False
    
    If Intersect(Target, Sheet3.Range("F:F")) Is Nothing Then
        Target = UCase$(Target)
    End If
    Application.EnableEvents = True

End Sub

[RJ1969]

Yay! Perfect!

Thank you Logit and thank you too Fluff13

[Logit]

.
You are welcome.