2022 sayılı yasa kayıt formu

[halit3]

Sayın halit3

Elinize sağlık, emin değilim , Sayın mhaluksen dosyayı user üstüne almak istedi, elimden bu geldi ancak

Kodlara baktım harika olmuş.
Kaydet tuşunda: bir End if kalmış sorun yarattı sildim onu çalıştı. Bir de A sütununda otomatik satır sayısı yazdırmak gerek. Siz yapabilir misiniz bunu?
Bir de sil tuşunda : Sheets("Sayfa1").Rows(TextBox1.Text + 2).Delete Shift:=xlUp
çalışmadı

19 nolu dosyayı güncelledim.

 

[cems]

19 nolu dosyayı güncelledim.

Sayın mhaluksen ,

Dosyada Sayın Halit3'ün kısalttığı kodlara baktım ve ;

kodlarla şiir yazılabildiğini gördüm, siz dosyanın işlevine baksanız da ben kod sayfasını hiç anlam kaçırmadan sonuna kadar anlayarak okuyabildim . Anlıyorum ki benim bu şiir seviyesine ulaşmam için daha çooook çalışmam lazım ; çoook

Elinize sağlık Sayın Halit3, dosya harika çalışıyor.

 

[halit3]

Sayın mhaluksen ,

Dosyada Sayın Halit3'ün kısalttığı kodlara baktım ve ;

kodlarla şiir yazılabildiğini gördüm, siz dosyanın işlevine baksanız da ben kod sayfasını hiç anlam kaçırmadan sonuna kadar anlayarak okuyabildim . Anlıyorum ki benim bu şiir seviyesine ulaşmam için daha çooook çalışmam lazım ; çoook

Elinize sağlık Sayın Halit3, dosya harika çalışıyor.

Teşekkürler iyi çalışmalr

 

[halit3]

13nolu mesajdaki dosyada bul komutu combobox1.RowSource olayı ve tam ekran kodlarında düzenleme yaptım.

 

[cems]

13nolu mesajdaki dosyada bul komutu combobox1.RowSource olayı ve tam ekran kodlarında düzenleme yaptım.

Eğer doğru gözlemledimse ;
Bul fonksiyonu çok daha hızlanmış gibi ,ayrıca userformun başlık çubuğuna çift tıklayınca tam ekranlaşıyor yine çift tıklayınca ekran merkezine küçülerek excel'i görmeyi sağlıyor. Daha pratik olmuş, nesneler rahat görülmezse tam ekran tercihi de olanak olarak verilmiş.

Sayın mhaluksen,
Halit3 üstadımız baya önemli şeyler kattı dosyanıza.

 

[mhaluksen]

arkadaşlar ellerinize sağlık çoook teşekkür ederim.Bunu aslında diğer yerlerde kaymakamlık yapıyor ama bizim burada Malmüdürlüğü yapıyor.Tatil olduğu için çalışmalarınıza bakamadım.bu sabah iş yerinde baktım.Harika olmuş.Ama Halit3 üstadın yaptığı dosya;
Private Sub UserForm_Initialize() burası sarı renkte
FindWindowA burası da üstü seçili şekilde hata verdi neden acaba excel 2010 kullanıyorum.

 

[halit3]

arkadaşlar ellerinize sağlık çoook teşekkür ederim.Bunu aslında diğer yerlerde kaymakamlık yapıyor ama bizim burada Malmüdürlüğü yapıyor.Tatil olduğu için çalışmalarınıza bakamadım.bu sabah iş yerinde baktım.Harika olmuş.Ama Halit3 üstadın yaptığı dosya;
Private Sub UserForm_Initialize() burası sarı renkte
FindWindowA burası da üstü seçili şekilde hata verdi neden acaba excel 2010 kullanıyorum.

Referanslar bölümünde missing ile başlayan uygulamalara ait tikleri kaldırın.

 

[mhaluksen]

üstad çok çok özür dilerim ama bu referanslar nerede oluyor.

 

[halit3]

üstad çok çok özür dilerim ama bu referanslar nerede oluyor.

Kod sayfasına gidin.

Tools / References bölümünde, Missing ile başlayanların kutusunu boşaltın

 

[mhaluksen]

üstadım dediğiniz yerde referansın içinde Missing ile başlayan yok.Hata aynı devam ediyor.

 

[halit3]

üstadım dediğiniz yerde referansın içinde Missing ile başlayan yok.Hata aynı devam ediyor.

Ofisin hangi sürümünü kullandığınız kullanıcı adınızın altında yazmıyor.

aşağıdaki linke bir bakın

http://www.excel.web.tr/f48/excel-2007-de-hazyrlanan-makro-2010-da-aly-t113702.html

 

[mhaluksen]

üstadım 26 nolu mesajda belirtmiştim ama ofis 2010 kullanıyorum ve sadece kullanıcıyım, işyeri olduğu için sadece kullanıcıyım yetkili değilim.

 

[mhaluksen]

üstad özel mesaj göndermişsiniz ama ben size gönderemedim buradan yazıyorum.evet var aksaraylı nereden tanıyorsunuz?

 

[mhaluksen]

ben sizin maaş bordrosu programı var diğer dairelerdeki arkadaşlara yardımcı olmak amacıyla yolluklarda onu kullanıyorum.zaten bu programı da o bahsettiğiniz arkadaştan almıştım.

 

[halit3]

ben sizin maaş bordrosu programı var diğer dairelerdeki arkadaşlara yardımcı olmak amacıyla yolluklarda onu kullanıyorum.zaten bu programı da o bahsettiğiniz arkadaştan almıştım.

O kişiye selam söyle beni iyi tanır

 

[mhaluksen]

üstad bu dosyayı nasıl açacağım, form açmıyor hata veriyor.

 

[halit3]

üstad bu dosyayı nasıl açacağım, form açmıyor hata veriyor.

Aldığın hataya dair ekran görüntüsünü ekle bakalım.

 

[mhaluksen]

önce kırmızı olan yer hata veriyor sonra orayı sildiğim de diğer hatayı veriyor

 

[halit3]

önce kırmızı olan yer hata veriyor sonra orayı sildiğim de diğer hatayı veriyor

Kırmızı olan bölümlere PtrSafe bunu eklemelisiniz.

Private Declare Function

yukarıdaki bölüme aşağıdaki kırmızı yazılı yeri ekleyip deneyin

Private Declare [COLOR=red]PtrSafe[/COLOR] Function

 

[mhaluksen]

Üstad kırmızı yeri sildiğim de 2.ci sayfadaki hatayı veriyor