重複転送を防止したいのですが
いつもお世話になっています。excelマクロについて質問させて下さい。
bookに入力用シートと集計シートがあります。一日のデーターを入力用シートに
入力し同シートにある”集計シートに転送ボタン”をクリックすると集計シートの
最終行の下に転送するようになっています。この転送ボタンをクリックすると
クリックした分だけ転送してしまい正常なデーターではなくなってしまいます。
転送ボタンを一日に一回しかクリック出来ないようにするか転送データーに
同じ日付があった場合は転送しないようにするにはどうすれば良いのでしょうか?
また、転送した後に間違いに気づいた場合手入力で集計データーを修正する
ようにメッセージを出す方法も教えて下さい。
よろしくお願いします。転送ボタンのマクロは以下の通りです。
Sub 転送()
Dim i As Long, R As Range
Set R = Sheets("入力用シート").Range("C5:C42")
With Sheets("集計シート")
i = .Range("b65536").End(xlUp).Row
.Cells(i + 1, 2).Resize(, 38).Value = Application.WorksheetFunction.Transpose(R.Value)
End With
End Sub
お礼
ご回答を賜りましてありがとうございます。 >仕事でもそうなんですが、メモ帳に質問文や回答を書いてパソコンに保存しておきます。 基本ですね、心掛けたいと思います。