Hücreye Küçük yada karışık yazdığımı captiona büyük yazsın

[Sa.NaL]

Merhaba benim sizlerden ricam ben a1 hücresine yazdığım yazı küçük yada büyüklü küçüklüde olsa userform1.caption a büyük halde eşitlenebileceği kodu söylermisiniz?

 

[ziya]

Merhaba,
İstediğiniz, BÜyÜkharf = Upper olabilir mi?
Selamlar,

 

[Sa.NaL]

upper ne bilmiyorum ki

 

[Sa.NaL]

Her halükarda büyük yazı olarak userform1.caption Büyük olsunda upperle olsun

 

[janveljan]

Userform1.Caption=UCase(Replace(Replace(cells(1,1), "i", "İ"), "ı", "I"))

 

[Sa.NaL]

Sub OnayKutusu630_Tıklat() 'Blok Ekstra Birinci İşlem Ücreti'
If Sheets("Motor Giriş Eki").[A231] = True Then
BlokEkstra1.BlokEkstra1Text.Value = ""
BlokEkstra1.Caption = UCase(Replace(Replace(Cells(22, 9), "i", "İ"), "ı", "I"))
BlokEkstra1.Caption = Sheets("Motor Giriş Eki").[V9].Value & " " & "FİYAT GİRİŞİ"
BlokEkstra1.Show
End If

Sayın Janveljan V9 hücreme yazdığımı yanındaki işaretlme ikonuna tıklayınca userform1 bende Blok Ekstra1 BlokEstra1.captiona Büyük olrak geçirmiyor kodlarım yukarıda neden acaba incelrseniz sevinirim...

 

[Sa.NaL]

Hocam ben bu kodu nereye koyarsam çalışır pek anlayamadımda doğrusu

 

[janveljan]

BlokEkstra1.Caption = UCase(Replace(Replace(Cells(22, 9), "i", "İ"), "ı", "I"))
BlokEkstra1.Caption = Sheets("Motor Giriş Eki").[V9].Value & " " & "FİYAT GİRİŞİ"

Öncelikle yukarda captionı değiştiren iki satır arka arkaya, ayrıca cells(22,9) I22 hücresi oluyor
yani senin büyük harfe çevirdiğin hücre yanlış hücre, ayrıca hücre doğru olsada yine doğru sonuç çıkmaz idi aşağıdaki iki seçenekten biri olmalı

Cells(9, 22) = UCase(Replace(Replace(Cells(9, 22), "i", "İ"), "ı", "I"))
BlokEkstra1.Caption = Sheets("Motor Giriş Eki").[V9].Value & " " & "FİYAT GİRİŞİ"

BlokEkstra1.Caption = UCase(Replace(Replace(Sheets("Motor Giriş Eki").[V9].Value , "i", "İ"), "ı", "I")) & " " & "FİYAT GİRİŞİ"