c_c_lai

¦^´_ 2# GBKEE
­è­è®³ÁA³o­Ó½d¨Ò°µ´ú¸Õ¡Aµo²{ Resize(, 11) À³¬° Resize(, 12)¡A¦p¦¹½d³ò¤~¯à¨ì¹F D19:O133

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range
   
3.     With ActiveSheet
   
4.         Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
   
5.         Set Rng(2) = .Range("D:D").Find("PACKING:")
   
6.         If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
   
7.             MsgBox "§ä¤£¨ì"
   
8.         Else
   
9.             .Range(Rng(1), Rng(2)).Resize(, 12).Copy Destination:=Sheets(2).Range("A1")
   
10.         End If
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 6# PJChen
¸Õ¸Õ³o­Ó¡G  ³Ì©³¤U¨º±i¹Ï¬O¤£¤p¤ßªþ¤Wªº¡A©p´N·í§@¨S¬Ý¨ì¡I

2012-4-28 19:26

2012-4-28 19:26

Shipping Doc.rar (55.72 KB)

¤U¸ü¦¸¼Æ: 3

2012-4-28 19:27

c_c_lai

¦^´_ 4# GBKEE
¦^´_ 8# PJChen
­ì¨Ó«üªº¬O³o­Ó¡AG¤j¤j³o¤è­±±z¤ñ¸û¦b¦æ¡A´«±z¤W³õ¤F¡I

2012-4-28 19:58

c_c_lai

¦^´_ 4# GBKEE
¦^´_ 8# PJChen
§Ú§ä¨ì­ì¦]¤F¡A¦p¹Ï¥Ü¡B¤Î¥N½X (¹Bºâ¤½¦¡)¡G

1.     ' Sheets("PKG").Select                           ' *****************
   
2.     ' Columns("R:AC").Select                      ' *****************
   
3.     ' Selection.Delete Shift:=xlToLeft       ' *****************
   
4.     Columns("A:C").Select
   
5.     Range("C11").Activate
   
6.     Selection.Delete Shift:=xlToLeft

½Æ»s¥N½X

2012-4-28 20:25

VBA TEST.rar (56.61 KB)

¤U¸ü¦¸¼Æ: 8

2012-4-28 20:25

c_c_lai

¦^´_ 19# PJChen
³o¬O¤£¬O©p­nªº¡H

2012-4-29 06:32

2012-4-29 06:33

1. Sub Try()
   
2.     Dim Rng(1 To 2) As Range
   
3.    
   
4.     Windows("PKG.xlsx").Activate
   
5. 
   
6.      '  ¥[¤J Hsieh ¥ý¶iªº¤Þ¥Î¤èªk
   
7.     With Workbooks("PKG.xlsx")
   
8.         With .Sheets("PKG")
   
9.             Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
   
10.             Set Rng(2) = .Range("D:D").Find("PACKING:")
    
11.             
    
12.             If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
    
13.                 MsgBox "§ä¤£¨ì"
    
14.             Else     '  ¨Ì·Ó Hsieh ¥ý¶iªº«ü¥Ü¡Aµy¥[­×¹¢
    
15.                .Range(Rng(1), Rng(2).Offset(, 11)) = .Range(Rng(1), Rng(2)).Resize(, 12).Value
    
16.             End If
    
17.         End With
    
18.     End With
    
19.    
    
20.    
    
21.     Selection.Copy
    
22.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
23.         :=False, Transpose:=False
    
24.     Range("Q122:Q122").Select
    
25.     Selection.Copy
    
26.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
27.         :=False, Transpose:=False
    
28.     ActiveSheet.Paste
    
29.     Rows("143:143").Select
    
30.     Selection.ClearContents
    
31.     Range("C1").Select
    
32.    
    
33.     ActiveWorkbook.SaveAs "D:\Shipping Doc\PJ\" & [Q5] & "_" & [C6] & " PO#" & [V7] & " by " & [C19] & " to " & [C22] & ".xlsx"
    
34.         
    
35.     Sheets("PKG").Select                         ' «ì´_­ìª¬
    
36.     Columns("R:AC").Select                    ' «ì´_­ìª¬
    
37.     Selection.Delete Shift:=xlToLeft     ' «ì´_­ìª¬
    
38.     Columns("A:C").Select
    
39.     Range("C11").Activate
    
40.     Selection.Delete Shift:=xlToLeft
    
41.    
    
42.     ActiveWorkbook.Save
    
43. End Sub

½Æ»s¥N½X

VBA TEST.rar (55.82 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-29 06:39

c_c_lai

¦^´_ 21# PJChen
Please check the CI12-460_ACE PO#120309 by FEDEX to .xlsx produced  this morning
in D:\Shipping Doc\PJ subdirectory.