入力する場所を決めて、その入力した内容を違う場所にコピーしたいのです
このコピーの仕方として、セル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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Web画面の文字をVB6で取得したい
-
Excel 範囲指定スクショについ...
-
VBA 入力箇所指定方法
-
【VBA】カーソルのある行の1行...
-
VBA ユーザーフォーム ボタンク...
-
エクセルVBAにて =A1=B1とすれ...
-
【ExcelVBA】インデックスが有...
-
Excelについて
-
VBA 別ブックからコピペしたい...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
Excelで画像URLを1つずつセル...
-
Excel VBA 文字列のセルを反映...
-
VBA 指定した回数分、別シート...
-
ExcelVBAのFindFirstエラ...
-
VBA 複数の各シートに行を追加...
-
10行目にフィルターを使用して...
-
Outlookの「受信日時」「件名」...
-
Excel VBAで値を変えながら、pd...
-
メールの件名をデコードしたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
ACCESSで別DBにあるクエリを...
-
VBAでのユーザフォームの表示有...
-
ascW関数の結果がおかしい
-
Excel VBA 選択範囲の罫線色の...
-
円の中に等間隔に線を引くには
-
エクセル マクロ 別シートから...
-
Excelで、チェックボックスにチ...
-
ExcelVBAで毎月月初の最初にBoo...
-
GetAsyncKeyState() を利用する...
-
ステップモードの動作確認方法
-
Excelのマクロ実行後に動作が重...
-
メニューバーのイベントが2回...
-
WYSIWYG editor execCommand...
-
最小化ボタンで最小化したフォ...
-
Excel VBAのステップイン
-
エクセルVBAのコードで質問です...
-
excel2010でボタンが反応しなく...
おすすめ情報