ucase hatası hk.

[aureliane]

selamlar, aşağıdaki kodda "Object doesn't support this property or method (Error 438)" hatası alıyorum, nasıl düzeltebilirim forumda bulamadım. teşekkürler.

Sub banka()
Dim banka As String
banka = InputBox("Banka Adı", "banka") 
banka = Application.UCase(banka)
Range("c7").Value = banka
End Sub

 

[cems]

Sub banka()
Dim banka As String
Dim ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet

banka = InputBox("Banka Adı", "banka")
banka = Application.UCase(banka)

ws.Range("C7").Value = banka
End Sub

Bu kod, belirli bir çalışma sayfasında (aktif çalışma sayfasında) C7 hücresine değeri atamak için Worksheet nesnesini kullanır. Bu şekilde, "Object doesn't support this property or method" hatasını düzeltebilirsiniz.

 

[aureliane]

Teşekkürler fakat yine aynı hatayı alıyorum, ucase ve lcase de hata alıyorken proper da hata almıyorum, anlayamadım ne yapmam gerektiğini bir türlü

 

[cems]

Sub banka()
Dim banka As String
Dim ws As Worksheet


Set ws = ThisWorkbook.Sheets("İşlemYapılacakSayfaAdı") ' Değiştirmeniz gereken kısmı burası

banka = InputBox("Banka Adı", "banka")
banka = UCase(banka) ' Application nesnesine gerek yok
'banka = LCase(banka) ' Aynı şekilde LCase de kullanabilirsiniz

ws.Range("C7").Value = banka
End Sub

Burada "İşlemYapılacakSayfaAdı" kısmını, işlem yapılacak çalışma sayfasının adıyla değiştirmeniz gerekiyor. Bu şekilde, çalışma sayfasını belirtmiş olacaksınız ve hatayı almamış olacaksınız.

 

[aureliane]

Çok teşekkürler şimdi tamamdır.

 

[cems]

kolay gelsin