|
下記のようなマクロを作りました。
しかしながら、応答なしになってしまいます。
以前はできたように思ったのですが
何が悪いのでしょうか?
よろしくお願い致します。
Private Sub CommandButton1_Click()
Dim bk As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim cnt1 As Long
Set bk = ThisWorkbook
Set sh1 = bk.Worksheets("現場登録検索")
Set sh2 = bk.Worksheets("一覧")
cnt1 = 6
Do While sh2.Cells(cnt1, 2).Value <> ""
cnt = cnt1 + 1
Loop
'得意先CD
sh2.Cells(cnt1, 2).Value = sh1.Cells(2, 3).Value
'現場CD
sh2.Cells(cnt1, 3).Value = sh1.Cells(3, 3).Value
'送り方
sh2.Cells(cnt1, 22).Value = sh1.Cells(4, 3).Value
'封筒
sh2.Cells(cnt1, 23).Value = sh1.Cells(5, 3).Value
MsgBox "登録できました。"
End Sub
|
|