Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29239 / 76732

←次へ　｜　前へ→


	【52777】Re:条件によって別シートに行ごとコピーする

poo - 07/12/3(月) 14:26 -


	引用なし

	パスワード

▼かみちゃんさん：
すいません。ご指摘ありがとうございます。

少し自分なりにわかりやすく変更しました。

Ａ5～Ｕ25までﾃﾞｰﾀｰを入れました。
A　　　B　　　C・・・・・・・・・・Ｕ
番号　日付　　場所
この場所によってｼｰﾄ2・3に振り分けたいのです。
ＩＦまではできたのですが、繰り返し処理がまずわかりませんでした。
また、ｼｰﾄ2.3は出来れば上書きではなく、1行下に下げる
Rows("1:2").Insert Shift:=xlDownで処理をしていきたいです。　　　

Sub 修正中()
　　（ここにFor　i　=　5　to　25　と入れましたがエラーになった為
　　　一旦削除して、IFだけつくりました）
　　 If Range("C5") = "場所1" Then
　　　　Range("A5", "U5").Copy
　　　　Worksheets("変換").Activate
　　　　Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
　　ElseIf Worksheets("貼り付けｼｰﾄ").Range("C5") = "場所2" Then
　　　　Range("A5", "U5").Copy
　　　　Worksheets("変換").Activate
　　　　Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
　　ElseIf Worksheets("貼り付けｼｰﾄ").Range("C5") = "場所3" Then
　　　　Range("A5", "U5").Copy
　　　　Worksheets("変換").Activate
　　　　Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
　　ElseIf Worksheets("貼り付けｼｰﾄ").Range("C5") = "場所4" Then
　　　　Range("A5", "U5").Copy
　　　　Worksheets("変換").Activate
　　　　Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
Else
　　Worksheets("変換").Activate
　　 Range("A1") = ""
End If
End Sub

0 hits

▼

【52756】条件によって別シートに行ごとコピーする poo 07/12/1(土) 17:08