VBAで値をコピーして別のワークシートに貼り付けます

Question

VBAを使用して、一部のセルの値をコピーして同じワークブックの他のワークシートに貼り付けることを試みています。

次のようにオーダーリストワークシートのフォーマットがあるで：私は数量でオーダーリストにシートをコピーして、列に示すように、関連するシートに貼り付ける必要があり

(Column A) | (Column B)   | (Column C) | (Column D) | (Column E) | (Column F) 
Product Code | Product Description | Price  | Quantity | Net Amount | Sheet Name 

F.

たとえば、製品コード AAAはです。 10とシート名 Art in オーダーリスト

Product Code | Product Description | Price | Quantity | Net Amount | Sheet Name 
AAA   ...     ...  5   ...   Art 

Iは、製品コード 10の代わりに5へアートシートにAAAの数量（列G）を交換するためのコードは、アートシートの列B内にある必要があります。

(Column B) | ...   | (Column G) 
Product Code | Other headers | Quantity 
AAA   ...    10   ' <---- REPLACE WITH 5 

私は次のように更新している：

Dim j As Long, i As Long 

j = 18 

With Worksheets("Order List") 

If Sheets("Order List").Range("F" & j) <> "" And Sheets("Order List").Range("A" & j) <> "" Then 

i = Worksheets(.Range("F" & j)).Columns("B").Find(What:=.Range("A" & j).Value, LookIn:=xlValues, LookAt:=xlWhole).Row 

Sheets("Order List").Range("D" & j).Copy Destination:=Worksheets(Worksheets("Order List").Range("F" & j)).Range("G" & i) 

j = j + 1 

End If 

をそこには、エラーメッセージが今ありませんが、どちらかのアートシートに数量を交換しません。 宛先が間違っていますか？私はそれをもう一度確認してください。多くのおかげで

Answer 1

はすなわち、Findコマンドを使用してみてくださいのようなもの：

Dim j As Long, i As Long 

j = 18 

With Worksheets("Order List") 
    If .Range("F" & j).Value <> "" And .Range("A" & j).Value <> "" Then 
     i = Worksheets(.Range("F" & j).Value).Columns("B").Find(What:=.Range("A" & j).Value, LookIn:=xlValues, LookAt:=xlWhole).Row 
     .Range("D" & j).Copy Destination:=Worksheets(.Range("F" & j).Value).Range("G" & i) 
     'or, if you just want to copy the value, use 
     'Worksheets(.Range("F" & j).Value).Range("G" & i).Value = .Range("D" & j).Value 
     j = j + 1 
    End If 
End With 

注：

1. は、製品コードを使用すると、更新しようとしているシートの列Aであると仮定します。
2. 関連するシートの列Aに製品コードが存在しない場合、これはクラッシュします。可能性がある場合は、プロパティを取得する前に、Findが成功したかどうか（すなわち、Nothingを返していないかどうか）を確認する適切なエラーチェックを含める必要があります。

Answer 2

おそらく、より簡単な代替ソリューションがあります。 VBAによる面倒なマルチシート注文数量検索（および "オーダーシートの新しいデータの入力"）を処理する代わりに、注文リストワークシートのより使いやすいワークシート検索機能を使用して、 "get"データは他のすべてのシートから1か所に集約され、その後、単純な単一列のコピー&が貼り付けられます。

と

[

あなたは、私が "置く代わりの取得" で何を意味するかを証明するために私の[シンプル]デモXLSM from JumpShare hereをダウンロードすることができます。基本的に1つのルックアップ式がすべての検索を行います。必要なときに新しいデータをコピーするコードは2行のみです。 {マクロがオンラインビューアで動作しないことに注意してください。）

Answer 3

VBAは私の専門ではないので、私はあなたのコードを次のように分解しました。

Dim j As Long, i As Long 
Dim s As String 
Dim ws As Worksheet 

j = 18 
Set ws = Worksheets("Order List") 

s = ws.Range("A" & j).Value 
i = Worksheets(ws.Range("F" & j)).Columns("B").Find(What:=s, LookIn:=xlValues, _ 
    LookAt:=xlWhole).Row 

If ws.Range("F" & j) <> "" And ws.Range("A" & j) <> "" Then 
    ws.Range("D" & j).Copy Destination:=Worksheets("F" & j).Range("G" & i) 
    j = j + 1 
End If 

私に飛び出した一つのことは、コードの最後の本当のラインだった：

Destination:=Worksheets("F" & j).Range("G" & i) 

これは私に語っワークシートは「FX」という名前のワークブックにあります（xはここで数）。あなたがこれを意味する可能性はありますか？

Destination:=Worksheets(ws.Range("F" & j))