オートフィルターで抽出データ(Worksheets("職員名簿").Range(A47:61)を別シートに下記のコードでコピー(Worksheets("住所録").Range(P6:W20)したのですが、これを編集し元データに反映サせたいのですが、上手くいきません。ご教授願えませんでしようか？ (尚、Worksheets("職員名簿")のデータは、A2:H285にまであります。) Windows7・SP1 Office2010 Sub 抽出データのコピー() Dim myFld As String, myCri As String Dim myRow As Long Dim Sh2 As Worksheet, Sh3 As Worksheet Set Sh2 = Worksheets("職員名簿") Set Sh3 = Worksheets("住所録") myFld = InputBox("検索は何列目ですか?") myCri = InputBox("検索する語句を入力しなさい") With Sh2 .Range("A1").AutoFilter Field:=myFld, Criteria1:=myCri myRow = .Range("G" & Rows.Count).End(xlUp).Row Sh3.Range("A:H").ClearContents .Range("A1:H" & myRow).Copy Sh3.Range("P5") .Range("A1").AutoFilter End With Worksheets("住所録").Activate Range("P５").Select End Sub Sub dataUpdate() '修正データを元データシートに反映させる(ここのコードが問題かと) If IsNumeric(Range("P5").Value) And Not IsEmpty(Range("P5").Value) Then Worksheets("職員名簿").Cells(Range("A２").Value, 1).Resize(1, 8).Value _ = Range("A2:H２８5").Value Else MsgBox "行番号が？？です" End If End Sub
↧