Hi,
Saya punya lebih 6000 baris text file dengan header.
Rencananya saya buka dengan Excel lewat text to column & letakkan
semuanya di column A Lalu jalankan macro dibawah, tapi tidak berhasil.
Saya coba menghapus baris yang berisi text tertentu dalam baris
tersebut. Dimana masalahnya ya?
NB. Saya tidak pakai auto filter karena banyaknya criteria.
Sub RC_Report()
curwork = ActiveWorkbook.Name
Windows(curwork).Activate
With Range("A:A")
For x = 6000 To 2 Step -1
If .Cells(x, 1).Value Like "--- ----" Or .Cells(x, 1).Value Like
"TRANSACTION HISTORY" Or .Cells(x, 1).Value Like "CUSTOMER TOTAL" Then
.Cells(x, 1).EntireRow.Delete (xlUp)
End If
Next x
End With
End Sub
DOC CUST TRX WH ITEM NUMBER ITEM DESCRIPTION
REF NO. BATCH/LOT TRX DATE TRX QTY JUN COST TRX
AMT
--- ---- --- -- ----------- ----------------
------- --------- -------- ------- --------
-------
SB RC B1 SB=B70760112A04 ETIQ. TRACE BLANCHE 22X7
C 8/06/27 900 .029000 26.10
CUSTOMER TOTAL : 900
26.10
SD RC B1 SD=K6586843P001 PCBA TRACEABILITY LABEL(BLANK)
C 8/06/05 640 .021200 13.57
RC B1 SD=K6586843P001 PCBA TRACEABILITY LABEL(BLANK)
C 8/06/05 640- .021200 13.57-
RC B1 SD=0101-0019 RS2 DRIVE NEW BOX DRV-L
C 8/06/05 64 .935000 59.84
RC B1 SD=0101-0019 RS2 DRIVE NEW BOX DRV-L
C 8/06/05 64- .935000 59.84-
CUSTOMER TOTAL : 0
.00
DOCUMENT TOTAL : 900
26.10
DATE : 6/28/08 TIME :12:00:20 FLEXTRONICS MFG TRANSACTION HISTORY
ANALYSIS - DETAIL FOR MISC RECEIVED PROGRAM : IM6048A PAGE : 2
FOR PERIOD :
JUNE 2008
DOC CUST TRX WH ITEM NUMBER ITEM DESCRIPTION
REF NO. BATCH/LOT TRX DATE TRX QTY JUN COST TRX
AMT
--- ---- --- -- ----------- ----------------
------- --------- -------- ------- --------
-------
GRD AP RC B1 AP2003B-1-RP MPU 867 MHZ DUAL L3
28961464 GRD58913RJ 8/06/26 3 .000000
.00
RC B1 AP2188B-RP SVC MIDPLANE
INV NO 111 GRD58507RJ 8/06/17 1 .000000
.00
RC B1 AP2338B-RP SVC MLB 167 MHZ
28961363 GRD57848RJ 8/06/03 32 .000000
.00
RC B1 AP2338B-RP SVC MLB 167 MHZ
INV NO 113 GRD58506RJ 8/06/17 1 .000000
.00
RC B1 AP2338B-RP SVC MLB 167 MHZ
28961439 GRD58525RJ 8/06/18 1 .000000
.00
Thx & Rgds / Alex Susanto
Legal Disclaimer:
The information contained in this message may be privileged and confidential.
It is intended to be read only by the individual or entity to whom it is
addressed or by their designee. If the reader of this message is not the
intended recipient, you are on notice that any distribution of this message, in
any form, is strictly prohibited. If you have received this message in error,
please immediately notify the sender and delete or destroy any copy of this
message
