StrConv fonksiyonu hakkında bilgi

[xxihsidxx]

Dim bul as Range
For Each bul In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B6500")))
=If StrConv(bul.value,vbUpperCase)=StrConv(TextBox.value,vbUpperCase) Then=(Özellikle eşittir işaretleri arasındaki kısım. Kodda eşittir yok.)
bak.Select
TextBox1.vaule=Activecell.offset(0,1).Value
TextBox3.Value=Activecell.Offset(0,2).Value

 

[aucar19]

StrConv: Stringi Verilen Moda cevirir.

StrConv(String,Mod)

String : cevirilecek metin
Mod : vbLowerCase = Kücük harfe cevrilir
vbUpperCase = Büyük harfe cevrilir
vbProperCase = Ilk harf büyük digerleri kücük
VbFromUnicode = Unicode'dan cevrilir
vbUnicode = Unicode'a cevrilir
vbHiragana = Hiragana
vbKatakana = Katakana
vbNarrow = Dar
vbWide = Genis

 

[m.cay]

Sevgili aucar19,

Bir metin cümlesinin sadece ilk kelimesinin ilk harfini büyük yapan bir kod var mı? Proper'le cümle içindeki her kelimenin ilk harfini büyük yapabiliyoruz ancak benim istediğimi dünden bu yana forumda arıyorum ancak bulamadım. Yardımcı olabilirsen sevinirim.

 

[Ali]

Sub cumledeilkharfbuyuk()
Dim s As String
Dim j As Long
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
s = cell.Text
v = Split(s, ".")
For j = 0 To UBound(v)
s = Application.Trim(v(j))
s = StrConv(s, vbLowerCase)
s = UCase(Left$(s, 1)) & Mid$(s, 2)
v(j) = s
Next
cell = Application.Trim(Join(v, ". "))
End If
Next
End Sub

 

[Ali]

Konunun başlığıda değişse iyi olacak.Çünkü bir anlam ifade etmiyor. İlgili moderatör arkadaşlar düzeltirler sanırım.

 

[oguzhanbkurt]

fructose,


ya belki cok basit ama ben bulamadım simdi 2 çalısma sayfası var 1.calısma sayfasında ki sayılar 8 satırda bi toplanıyor ben butoplamları
2.sayfada 1er satırlar halınde göstermeye çalısıyorum 2. sayfada hucreye =yazıp 1.sayfada işaretlediğimde oluyor ama sorun su 2.sayfada hucreye yazdığım formulu bir altındakı hucreye kopyaladıgım zaman 1.sayfada da 1 alttaki hucreyi yazıyor ben 8 alttaki hucreyi gostermesini istiyorum saygılarımla ...

 

[Ali]

Sn oguzhanbkurt, farklı konu başlığı altında sorunuzu sorabilirmisiniz konu iyice dağıldı çünkü..

 

[m.cay]

Sevgili fructose,

Kodlar çok güzel çalışıyor. Bu kodları makroyla çalıştırmak yerine, Worksheets Change'e uyguladığımızda ve sadece sabit bir hücreyi (örn. B15) otomatik değiştirmesini istediğimizde kodların ne şekilde düzenlenmesi gerekiyor. İlginiz için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodu denermisiniz.

[vb:1:15f247c6c7]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
[b1] = Evaluate("=UPPER(""" & Left([b1], 1) & """)") & Right([b1], Len([b1]) - 1)
End Sub
[/vb:1:15f247c6c7]

 

[m.cay]

Sevgili leventm,

Sizin yazdığınız kodlar bir tek cümlede iyi çalışıyor, ancak birden fazla cümle olunca çalışmıyor. Ayrıca belirtilen hücredeki bütün karakterlerin büyükharli olduğu durumlarda küçükharfe çevirmiyor.
Sayın fructose'un yazdığı kodlarda bu problemler olmuyor, yalnızca türkçe karakterleri tanımıyor. Bu düzeltilip Worksheet Change'de belirli bir hücreyi otomatik değiştirebilirse benim için çok iyi olur.
Çok mu şey istedim acaba! :?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Sadece B15 hücresinde çalışır.

[vb:1:655301c284]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$15" Then Exit Sub
[b15] = Evaluate("=UPPER(""" & Left([b15], 1) & """)") & Evaluate("=LOWER(""" & Right([b15], Len([b15]) - 1) & """)")
End Sub
[/vb:1:655301c284]