Maaş Listesi Aktarım

[htsumer]

Maaş programının verdiği Ekli dosyada bir çok hücre birleştirilmiş ve sayılar metin formatında. Ben bunu Sayfa 2'deki formata aktarmak istiyorum ama bu çok uzun sürüyor. Sayıları metinden sayı formatına dönüştürmek birleştirilmiş hücreleri çözüp, çok uzuyor..
Tek derdim sayfa2'deki formata Sayfa1'dekileri aktarmak. Sayılar, sayısal formatta olmalı. Teşekkürler

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub banka()
Set s1 = Sheets("7_Kurum_BankaListesi")
Set s2 = Sheets("Sayfa2")

son = s1.Cells(Rows.Count, "B").End(3).Row
yeni = 5
For i = 17 To son
    If Left(s1.Cells(i, "AL"), 2) = "TR" Then
        s2.Cells(yeni, "C") = s1.Cells(i, "AL")
        s2.Cells(yeni, "D") = s1.Cells(i, "AW") * 1
        s2.Cells(yeni, "E") = s1.Cells(i, "I")
        yeni = yeni + 1
    End If
Next
End Sub

 

[htsumer]

Allah ne muradın varsa versin Eline sağlık tam istediğim gibi olmuş.. Çok Teşekkürler

 

[htsumer]

Kodlarda sorun yok herşey güzel.
Personel kodları yapıştırıp aktarma yapma konusunda sıkıntı çekiyor.Şöyle bir şey yapmak mümkünmü

Bir şablon dosya olsun, Gözat butonu ile programa ait excel dosyasını seçsin ve aktar dediğimizde aktarmayı şablon dosyasının sayfasına aktarsın. Çok zor ise önemli dğil. Kullanmasını bilmeyenler için hazırlamak istedim.

 

[YUSUF44]

Yapılabilir elbette, ancak beni aşıyor maalesef.

 

[htsumer]

Tamam. Teşekkü rederim. Kendi çabamla yapmaya çalışayım..

 

[yuzun23]

Aktarılmayı beceremedim. Sağ tuşa basıp kod görüntüle tıkladıktan sonra çıkan sayfaya kodladıp ama olmadı ne yapmam lazım yardımcı olurmusunuz . kısacası beceremedim

 

[vardar07]

Aktarılmayı beceremedim. Sağ tuşa basıp kod görüntüle tıkladıktan sonra çıkan sayfaya kodladıp ama olmadı ne yapmam lazım yardımcı olurmusunuz . kısacası beceremedim

Excell açıkken Alt+F11 tuşlarına basın Resimdeki sırayı takip edin.
Sonrada sayfaya düğme ekleyerek bağlayın.

 

[YUSUF44]

Sağ tuşa tıklayıp çıkan sayfada Insert menüsünden Module'yi seçin ve bu kodları oraya yapıştırın. Daha sonra excel sayfasına bir düğme ekleyin ve o düğmeye bu makroyu atayın.

 

[yuzun23]

Allah razı olsun ellerinize sağlık