VBA 初心者 マクロ 教えてください。

Question

VBAを用いて別のブックから値を取り出して貼り付けたい。
1，BOOK1のセルB1〜L75までの範囲で値（文字と数字）が入力されていたらコピーをする。
2，BOOK2のセルB列の値が入力されている最後のセルの一つ下にコピーした値を貼り付ける。
3，BOOK2の入力が最初にされたセルの一つ左側に日付を入力。

上記のことを行いたいのですがうまくできません。
教えてください。
よろしくお願いします。

Comments

[meg_]

> 上記のことを行いたいのですがうまくできません。
具体的に何がどううまく行かないのかを説明してください。

[kikukiku]

下記のサイトは最初から学ぶには良いサイトなので紹介しておきます。
https://excel-ubara.com/excelvba1/

[syousuke.33]

マクロの記録を使って覚えよう！
サイトはこちら　http://www.start-macro.com/55/
あなたの理解しやすいサイトを見つけて勉強してください。
最初から難しいサイトに入ってしまうと挫折してしまいます
YouTubeを見る事も良し、頑張ってください。

Answer 1

動作確認してませんが、おそらくこんな感じ。

Option Explicit

Sub sample()
    On Error GoTo ER
    
    Dim b1 As Workbook, b2 As Workbook
    Set b1 = Workbooks.Open("book1.xlsx")
    Set b2 = Workbooks.Open("book2.xlsx")
    
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = b1.Worksheets(1)
    Set ws2 = b2.Worksheets(1)

    Dim target As Range
    Set target = ws1.Range("B1:L75").SpecialCells(xlCellTypeConstants)
    
    Dim op As Range, dt As Range
    Set op = ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Offset(1)
    Set dt = op.Offset(, -1)
    dt.Value = Int(Now)
    
    Dim c As Range
    For Each c In target
        op.Value = c.Value
        Set op = op.Offset(1)
    Next
    
    Exit Sub
ER:
    MsgBox Err.Description
End Sub

Comments

[kuriyamasaikou]

ご教授ありがとうございます。実行してみましたがエラーが出てしまい出来ませんでした。set b1のところでコンパイルエラーがでてしまいます。解決方法教えてください。

[jinoji]

コンパイルエラー の下に どんなエラーか説明が出ているはずです。
それが解決の手掛かりとなります。