formüller türkçe-ingilizce

[modoste]

merhaba sayın hocalarım
forumumuzdan formüllerin türkçelerinin ingilizce karşılıkları diye bir dosya indirmiştim.
acaba türkçe yazılan bir formülü bir seferde ingilizceye çevrilmesiyle ilgili birşey varmıdır.

 

[veyselemre]

Aşağıdaki gibi bir kodla öğrenebilirsiniz.

Sub test()
[b1] = "a1 formula:  " & [a1].Formula
End Sub

 

[modoste]

ekli dosya gönderebilirmisiniz sayın veyselemre

 

[veyselemre]

Örnek dosya ektedir.

 

[modoste]

sayınveyselemre teşekkür ederim dosya için
dosyada galiba sadece A1 hücresine türkçe formül giriliyo ve mako çalışınca ingizlicesi başka hücrede b1 çıkıyo.

bu sadece 1 satırlık galiba şöyle yapabilirmiyiz makroyu
A1:A1000 arasına türkçe formüller yazılacak ve B1:B1000 arasında ingilizceleri olacak

 

[vardar07]

Aşağıdaki gibi yaparsanız kaç tane varsa o kadar çevirir.

Sub test()
son = [a1].End(xlDown).Row
For i = 1 To son
Range("B" & i) = "A" & i & " formula: " & Range("A" & i).Formula
Next
End Sub

 

[modoste]

teşekkür ederim sayınvardar07

 

[vardar07]

Rica ederim. Kolay gelsin.

 

[Erdem Akdemir]

Merhaba,

Vba'daki formüllerde ayraç işareti olarak virgül kullanılır ama excel formüllerinde ayraç noktalı vürgüldür.

Sub test()
son = [a1].End(xlDown).Row
For i = 1 To son
Range("B" & i) = "'" & Replace(Range("A" & i).Formula, ",", ";")
Next
End Sub