Banka Hesap Çizelgesi (ÇOK ACİL YARDIM)

[CrAzY_4343]

Merhabalar...
Acilen bir proje hakkında yardıma ihtiyacım var.
Ekte eklemiş olduğum dosyadaki sekmelerden "Kopyala" kısmına veri girişi yapıcaz.Sadece kopyalayarak yapıcaz bunu.Sonra bir Buton aracılığı ile bunu data kısmına ilgili hücreleri bozmadan,hücre biçimlendirilmeleri değişmeden ve düzgün şekilde çekmemiz gerekiyor.Çok acil yardımınıza ihtiyacım var.

http://www.dosya.tc/server6/wa04ay/Aralik_2015_Harclik_-_Kopya.zip.html

 

[htsumer]

Benim konyla aynı gibi kodlarda değişiklik yaparak olabilir.
http://www.excel.web.tr/showthread.php?goto=newpost&t=153914

 

[CrAzY_4343]

sorun şu ki eki indiremiyorum.Çünkü altın üyelik istiyor. birde benim projeme bakıp yardımcı olursanız çok sevinicem.Bugün içinde halletmem gereken bir durum bu çünkü..

 

[htsumer]

Vbasic kısmını şifrelemişsin. Onu kaldırırsan yardımcı olacak çıkabilir..

 

[CrAzY_4343]

ŞİFRE BOŞ arkadaşlar söylemeyi unuttum özür diliyorum direkt enter'layın.

 

[ÖmerBey]

Şu kodu bir deneyin, umarım iban numarasını doğru parçalamışımdır.

Sub kod()
Set K = Sheets("Kopyala")
Set D = Sheets("DATA")
sat = 14
For a = 2 To K.Range("A65500").End(3).Row
    iban = K.Cells(a, "A")
    D.Cells(sat, "B") = Mid(iban, 11, 4)
    D.Cells(sat, "C") = Mid(iban, 15, 8)
    D.Cells(sat, "D") = Right(iban, 4)
    D.Cells(sat, "E") = K.Cells(a, "C")
    ad = Split(K.Cells(a, "D"), " ")
    
    ReDim ad1(UBound(ad) - 1)
    For b = LBound(ad) To UBound(ad) - 1
        ad1(b) = ad(b)
    Next
    
    D.Cells(sat, "F") = Join(ad1, " ")
    D.Cells(sat, "G") = ad(UBound(ad))
    D.Cells(sat, "H") = K.Cells(a, "E")
    sat = sat + 1
Next
End Sub

 

[CrAzY_4343]

Nereye kopyalayacağım bunu...Makro oluşturup butona mı atayayım.

 

[CrAzY_4343]

Çok teşekkür ederim ilginize...Bu arada isim soy isim kopyala kısmında iki ayrı sütunda olması gerekiyordu.tek sütunda birleşik yapmışım.Kodu güncellermisiniz rica etsem..

 

[CrAzY_4343]

Tekrar merhabalar yazdığınız kodlar çok güzel çalışıyor teşekkür ediyorum.Ancak bir hata yapmışım.Kopyala sekmesinde ad ve soyad kısmı iki farklı hücre olacaktı.Buna göre çektirmek istesek kodu nasıl güncellemek gerekir yardımlarınızı bekliyorum.

 

[vardar07]

Buyurun. Eskisi ile karşılaştırıp mantığı karşılaştırınız.

Sub kod()
Set k = Sheets("Kopyala")
Set D = Sheets("DATA")
sat = 14

For a = 2 To k.Range("A65500").End(3).Row
    iban = k.Cells(a, "A")
    D.Cells(sat, "B") = Mid(iban, 11, 4)
    D.Cells(sat, "C") = Mid(iban, 15, 8)
    D.Cells(sat, "D") = Right(iban, 4)
    D.Cells(sat, "E") = k.Cells(a, "C")
    D.Cells(sat, "F") = k.Cells(a, "D")
    D.Cells(sat, "G") = k.Cells(a, "E")
    D.Cells(sat, "H") = k.Cells(a, "F")
sat = sat + 1
Next
End Sub

 

[CrAzY_4343]

ilginize minnettarım çok teşekkür ederim.Sayenizde bir sorunu daha çözmüş oldum.Bu siteyi ve sizleri seviyorum.

 

[vardar07]

Rica ederim. Sizden ricamız konu başlıklarında acil, lütfen gibi takılar kullanmamanız. Kolay gelsin.