Tabloda Türkçe kelimeleri ingilizceye çevirme ve formül eksiğini düzeltme

[tekaut]

Merhabalar,
Genişçe ve uzun bir tablo üzerinde çalışıyorum. (6 MB'ı geçti.)
Sizlerin sayesinde biraz kısaltabilirsem mutlu olacağım.

Tablodan bir bölümü ekte sunuyorum.

Tabloda bir hücreye =BUGÜN() işlevini girdim. Programdan çıkarken, dosya üzerinde bir değişiklik yapmadığımda bile kayıt edip etmeyeceğimi soruyor.
Bu sorunun sorulmaması sağlanabilir mi?

Lütfen bunu 3 soruya dahil etmeyiniz.

 

[Ömer]

Merhabalar,
Genişçe ve uzun bir tablo üzerinde çalışıyorum. (6 MB'ı geçti.)
Sizlerin sayesinde biraz kısaltabilirsem mutlu olacağım.

Tablodan bir bölümü ekte sunuyorum.

Tabloda bir hücreye =BUGÜN() işlevini girdim. Programdan çıkarken, dosya üzerinde bir değişiklik yapmadığımda bile kayıt edip etmeyeceğimi soruyor.
Bu sorunun sorulmaması sağlanabilir mi?

Lütfen bunu 3 soruya dahil etmeyiniz.

Merhaba,

F7 hücresindeki formülü aşağıdaki gibi değiştiriniz.

=EĞER(VE(A7="";B7="");"Eksik Veri";EĞER(VE(ÖZDEŞ(H7;X7);A7<>"";B7<>"");"Doğru";"Yanlış"))

Türkçe karakterleri ingilizceye çevirmek için Sayın veyselemre'nin yazdığı KTF yi kullanabilirsiniz. Aşağıdaki kodları boş bir Module kopyalayınız.

Function cevir(gir As String) As String
    eH = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
    yH = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
    For x = 0 To 11
        gir = Replace(gir, eH(x), yH(x))
    Next x
    cevir = gir
End Function

=cevir(B7) şeklinde kullanabilirsiniz..

Diğer sorunuzu tam anlayamadım, B ve E sütunundaki benzersiz verileri ayrı bir sayfadamı listelemek istiyorsunuz..

 

[tekaut]

Sayın espiyonajl,
Beni çok sevindirdiniz. Umarım bilgi dağıtmaktan bıkmazsınız.

Sayın veyselemre'ye ayrıca teşekkür ederim.