Kurum başlığına eklenen ('ne - ' na) ekleri

[omeryılmaz]

Private Sub CommandButton1_Click()

Sheets("Sayfa1").Range("A9").Value = "=Sayfa2!D1&ARA(SAĞDAN(Sayfa2!D1;1);{"ı";"i";"u";"ü";"o";"ö"};{" 'NA";" 'NE";" 'NA";" 'NE";" 'NA";" 'NE"})"

End Sub


Yukardaki formülü modül olarak nasıl çalıştırabiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

Private Sub CommandButton1_Click()
Select Case Right([sayfa2!d1], 1)
Case "I": ekle = "'NA"
Case "İ": ekle = "'NE"
Case "U": ekle = "'NA"
Case "Ü": ekle = "'NE"
Case "O": ekle = "'NA"
Case "Ö": ekle = "'NE"
End Select
[sayfa1!a9] = [sayfa2!d1] & ekle
End Sub

veya

Private Sub CommandButton1_Click()
harf = Array("I", "İ", "U", "Ü", "O", "Ö")
ek = Array("'NA", "'NE", "'NA", "'NE", "'NA", "'NE")
ekle = ek(WorksheetFunction.Match(Right([sayfa2!d1], 1), harf, 0) - 1)
[sayfa1!a9] = [sayfa2!d1] & ekle
End Sub