küçük harfi büyüğe çevirme

[wirtue]

Arkadaşlar mrhaba;

Excel de hücre içerisine girilen küçük harfleri büyüğe nasıl çevirebilirim?

Tşkler

 

[Necdet]

Merhaba,

Aşağıdaki fonksiyonu kullanabilirsiniz.

BÜYÜKHARF(A1)
UPPER(A1)

 

[megadeth61]

Tesekkurler Sn. Yesertener

 

[Necdet]

Çok hızlısınız Sayın Büyükdeth61

deth ne demekki?

 

[belinay42]

Harf DeĞİŞİmİ

MERHABALAR

HARFİ DEĞİŞİMİ İÇİN UZMANLARIMIZDAN ALDIĞIM KODU GÖNDERİYORUM

GERÇEKTEN KULLANIŞLI

BU ARADA SAYGIDEĞER UZMANLARIMIZA ÇOK TEŞEKKÜRLER

KOD:
Sub Autpen()
Call SpecialCellMenu
End Sub
'
Sub SpecialCellMenu()
Dim cb As CommandBar
Set cb = Application.CommandBars("Cell")
'
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Change Case...®"
MenuObject.BeginGroup = True
MenuObject.Tag = "MyTagR"
'
For MenuItem = 1 To 4
Set PopItem = MenuObject.Controls.Add(msoControlButton, 1, MenuItem, , True)
PopItem.FaceId = 7
With PopItem
Select Case MenuItem
Case 1
.Caption = "ABC DEF"
Case 2
.Caption = "Abc Def"
Case 3
.Caption = "abc def"
Case 4
.Caption = "Abc def"
End Select
.OnAction = "CaseChange"
End With
Next
Set cb = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing
End Sub
'
Sub Auto_Close()
Application.CommandBars("Cell").Reset
End Sub
'
Sub CaseChange()
Dim lngType As Long, MyRng As Range
Set MyWd = CreateObject("Word.Application")
Set MyDoc = MyWd.Documents.Add

Select Case CommandBars.ActionControl.Parameter
Case 1
lngType = 1
Case 2
lngType = 2
Case 3
lngType = 0
Case 4
lngType = 4
End Select

For Each MyRng In Selection
If (Not MyRng = Empty) And (Not IsNumeric(MyRng)) Then
MyWd.Selection.Text = MyRng.Text
MyWd.Selection.Range.Case = lngType
MyRng = MyWd.Selection.Text
End If
Next

MyDoc.Close False
MyWd.Quit
Set MyDoc = Nothing
Set MyWd = Nothing
End Sub

KODU SAYFAYA EKLEDİKTEN SONRA ÇALIŞTIRIN
DEĞİŞECEK HÜCRENİN ÜZERİNE SAĞ TIKLAYIN CaseChange İBARESİNE TIKLADIĞINIZDA İSTEDİĞİNİZE DÖNÜŞTÜRÜN

SAYGILAR

 

[yilmaz581]

paylaşım için teşekkürler.gerçekten harika.Haluk bey'dende almıştım ama kaybetmiştim.çok lazımdı tekrar teşekkürler.