入力する場所を決めて、その入力した内容を違う場所にコピーしたいのです
このコピーの仕方として、セルC2:M2に入力し 実行ボタン1を選択したら1回目の コピーはC5:M5 2回目はC6:M6 3回目はC7:M7...と順にコピーし
実行ボタン2を選択したら1回目のコピーはC30:M530 2回目はC31:M31 3回目は...と実行1と同じように順にコピーしていきたいのです。
色々本を見たのですが、なかなか理解できず 頭打ちです...
あと似たようなコピーで右移動コピーもしたいのです
回答まってます ヨロシクお願いいたします
No.2ベストアンサー
- 回答日時:
条件が曖昧すぎます
実行ボタン1を26回選択した場合はC30:M30に上書きするのですか?
実行ボタン1を3回選択、実行ボタン2を3回選択、次に実行ボタン1を選択した場合はC5:M5それともC8:M8?
勝手に決めちゃいます
実行ボタン1は24回以上は選択できない
C5以下C列に入力の無い行を見つけてコピペ
実行ボタン2はC30以下C列に入力の無い行を見つけてコピペ
Sub 実行ボタン1()
Dim rng As Range
Dim i As Integer
Set rng = Range("C5")
For i = 0 To 24
If rng.Offset(i, 0).Value = "" Then
rng.Offset(i, 0).Resize(1, 3).Value = Range("C2:M2").Value
Exit Sub
End If
Next i
End Sub
Sub 実行ボタン2()
If Range("C30").Value = "" Then
Range("C30").Resize(1, 3).Value = Range("C2:M2").Value
Else
Range("C65536").End(xlUp).Offset(1, 0).Resize(1, 3).Value = Range("C2:M2").Value
End If
End Sub
参考まで
あららいけませんね
#1さんのリンク先見ちゃいました
マルチポストはいけません
どちらかを締め切ってください
マナー違反ですよ
回答いただいた方にお礼しないのも
これまたマナー違反ですよ
それでは、おやすみなさい
わぁぁぁぁぁ~ すみません^^;;;;
マナー違反ばっかししているみたいですね...教えてgooビギナーといえども
最低限の事も出来ていない私って....スミマセン 以後気をつけます ハイ^^
ご指摘ありがとうございました。
プログラムのほうも お気をつかっていただきまして 2重にありがとうございます。 ただいま本片手に奮闘中です ガンバリマス!
No.1
- 回答日時:
お礼遅れましてすみません^^;
教えてgooもビギナーですので なかなか流れがわからず...
現行のプログラムも ???が多すぎると思いまして、なかなかご教授いただいたとうりの行動に移せなくて すみません
現在 奮闘中です ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ログインIDの一発入力? 5 2023/07/07 12:30
- Windows 10 Corsair SSDが遅い (2)WDに比べて 3 2023/04/25 11:21
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Windows 10 Corsair SSDが遅い 4 2023/04/24 07:07
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
VBAでのユーザフォームの表示有...
-
エクセル マクロ 別シートから...
-
ACCESSで別DBにあるクエリを...
-
円の中に等間隔に線を引くには
-
Sub Auto_Open() 実行されない
-
実行時エラー9 インデックスが...
-
Excel VBAのステップイン
-
MATLABの乱数生成関数 rand( ) ...
-
ascW関数の結果がおかしい
-
ワードで、グレーの部分しか入...
-
エクセルで条件をつけて図形を...
-
2点間の距離をミリ秒単位で求め...
-
荒野行動の引き継ぎについて質...
-
ツールバーの「ファイル(F)、...
-
ネットの送信するフォームについて
-
VBA ピポットテーブル 前年比の...
-
生コンの立米数の出し方
-
プロアクションリプレイmax2の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
VBAでのユーザフォームの表示有...
-
ACCESSで別DBにあるクエリを...
-
GetAsyncKeyState() を利用する...
-
ascW関数の結果がおかしい
-
Excel vba 条件分岐 空白セルが...
-
エクセル マクロ 別シートから...
-
Excel VBAのステップイン
-
ステップモードの動作確認方法
-
Excelで、チェックボックスにチ...
-
ExcelVBAで毎月月初の最初にBoo...
-
ExcelVBA ドロップボックスで月...
-
Excelのマクロ実行後に動作が重...
-
円の中に等間隔に線を引くには
-
メニューバーのイベントが2回...
-
最小化ボタンで最小化したフォ...
-
MATLABの乱数生成関数 rand( ) ...
-
続き…エクセルvba ①SUBメニ...
おすすめ情報