Veri Şablon Oluşturarak aktarma

[musaagac]

Arkadaşlar ekte göndermiş olduğum çalışmada adı ve soyadı vb aracalığı ile farklı sütunlara aktarıyorum. Parçala komutunuda aynı şekilde vb aracılığı ile yapmasını istiyorum. safya 1 aktarması lazım nasıl yapabilirim.

 

[asi_kral]

Merhaba
Biraz daha açıklama yapma imkanınız var mı acaba sayfa1'de hiç örnek yok anlamadım.

 

[musaagac]

Yeniden çalışma gönderdim ekte. ad soyad bölmedeki bilgileri sayfa1 olduğu gibi aktarmak istiyorum.

 

[asi_kral]

Yeniden çalışma gönderdim ekte. ad soyad bölmedeki bilgileri sayfa1 olduğu gibi aktarmak istiyorum.

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub verileri_ayır()
Dim S1 As Worksheet, S2 As Worksheet
Dim SAT As Long, SAY As Long
Set S1 = Sheets("Ad-Soyad Bölme"): Set S2 = Sheets("Sayfa1")
Application.ScreenUpdating = False
S2.Range("A:F").ClearContents: SAY = 1
With WorksheetFunction
For SAT = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row
S2.Cells(SAY, "A") = Mid(S1.Cells(SAT, "B"), 11, 4)
S2.Cells(SAY, "B") = Mid(S1.Cells(SAT, "B"), 15, 8)
S2.Cells(SAY, "C") = Mid(S1.Cells(SAT, "B"), 23, 4)
S2.Cells(SAY, "D") = S1.Cells(SAT, "C")
S2.Cells(SAY, "F") = Right(S1.Cells(SAT, "A"), Len(S1.Cells(SAT, "A")) - _
.Find("*", .Substitute(S1.Cells(SAT, "A"), " ", "*", Len(S1.Cells(SAT, "A")) _
- Len(.Substitute(S1.Cells(SAT, "A"), " ", "")))))
S2.Cells(SAY, "E") = Left(S1.Cells(SAT, "A"), Len(S1.Cells(SAT, "A")) - Len(S2.Cells(SAY, "F")) - 1)
SAY = SAY + 1
Next: End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

Not : Sayfa1 A B C sütunlarını Hücre Biçimlendir - Metin olarak ayarlayın.

 

[musaagac]

Teşekkür ederim. çalışmada ilgili vb silip yerine bunu yazdığımda sorun veriyor çalışmıyor. Mümkünmü çalışmanın içine atıp göndermeniz.

 

[asi_kral]

Teşekkür ederim. çalışmada ilgili vb silip yerine bunu yazdığımda sorun veriyor çalışmıyor. Mümkünmü çalışmanın içine atıp göndermeniz.

İnceleyin lütfen.

 

[musaagac]

Teşekkür Ederim Yardımlarınız için.

 

[asi_kral]

Teşekkür Ederim Yardımlarınız için.

Kolay Gelsin.

 

[musaagac]

Arkadaşlar ekte göndermiş olduğum çalışmada Sayfa1 deki bilgiler doğrultusunda bir tane text dosyası oluşturmak istiyorum. Format ekteki gibi olacak


H000 Hesap Numarası Odeme Nedeni Tarih kayıt No Tarih Tarih Odeme Şekli Açıkla (Bu bilgiler birleşik aralarında herhangibir işaret yok)
Bunun altına doğruda
DH A Sutunu B Sutunu C Sutunu D Sutunu E Sutunu F Sutunu ve Açıklama bilgileri gelecek yine bu sutunda herhangibir işaret yok.

Sadece D Sutunu 000000000000000,00 Formatında olacak.


bu hususta yardım istiyorum arkadaşlar.

Bunun altınada T Kişi Sayısı (0000000 Formatında olacak) Toplam Tutar (000000000000000,00 Formatnda olacak)

Bu hususta yardımcı olurmusunuz.