Mutemet Arşivi ilave dereceden kaynaklı geriye dönük bodrdo

[bayram ali çelik]

herkese günaydın bende 5 den 4 e düşen bir personel var dereceleri şubatta verdiğimiz için 1 ay fark yapıcam ek gösterge aylığı,özel hizmet tazminatı, ek ödeme oranını etkiliyor elinde bordro olan...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[Ali Selvi]

katılıyorum herşeyi hazır yaparsak kimse birşey öğrenemez.

 

[Halil Tuğrul SÜMER]

Harun hocam o modifiyeye bakacağım. Kodlar üzerinde. text formatında txt aktarması için.

 

[5846]

yorma kendini bu kadar işin arasında harun hocam; htsumer üstad kısayolu gösterdi; bilmeyenler için program içine kısa bir not yazarsan kullanıcılar için ctrl+H yapmak sorun...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[5846]

Harun hocam o modifiyeye bakacağım. Kodlar üzerinde. text formatında txt aktarması için.

Hocam, txt formatında dosyayı aktarıyorum. Sadece aktarırken virgül olarak...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[Halil Tuğrul SÜMER]

kodları gördüm. Aktar olayaı makro kaydet ile yapılmış. Başka akatarma sistemi revize edilip .text olarak atama yapılması lazımdı.
Bende bunu çözmeden çatlarım

 

[5846]

Yok hocam, Makro Kaydet ile yapmadım hiçbirini...

Hemen hemen tüm kodları kendim yazdım. Bazılarını da netten bulduğum örneklerle revize ettim. Bahsi geçen program şu hocam...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[5846]

Text dosyası oluştururken Excel varsayılan ondalık ve binlik ayracı ne olursa olsun sistem ayarlarını kullanıyor hocam. Haliyle bu makronun içine işletim sistemi ondalık ve binlik ayracını...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[Halil Tuğrul SÜMER]

OncesiTextDosyasiOlustur
satırından önce ekleyin

Cells.NumberFormat = "@"    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _        SearchOrder:=xlByColumns, MatchCase:=False...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[5846]

OncesiTextDosyasiOlustur
satırından önce ekleyin

Cells.NumberFormat = "@"    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _        SearchOrder:=xlByColumns...

İçeriğin tamamını görüntülemek için Özel Üye olmanız gerekmektedir.

 

[Halil Tuğrul SÜMER]

Tamam txt dönüştürücüden başlamalı. . Bir zamanlar key ödemeleri için yazmıştım txt oluştururken. Bakarız hafta içi