[發問] VBA 移動儲存格位置，另存新檔及刪除

lovenice831

大家好，我第一次發帖，如果有什麼不對的請見諒
因為每月都要上交月結報表，不想再剪剪貼貼，所以在嘗試用兩個按鈕解決它們 ^^"
問題
1) 我只能做到剪貼第一個工作頁，貼上後怎樣試都不能令儲存格自動跳到下一列的空格上，令到貼上第二個工作表的資料時都把第一個工作頁貼上的都覆蓋了 /.\
2) 我試著把貼好的"月結'的分頁另存作一個新的工作表，並且把一併存檔的巨集指令及圖案按鈕刪除，但我只能做到開了一個新檔案，不會自動存檔及刪除巨集指令及圖案按鈕

十分感謝幫忙

lovenice831

回復 16# luhpro


    謝謝你的解答，整體來說我之所以要三個迴圈是因為一個分頁等於一條生產線，每月尾都需要把各牌子的貨物分別做成月結表，所以需要這樣迴圈，謝謝幫忙

luhpro

回復  准提部林

不好意思，我轉擋了並再上傳，麻煩了
lovenice831 發表於 2020-12-28 10:49

我覺得你的程式問題應該不在那裡喔.

以下是程式內容:

1. Sub Monthly()
   
2. Dim xS As Worksheet, T$, i&, xE As Range
   
3. Call clean
   
4. Set xS = Sheets("Monthly")
   
5. If xS.[j2] = "" Then MsgBox "please choose!  ": Exit Sub
   
6. For i = 1 To 3
   
7.     With Sheets(1)
   
8.          If .FilterMode Then .ShowAllData
   
9.          .[c8].AutoFilter Field:=1, Criteria1:=xS.[j2]
   
10.           Set xE = xS.Cells(Rows.Count, 1).End(xlUp)(5)
    
11.          .AutoFilter.Range.Offset(1, 2).Resize(, 30).Copy xE
    
12.          .ShowAllData
    
13.          End With
    
14. Next i
    
15. End Sub

複製代碼

我想問題應該在於 :
.[c8].AutoFilter Field:=1, Criteria1:=xS.[j2] 後面的 Criteria1:=xS.[j2],
你的篩選鍵值都是相同的(因為xS的[j2]的值不會變,在程式中這格子內的值必須由User手動做變更)
當初就不太了解你3個迴圈怎麼都是抓相同的資料?

現在依你的敘述,
我想你改成這樣試試:
Dim xS As Worksheet, T$, i&, xE As Range, vPro()
vPro = Array("A", "B", "C")
......
For i =  0 To 2
......
.[c8].AutoFilter Field:=1, Criteria1:=vPro(i)

lovenice831

回復 14# 准提部林
好的，我再試一下，不好意思，麻煩你了

准提部林

回復 13# lovenice831


一樣打不開,
WITH SHEETS(1)
應該是
WITH SHEETS(i)

lovenice831

回復 10# 准提部林

不好意思，我轉擋了並再上傳，麻煩了  
test Inventory.rar (237 KB)

下載次數: 5

2020-12-28 10:45

lovenice831

回復 11# luhpro


    先謝過，我試轉1 ，但轉一後只能顯示A 的結果，B 和C 的都依然是空白

luhpro

回復  准提部林
謝謝幫忙，但我不知出現什麼問題，試著試著，現在全都用不到，麻煩幫忙查看一下，謝謝
...
lovenice831 發表於 2020-12-26 20:13

下載 (20.44 KB)

2020-12-27 16:45

.[c8].AutoFilter Field:=1, Criteria1:=xS.[j2]

試試看...

准提部林

回復 9# lovenice831


我的舊版excel打不開附件,
看別人能否幫忙~~

lovenice831

回復 8# 准提部林
謝謝幫忙，但我不知出現什麼問題，試著試著，現在全都用不到，麻煩幫忙查看一下，謝謝


    test Inventory.rar (486.34 KB)

下載次數: 9

2020-12-26 20:13