PDA

Orijinalini görmek için tıklayınız : YENİ MTK YENİ YTL



haydarxxx
15.01.2005, 02:17
Sayın Temel hocam teşekkür ediyorum yeni dll dosyanız için.AFFINIZA SIĞINARAK

16835000 sayısını =YTLyap(A1) yaptığımızda çeviri yapıyor ve 16,84 veriyor 16.835.000 i yuvarlamada yapıyor 5 ve 5 ten büyük ise ise bir üste 5 in altında ise bir alta yuvarlıyor.Eski dll dosyasına göre 16,835 yazdığımızda 16ytl 83 kuruş veriyor.Peki bu yeni dll dosyasına göre ben A1 hücresine 16,835 girdiğimde (yeni ytl olarak) b1 hücresine =Ypf(a1) yazdığımda nasıl 16 ytl 84 kuruş alabilirim.(yuvarlanmış olarak).Bunu yaptığımda B1 hücresine sıfır yazıyor.Bu konuda diğer forum arkadaşlarınında yardımı bekliyorum.TEŞŞEKÜR EDİYORUM .Saygılar:roll:

M. Temel Korkmaz
15.01.2005, 08:36
Merhaba haydarxxx arkadaşım,
Şimdi buradaki pozisyon şu. Bir TL takamını YTL'ye döndürmek için öncelikle 1.000.000 'a bölmek gerekiyor. Siz F7 bastığınızda ya da =YTLyap fonksiyonunu kullandığınızda işte bu işlemi yapıp yuvarlıyor.

16,835 rakamı ise ne TL ne de YTL formatında. Çünkü TL formatında olması için Kuruş olmaması gerekiyor. Dolayısı ile rakam 16.835 (16835) şeklinde olmalı. Bunun sonucuda zaten hücrede 0 görünse de 0,2 sonucunu formül çubuğunda görürsünüz ki 20 kuruş manasına gelir.

Oysa sizin bahsettiğiniz yuvarlama işlemi. Dolayısı ile normal işlevleri kullanarak =YUVARLA(16,835;2) yazmanız yeterli olacaktır.

Doğrusu daha bir çok arkadaşımız bu dosyaları tam kullana mıyor. Günde en az 20 - 30 telefon geliyor ve hepsini cevaplıyorum. XP ve yukarısında hiç sorun yok. CD'den çalıştırdığım Excel 97 için de ben sorun yaşamadım. Bir de Excel 2000 için deneyen arkadaşlarımız varsa lütfen bilgilendirsinler.

Not: Bu arada DLL yeni ama MTK 36 yıldır aynı :D.

Biolight
15.01.2005, 11:56
Merhaba,
Ben (Win98, Excel2000) de çalıştıramadım.

Siteden dosyaları ( MTemelKorkmaz.dll ve MTemelKorkmazYTL.xla ) çektim
Dosyaları bilgisayarımda ki C:\WINDOWS\SYSTEM32 klasörüne yerleştirdim

Excel açtım Araçlar - Eklentiler tıkladım
ilk olarak bu pencerede Otomasyon... diye bir button gözükmüyor
onun için Gözat... tıklayıp C:\WINDOWS\SYSTEM32 klasöründe bulunan

1. Deneme
MTemelKorkmazYTL.xla (normalde dosya türü olarak sadece *.xla ve *.xll kabul ediyor) dosyasını seçtim
bu işlem sonunda Excel de hata oluştu hata iletisi:


Bu program geçersiz bir işlem yürüttü ve kapatılacak.
Sorun devam ederse, program satıcınızla görüşün.

Ayrıntılar:
EXCEL, geçersiz sayfa hatasına neden oldu;
birim: <bilinmeyen> konum 0000:003f003f.
Yazmaçlar:
EAX=0000001f CS=0187 EIP=003f003f EFLGS=00010202
EBX=00424db4 SS=018f ESP=0062a94c EBP=0062003f
ECX=c1411b70 DS=018f ESI=0041d340 FS=29cf
EDX=0040003c ES=018f EDI=0041d340 GS=0000
CS:EIP:'deki Baytlar

Yığın dökümü:
0061003f 0061003f 0062003f 003f003f 0062003f
006b003f 0061003f 003f003f 0061003f 00000000
0062a99c 6508fc60 00424db4 0062a994 004be6a8
00000000

Tamam tıklanınca excel kapanıyor.

