büyük harfi küçük harfe çevirme

[cenk77ist]

word deki shift+f3 ün işlevini excelde yapmak istiyorum bunun için macro varmı.. seçili hücreleri küçükse büyük harfe çeviren macroyu tekrar çalışıtırınca büyükse küçük harfe çeviren macro ?

 

[emrexcel123]

formül

arkadaşım formül işini görürmü? :mrgreen:

 

[emrexcel123]

kod

arkadaşım ilgili kodlar aşağıdadır kendine göre revize edersin
Sub cevir()
On Error Resume Next
deger = Range("c5").Text
buyuk = UCase(Range("c5"))
kucuk = LCase(Range("c5"))
bul = WorksheetFunction.Find(buyuk, deger)
If bul = 1 Then
Range("c6") = kucuk
End If
If bul <> 1 Then
Range("c6") = buyuk
End If
End Sub
ii çalışmalar...

 

[cenk77ist]

güncelledim ..seçili alandaki hücreli değiştiriyor...

Sub cevir()
On Error Resume Next

y = Selection.Column
x = Selection.Row
yy = Selection.Columns.Count - 1
xx = Selection.Rows.Count - 1

For ColumnCount = 0 To yy

For RowCount = 0 To xx

Cells(x + RowCount, y + ColumnCount).Select

deger = Selection
buyuk = UCase(Selection)
kucuk = LCase(Selection)
bul = WorksheetFunction.Find(buyuk, deger)
If bul = 1 Then
Selection = kucuk
End If
If bul <> 1 Then
Selection = buyuk
End If

Next RowCount
Next ColumnCount

Range(Cells(x, y), Cells(x + xx, y + yy)).Select

End Sub

 

[cenk77ist]

türkçe karakter uyumlu, alan seçin cevir macrosunu çalıştırın..

Function UCaseTR(Selection)

Selection = Replace(Selection, "ı", "I")
Selection = Replace(Selection, "ğ", "Ğ")
Selection = Replace(Selection, "ü", "Ü")
Selection = Replace(Selection, "ş", "Ş")
Selection = Replace(Selection, "i", "İ")
Selection = Replace(Selection, "ö", "Ö")
Selection = Replace(Selection, "ç", "Ç")

UCaseTR = UCase(Selection)
End Function

Function LCaseTR(Selection)

Selection = Replace(Selection, "I", "ı")
Selection = Replace(Selection, "Ğ", "ğ")
Selection = Replace(Selection, "Ü", "ü")
Selection = Replace(Selection, "Ş", "ş")
Selection = Replace(Selection, "İ", "i")
Selection = Replace(Selection, "Ö", "ö")
Selection = Replace(Selection, "Ç", "ç")

LCaseTR = LCase(Selection)

End Function


Sub cevir()
On Error Resume Next

y = Selection.Column
x = Selection.Row
yy = Selection.Columns.Count - 1
xx = Selection.Rows.Count - 1

For ColumnCount = 0 To yy

For RowCount = 0 To xx

Cells(x + RowCount, y + ColumnCount).Select

deger = Selection

buyuk = UCaseTR(Selection)
kucuk = LCaseTR(Selection)


bul = WorksheetFunction.Find(buyuk, deger)
If bul = 1 Then
Selection = kucuk
End If
If bul <> 1 Then
Selection = buyuk
End If



Selection = UCaseTR(Left(Selection, 1)) & Right(Selection, Len(Selection) - 1)

Next RowCount
Next ColumnCount


Range(Cells(x, y), Cells(x + xx, y + yy)).Select

End Sub

 

[emrexcel123]

bilgi mi soru mu

arkadaşım anlayamadım beni maruz gör fakat sen bu konuda soru mu soruyorsun yoksa bilgi mi veriyorsun tam anlayamadım :???:

 

[Ali]

word deki shift+f3 ün işlevini excelde yapmak istiyorum bunun için macro varmı.. seçili hücreleri küçükse büyük harfe çeviren macroyu tekrar çalışıtırınca büyükse küçük harfe çeviren macro ?

Haluk Bey'in çalışmasını inceleyiniz.

http://www.excel.web.tr/showthread.php?t=7611