OK bu siti macronya Mantab'...
terimakasih
----- Original Message -----
From: siti Vi
To: belajar-excel@yahoogroups.com
Sent: Wednesday, February 24, 2010 10:06 AM
Subject: Re: [belajar-excel] compare txt ke excel stok loading
ooo begitu...
kalo 'gitu, pak PP-10 tinggal menyisipkan perintah spt ini :
posisinya di dalam Loop WbN, setelah parsing text to kolom & penyisipan kolom
1:
Set pGrup = Range("B1").CurrentRegion
For i = 1 To pGrup.Rows.Count
If Len(Trim(pGrup(i, 1))) < 13 Then
Plt = Trim(pGrup(i, 1))
pGrup(i, 1).EntireRow.Clear
Else
pGrup(i, 0) = Plt
pGrup(i, 3) = CLng(Replace(pGrup(i, 3), "Q", ""))
pGrup(i, 4) = Format(Filist(1)(WbN), "dd-mmm-yyyy h:mm AM/PM")
End If
Next i
atau agar mudahnya ini sudah dibuatkan workbook yg sudah dimodifikasi...
mohon dicoba-coba dengan data yg sebenarnya..
siti ingin mendengar berita hasil percobaannya
wassalam,
siti
----- Original Message -----
From: PP 03
To: belajar-excel@yahoogroups.com
Sent: Wednesday, February 24, 2010 7:52 AM
Subject: Re: [belajar-excel] compare txt ke excel stok loading
terimakasih bu siti
dalam 1 file .txt itu adalah 1 priode Scan.dan bila dalam 1 priode scan itu
melakukan proses scan lebih dari satu palet maka hasilnya tidak sesui
harapan
contoh file ((1002) ExportOut 0902 1345 33B+34B.txt) berisi sbb:
4SIS0002424
IIS06488001826,SIS0026764,Q18
IIS06488001827,SIS0026765,Q18
IIS06488001828,SIS0026766,Q18
4SIS0002441
IIS06488001866,SIS0026840,Q18
IIS06488001865,SIS0026839,Q18
IIS06488001864,SIS0026838,Q18
4SIS0002431
IIS06488001839,SIS0026777,Q18
IIS06488001838,SIS0026776,Q18
IIS06488001837,SIS0026775,Q18
mohon dicerahkan lagi.terimakasih
Sidol
----- Original Message -----
From: siti Vi
To: ppc...@sami.co.id
Sent: Tuesday, February 23, 2010 2:14 PM
Subject: Re: [belajar-excel] compare txt ke excel stok loading
lho kok terus ngilang ??
ck ck ck....
----- Original Message -----
From: siti Vi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, February 23, 2010 10:02 AM
Subject: Re: [belajar-excel] compare txt ke excel stok loading
oiya
ada salah tulis range
sehingga range yg sudah ditulis (kolom untuk data Q)
tertimpa data untuk tanggal & jam para file yg digabung
ini sudah dikoreksi
file (rar) terlampir
