Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46498 / 76732 ←次へ | 前へ→

【35204】Re:値を検索で行ごとコピー
回答  Kein  - 06/2/23(木) 17:54 -

引用なし
パスワード
   んー・・そうするとコピー元シートを特定してしまうようなコードも、マズイという
ことでしょーか ? ならば「アクティブシートの名前の文字、左3文字が 200 である
ことを確認し」立替金シートのB2以下、B列の最終入力行 + 1 へ追加貼り付けする。
というコードに改造するとして・・

Sub Test_Data_Copy()
  Dim TgR As Range

  If Left$(ActiveSheet.Name, 3) <> "200" Then
   MsgBox "シート名が年月になっているシートを開いて下さい", 48
   Exit Sub
  End If
  With Worksheets("立替金")
   If IsEmpty(.Range("B2").Value) Then
     Set TgR = .Range("B2")
   Else
     Set TgR = .Range("B65536").End(xlUp).Offset(1)
   End If
  End With
  On Error GoTo ELine
  With Range("AC3:AC140")
   .Formula = "=IF(ISERR(SEARCH(1162,$C3)),"""",1)"
   Intersect(.SpecialCells(3, 1).EntireRow, Range("B:D")) _
   .Copy TgR
   .ClearContents
  End With
ELine:
  If Err.Number <> 0 Then
   MsgBox "C列に 1162 が入力されたセルはありません", 48
  End If
  Set TgR = Nothing
End Sub
10 hits

【35195】値を検索で行ごとコピー Help me!! 06/2/23(木) 16:05 質問
【35199】Re:値を検索で行ごとコピー Kein 06/2/23(木) 17:02 回答
【35203】Re:値を検索で行ごとコピー Help me!! 06/2/23(木) 17:37 質問
【35204】Re:値を検索で行ごとコピー Kein 06/2/23(木) 17:54 回答

46498 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free