2. Deneme
Excel yeniden açıyorum bu sefer Eklenti olarak
MTemelKorkmaz.dll dosyasını yapmaya çalışıyorum
dosya türü olarak *.* yani hepsini seçiyorum
MTemelKorkmaz.dll yi onaylayıp çıkınca bu sefer
'C:\WINDOWS\SYSTEM32\MTemelKorkmaz.dll' geçerli bir eklenti değil diyor
yani eklenti olarak kabül etmiyor.

3. Deneme
Excel yeniden açıyorum bu sefer direk
VBA editöre geçiyorum orada Tools - References... tıklıyorum
Açılan pencereden Browse... tıklıyorum
Bu bölümde Standart olarak Dosya türleri (*.olb, *.tlb, *.dll )
C:\WINDOWS\SYSTEM32 klasöründeki MTemelKorkmaz.dll dosyayı onaylayıp çıktığımda
Excel de yine hata oluşuyor hata iletisi.


Bu program geçersiz bir işlem yürüttü ve kapatılacak.
Sorun devam ederse, program satıcınızla görüşün.

Ayrıntılar:
EXCEL, geçersiz sayfa hatasına neden oldu;
birim: <bilinmeyen> konum 0000:003f003f.
Yazmaçlar:
EAX=00000011 CS=0187 EIP=003f003f EFLGS=00010206
EBX=00457838 SS=018f ESP=0062f544 EBP=0062003f
ECX=c1704a50 DS=018f ESI=00419ccc FS=7e67
EDX=0040003c ES=018f EDI=00419c38 GS=0000
CS:EIP:'deki Baytlar

Yığın dökümü:
00000000 00419c38 00000000 000004ec 00000000
0062f580 6508fc60 000004d8 0062f578 00000000
0041cda4 00000000 650e6260 0041c650 00000000
0062f5f0

4. Deneme
Yine VBA editördeyim Bu sefer Browse... tıklayıp
Dosya türü olarak (*.xls, *.xla ) seçili konuma getirip
C:\WINDOWS\SYSTEM32 klasöründeki MTemelKorkmazYTL.xla dosyayı onaylayıp çıktığımda
Excel de yine hata oluşuyor hata iletisi.


Bu program geçersiz bir işlem yürüttü ve kapatılacak.
Sorun devam ederse, program satıcınızla görüşün.

Ayıntılar:
EXCEL, geçersiz sayfa hatasına neden oldu;
birim: <bilinmeyen> konum 0000:003f003f.
Yazmaçlar:
EAX=0000001c CS=0187 EIP=003f003f EFLGS=00010202
EBX=00423f0c SS=018f ESP=0062aaf0 EBP=0062003f
ECX=c1704a50 DS=018f ESI=00419c38 FS=5e57
EDX=004b95b8 ES=018f EDI=00419c38 GS=0000
CS:EIP:'deki Baytlar

Yığın dökümü:
0061003f 0061003f 0062003f 003f003f 0062003f
006c003f 0061003f 003f003f 0061003f 00000000
0062ab40 6508fc60 00423f0c 0062ab38 004c9030
00000000
Kolay gelsin.

Salih Koca
15.01.2005, 13:18
Merhaba Sayın Biolight,


http://www.excel.gen.tr/MTK_Aciklama_01.asp[/url] adresinde]...............................
Buraya kadar olan kısım konunun en başında da ifade ettiğim gibi OfficeXP ve üst sürümleri içindi. Oysa Office 2000 sürümünde Eklentiler penceresinde Otomasyon düğmesi bulunmamaktadır.

Şimdi anlatacağım kısım ve vereceğim örnek ile YPF fonksiyonunu hem Office 2000 için hem de UserForm'larda kullanabileceksiniz.

UserForm'da YPF fonksiyonunu kullanmak

1. Aşağıdaki fonksiyonu herhangi bir modüle yazın.

Public Function YeniPara(hucre)
Set nesne = CreateObject("MTemelKorkmaz.ExcelTim")
YeniPara = nesne.YPF(hucre)
End Function

2. Şimdi herhangi bir hücreye =YeniPara(A1) yazın. Sonucun verildiğini göreceksiniz.

3. UserForm'da kullanacaksanız yine yukarıdaki kodu herhangi bir modüle yazın.

4. Yeni bir UserForm üzerine bir adet TextBox ve bir adet Label nesnesi ekleyin.

5. TextBox'un Change olayına ya da belirlediğiniz başka bir olaya aşağıdaki gibi bir kodlama yazın.

