makrolar tüm excel belgelerinde nasıl geçerli kılınır?

[Selçuk1]

tüm kullanıcılara selamlar...
excelde atadığım herhangi bir makro sadece makroyu atadığım çalışma kitabında kullanılabiliyor. örneğin rakamlar yazıya çeviren makroyu atadım ve bunun tüm excel çalışma kitaplarında kullanılmasını istiyorum? nasıl yapabilirim? ayrıca atadığım makro küsuratlı rakamlarda hata veriyor?? bunun çözümü yok mu? :yardim: :yardim: :yardim:

 

[Kemal Demir]

Sn.Cellchuq

Öncelikle Personel Makrosunu olusturmanız lazım.

Makro Kaydediciden Personle Makroları tıklamanız gerekemketedirm.
Acıldıktan sonra içeri yazacagınız kod tum excellerde geçerli olacaktır.

2.Sorunuz için Örnek Dosyayı görmeden birşey soylemek zor.

 

[Levent Menteşoğlu]

Tüm dosyalarda geçerli olması için fonksiyonun eklenti haline getirilmesi gerekir. Aşağıdaki linkte zaten böyle bir eklenti mevcut incelemenizi öneririm.

http://www.excel.web.tr/showthread.php?t=12077

 

[Selçuk1]

yazıya çevir makrosu...

gönderdiğiniz linki şimdi inceliycem.. teşekkür ediyorum.. umarım işimi görür.. 2nci soru için görmeden birşey diyemem demişsiniz. yazıya çevir makrosunu aşağıda gönderiyorum.. Çalışmada hata yok ama dediğim gibi küsuratlı sayıların çevrimini yapmıyor.. incelermisiniz...

Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

Function Yaziyla$(sayi)

b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Beş"
b$(6) = "Altı"
b$(7) = "Yedi"
b$(8) = "Sekiz"
b$(9) = "Dokuz"

y$(0) = ""
y$(1) = "On"
y$(2) = "Yirmi"
y$(3) = "Otuz"
y$(4) = "Kırk"
y$(5) = "Elli"
y$(6) = "Altmış"
y$(7) = "Yetmiş"
y$(8) = "Seksen"
y$(9) = "Doksan"

m$(0) = "Trilyon"
m$(1) = "Milyar"
m$(2) = "Milyon"
m$(3) = "Bin"
m$(4) = ""

a$ = Str(sayi)
If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
a$ = Right$(a$, Len(a$) - 1)
For x = 1 To Len(a$)
If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata
Next x
If Len(a$) > 15 Then GoTo hata
a$ = String(15 - Len(a$), "0") + a$
For x = 1 To 15
v(x) = Val(Mid$(a$, x, 1))
Next x

s$ = ""
For x = 0 To 4
c(1) = v((x * 3) + 1)
c(2) = v((x * 3) + 2)
c(3) = v((x * 3) + 3)
If c(1) = 0 Then
e$ = ""
ElseIf c(1) = 1 Then
e$ = "Yüz"
Else
e$ = b$(c(1)) + "Yüz"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If e$ <> "" Then e$ = e$ + m$(x)
If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
s$ = s$ + e$
Next x

If s$ = "" Then s$ = "Sıfır"
If pozitif = 0 Then s$ = "Eksi" + s$
Yaziyla$ = s$
GoTo tamam
hata: Yaziyla$ = "Hata"
tamam:
End Function

 

[Selçuk1]

örnek harika..

Sn. leventm;
linki şimdi inceledim.. gerçekten müthiş.. işte tam olarak aradığım buydu... emeğinize teşekkürler.. ancak hazır yeri gelmişken şunu da sorayım, kendi yarattığım makroyu(örneğini yukarıda gönderdim) nasıl eklenti haline getiricem??

 

[Levent Menteşoğlu]

Eklenti hazırlamak ile ilgili olarak. EXCEL DERSANESİ başlığında bulunan aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=7756

 

[Selçuk1]

teşekkürler..

yardımlarınıza teşekkürler.. bu kadar ilgili ve faydalı başka bir forum tanımıyorum sanal alemde.. hepinize minnetarım.. bir numarasınız..