G harfini 0 (sıfır) ile değiştirme

[huseyinvurkan]

Arkadaşlar performans ölçeklerini otomatik oluşturmak için e okul dan aldığım notlarda "girmedi" anlamına gelen "G" harfinden dolayı formüllerim hata veriyor. Benim yapmak istediğim notları kopyaladığım sayfada D9:AZ1000 aralığında G yazan hücrelerdeki değerin 0 (sıfır)'a dönüşmesidir. İlginize teşekkür ederim

 

[Muhammet Okumuş]

Merhaba,
=EĞER(A1="G";0;formülünüz)

Verileriniz A sütunuda olduğu varsayılmıştır.

 

[Necdet]

Merhaba,

D9:AZ1000 aralığını seçin
Ctrl+H (Bul ve Değiştir)
Aranan G
Yerine Konacak 0
Tümünü değiştir.

 

[huseyinvurkan]

Merhaba,

D9:AZ1000 aralığını seçin
Ctrl+H (Bul ve Değiştir)
Aranan G
Yerine Konacak 0
Tümünü değiştir.

Sayın YETEŞENER İlginize teşekkürler. Bu yolla çözüm gerçekleşiyor. Ancak Her öğretmen aynı sayfaya farklı notlar yapıştırarak programı kullanacağı için her seferinde bunu yapmak yerine bunu sürekli yapan bir kod yazılamaz mı? Yani o sayfaya notlar yapıştırılınca D9:AZ1000 aralığındaki bütün G harfleri 0'a döndürülemez mi acaba ?

 

[huseyinvurkan]

Merhaba,
=EĞER(A1="G";0;formülünüz)

Verileriniz A sütunuda olduğu varsayılmıştır.

Sayın Okumuş ilginize teşekkür ederim Ancak bu formülü nereye yazarak D9:AZ1000 aralığındaki işlemi gerçekleştireceğimi anlayamadım. Bu aralıktaki notlar sürekli değişecek.

 

[Muhammet Okumuş]

Kullanmış olduğunuz formüllere uygulayacaksınız.

 

[BAZGİRET]

Merhaba,
sayfanın kod bölümüne şu kodu yazıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("D9:AZ1000").Select
Selection.Replace What:="G", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D9").Select
Application.ScreenUpdating = True
End Sub

 

[huseyinvurkan]

Sayın BAZGİRET vermiş olduğunuz kod çalıştı teşekkür ediyorum