Düzelt/değiştir butonu

[antir]

arkadaşlar değiştir butonu kodu gönderebilirmisiniz bulduğum kodlar çalışmadı basit bişey olabilir .saolun

 

[ozgretmen]

Aşağıdaki kod ile A1 hücresinde yazan dosya kelimesini klasör olarak değiştirir.

sub değiştir()
Range("A1").Replace What:="dosya", Replacement:="klasör"
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Set bul = Cells.Find(TextBox1, lookat:=xlWhole)
If Not bul Is Nothing Then
bul.Activate
End If
End Sub
Private Sub CommandButton2_Click()
ActiveCell = TextBox1
End Sub

 

[antir]

Private Sub CommandButton1_Click()
Set bul = Cells.Find(TextBox1, lookat:=xlWhole)
If Not bul Is Nothing Then
bul.Activate
End If
End Sub
Private Sub CommandButton2_Click()
ActiveCell = TextBox1
End Sub

teşekkürler peki ben birden çok textboxda değiştirmek istiyorum ve sayfa 2 dede değiştirmek istiyorum onu nasıl yapıcağım?

 

[mekist]

Merhaba,

"D" sütnun da yer alan rakamsal değerler var.Programdan veri alarak excel atıyorum bunlar excel aktardığımda sayı olarak görmüyor.Hücre biçimlendirmeden sayı olarak yapmama rağmen yapmıyor.
"0" "sıfır" kendisi ile değiştirince düzeliyor.Değiştirilecek değer de sıfır değişecek değer de sıfır.

Özeğeretmen Hocam sizin verdiğiniz örnekte tek hücreyi değiştiriyor.Bunu bütün Sütun için nasıl yapılabilir.

 

[ozgretmen]

Özeğeretmen Hocam sizin verdiğiniz örnekte tek hücreyi değiştiriyor.Bunu bütün Sütun için nasıl yapılabilir.

Aşağıdaki şekilde deneyiniz...

Sub değiştir()
Columns("A").Replace What:="dosya", Replacement:="klasör"
End Sub