目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
7 / 270 ←次へ | 前へ→

【285】抽出先でデータ編集をして抽出元に反映させたい
Excel  ぴぐもん  - 17/8/12(土) 19:07 -

引用なし
パスワード
   ”リスト”シートにはA1〜G1が項目、A2〜G2からデータがあります。
”検索”シートに条件を入力し検索ボタンを入力すれば一致するデータが表示されます。A1〜G1項目、A2〜G2が検索条件、A4〜G4が結果表示用項目
A5〜G5が抽出結果表示欄(複数あれば続けてA6〜〇5で表示)
抽出結果を修正し、反映ボタンを押せば”リスト”シートが更新される。

このようなマクロボタンを作りたいと考えています。

Sub 正方形長方形2_Click()
Sheets("検索").Rows("4:65536").ClearContents
  Sheets("リスト").Select
  Range("A2").Select
  ActiveCell.CurrentRegion.AdvancedFilter _
   Action:=xlFilterCopy, _
   CriteriaRange:=Sheets("検索").Range("A1:E2"), _
   CopyToRange:=Sheets("検索").Range("A5:E65536"), _
   Unique:=False
  Sheets("検索").Select
End Sub
これで抽出はうまくいくのですが、反映する際、
Dim cel As Range
If IsNumeric(Range("A5").Value) And Not IsEmpty(Range("A5").Value) Then
     Worksheets("リスト").Cells(Range("A5").Value, 1).Resize(1, 26).Value _
       = Range("A5:Z5").Value
   Else
     MsgBox "行番号が??です"
   End If

これですると”リスト”シートが乱れてしまいます。
ご教授願います。

98 hits

【285】抽出先でデータ編集をして抽出元に反映させたい ぴぐもん 17/8/12(土) 19:07 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
7 / 270 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free