Excel VBA質問箱 IV

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

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


1079 / 76732 ←次へ | 前へ→

【81311】Re:別シートへ転記したい場合
お礼  [名前なし]  - 20/5/29(金) 13:20 -

引用なし
パスワード
   マナさん
ご教授ありがとうございます。

何分VBAを始めたばかりでマクロを記録して色々やっている状態なので
とてもありがたいです。

End(Xlup)を with Sh1として下記としてみたのですが【型が一致しません】と
なってしまいます。この場合は各シートの何かが違うという事なのでしょうか。
質問ばかりで申し訳ございませんが、またご教授いただけたらと思います。

  Dim Sh1 As Worksheet
  Dim Sh2 As Worksheet
  Dim myRow As Long
   Set Sh1 = Worksheets("入力")
   Set Sh2 = Worksheets("データ")
 
   'データ転記
   With Sh1
        myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
      End With
     With Sh2
        myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range(.Range("A" & myRow), .Range("AN" & myRow)).Value = Sh1.Range("A2:AN2").Value
        .Range("AN" & myRow).Value = Sh1.Range("C2").Value * Sh1.Range("AN2").Value
      End With
      With Sh1
        .Range("A2:AN2").ClearContents
      End With

End Sub
 
59 hits

【81303】別シートへ転記したい場合 [名前なし] 20/5/27(水) 19:43 質問[未読]
【81307】Re:別シートへ転記したい場合 マナ 20/5/28(木) 19:41 発言[未読]
【81311】Re:別シートへ転記したい場合 [名前なし] 20/5/29(金) 13:20 お礼[未読]
【81312】Re:別シートへ転記したい場合 マナ 20/5/29(金) 18:55 発言[未読]
【81314】Re:別シートへ転記したい場合 [名前なし] 20/6/1(月) 16:11 お礼[未読]
【81318】Re:別シートへ転記したい場合 マナ 20/6/2(火) 20:52 発言[未読]
【81323】Re:別シートへ転記したい場合 [名前なし] 20/6/3(水) 16:23 お礼[未読]

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