シートの内容コピーマクロについて
エクセルシートに作成したシートのデーターを、別シートに自動で反映させてたいと思っております。
該当する文字を入力するだけでマクロを使用してその下にある数字を全てコピーできるようしたいと思っております。
添付シートを参照して頂ければと思いますが、シート1の元データーから、別シート2に文字を返して、その下にある文字が自動で反映できるような仕組みを構築したいと考えております。
添付は抜粋で元データーは400件以上あり、シート1の基本となる大元は、縦軸が800セル
横軸（時間軸）で、305セルまで使用しており、そこに順不同で品目と、下の数値が違うデータが入力させれております。
そこで、品目だけ入力すればその下の数字が自動で反映出来ればと思っております。
下記マクロですと、シート1の元データーがシート2へ全てが反映させれません。
何処を変更すればよろしいのでしょうか？
-----------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim cnt As Long, c As Range, r As Range, myRng As Range, wS As Worksheet
Set wS = Worksheets("Sheet1")
If Target.Count = 1 Then
If Target <> "" Then
Set c = wS.Cells.Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Set myRng = c.CurrentRegion
For Each r In myRng
cnt = cnt + 1
If r = c Then Exit For
Next r
If Target.Column - cnt + 1 > 0 Then
myRng.Copy Target.Offset(, -cnt + 1)
Else
MsgBox "左側列数が不足です。"
Exit Sub
End If
Else
MsgBox "該当データなし"
With Target
.Select
.Value = ""
End With
Exit Sub
End If
End If
End If
End Sub 'この行まで
----------------------------------------------------------------------------------------------------
トラックの搬入時間管理の為、タイムリーな処理が必要な為、お詳しい方のお知恵をお借りできればと思いいます。 お忙しい所申し訳ありませんが、どなたかお力添えをよろしくお願いいたします。