Private Sub TextBox1_Change()
Label1 = YeniPara(TextBox1)
End Sub

İşlem bu kadar basit.

Deneme imkanım olmadığı için yorum yapamayacağım. Belki DLL dosyasının REGISTER (Regsvr32.exe) edilmesini gerektiriyor olabilir. Ben XP/2003 sürümlerinde yaşadığım otomasyon problemlerini bu şekilde aşmıştım.

M. Temel Korkmaz
15.01.2005, 13:25
Hayret!!!
Nasıl oluyor da Excel 97'de gerçekleşen bu işlem 2000'de olmuyor şaşıyorum doğrusu.

O halde şunu deneyelim. DLL'i tanıtmak için

Çalıştır Kutusuna


regsvr32.exe C&#58;\MTKveYTL\MTemelKorkmaz.dll

yazalım ve çalıştıralım. Bakalım durum ne olacak.

Bu arada şunu söylemeliyim. Ben XLA dosyasında, referanslarda DLL dosyasını tanıtöıştım. Bu hataları vermesinin nedenini anlamak güç.

Yukarıdaki işlemi yaptıktan sonra olayı aktarır mısınız?

Hamit Pala
15.01.2005, 13:30
Ben neden bir sorun yaşamıyorum arkadaşlar?
Acaba versiyon mu yükseltmeli? Acaba Windows update veya Office update sitesine gidip de bazı güncellemeleri yapmak mı gerekiyor?
Bildiğim kadarıyla sadece excel için bile bir sürü güncelleme yapılması gerekiyor ki 2003 sürümü de buna dahil...

Biolight
15.01.2005, 13:55
@M. Temel Korkmaz,
her hangi bir Araçlar Eklenti yapmadan direk
regsvr32.exe C:\MTKveYTL\MTemelKorkmaz.dll
işlemini yaptıktan sonra

Public Function YeniPara(hucre)
Set nesne = CreateObject("MTemelKorkmaz.ExcelTim")
YeniPara = nesne.YPF(hucre)
End Function

kodlar çalıştı teşekkürler.

yanlız bu yaptıgım işlem tam olarak ne yapıyor ( regsvr32.exe C:\MTKveYTL\MTemelKorkmaz.dll )
yani pc filan patlamaz dimi :)

Kolay gelsin.

haydarxxx
15.01.2005, 15:24
Temel Hocam sorunu 16.834 olarak girdiğimizde çözdüm.Sağolun.Arkadaşlar için virgül olarak 16,834 ü kabul etmiyor ilgililere sunulur.Ben ofis 2003 tr kullanıyorum hiç bir sorun yaşamadım.

yanlız Temel hocam Yada Arkadaşlar.Temel hocamın verdiği
Private Sub TextBox1_Change()
Label1 = YeniPara(TextBox1)
End Sub

para labelde yuvarlama yapmıyor.Yani 16.835 girdiğimizde 16 ytl 83 kuruş veriyor 84 kuruş olmalı.Onu nasıl yaparız.Texbox a nasıl bir format koymalıyızki textbox a 16835 rakamlarını peş peşe yazarken 16.(nokta)835 yazsın.

Temel Hocam Yeni MTK sözü için kusura bakmayın.Yeni ytl alışkanlığı.Nice 36 MTK lara diyorum.Saygılarımı sunuyorum.Sevgiler

M. Temel Korkmaz
15.01.2005, 15:26
@M. Temel Korkmaz,
her hangi bir Araçlar Eklenti yapmadan direk
regsvr32.exe C:\MTKveYTL\MTemelKorkmaz.dll
işlemini yaptıktan sonra

Public Function YeniPara(hucre)
Set nesne = CreateObject("MTemelKorkmaz.ExcelTim")
YeniPara = nesne.YPF(hucre)
End Function

kodlar çalıştı teşekkürler.

yanlız bu yaptıgım işlem tam olarak ne yapıyor ( regsvr32.exe C:\MTKveYTL\MTemelKorkmaz.dll )
yani pc filan patlamaz dimi :)

Kolay gelsin.

:D :D :D
Hayır patlamaz ve çatlamaz. Ama eğer yine olmasaydı ben sinirden patlayıp, çatlayacaktım. Yahu ne zor işmiş bu versiyon farklılıkları.

O halde şunu söyleyebiliriz ki, geriye dönük sürümlere elveda demek lazım ve böylece Teknolojinin adım adım nasıl değiştiğini görüyoruz.