![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
tatsumaru77様
以前投稿した内容で転記の追加をしたいのですが、内容は添付画像のようにA列に〇がある場合にW列の品名を別ファイルのC列に追加、AS列の個数をD列に追加です。
追加していく条件は変更はありません。
現在使用しているコードも記載しておきます。
申し訳ありませんが、よろしくお願いいたします。
Private Sub case8()
Dim fpath As String
Dim wb As Workbook
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow1 As Long
Dim row1 As Long
Dim row2 As Long
Set ws1 = ActiveSheet
fpath = "N:\01生産管理課\01 個人ファイル\5000田中\図番転記.xlsm"
Set wb2 = Nothing
For Each wb In Workbooks
If wb.Name = "図番転記.xlsm" Then
Set wb2 = wb
Exit For
End If
Next
If wb2 Is Nothing Then
Set wb2 = Workbooks.Open(fpath)
End If
Set ws2 = wb2.Worksheets(1)
row2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
If ws2.Cells(row2, "A").Value <> "" Then
row2 = row2 + 1
End If
maxrow1 = 500
For row1 = 10 To maxrow1
If ws1.Cells(row1, "A").Value = "○" Then
ws2.Cells(row2, "B").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _
ws1.Cells(row1, "O").Value & ws1.Cells(row1, "S").Value & ws1.Cells(row1, "U").Value
ws2.Cells(row2, "A").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _
ws1.Cells(row1, "O").Value & "10_00*"
row2 = row2 + 1
End If
Next
End Sub
![「エクセルVBAについて」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/d/543163140_663845157ae51/M.png)
No.1ベストアンサー
- 回答日時:
以下のように,
For row1 = 10 To maxrow1
のループの中に、'追加と記述されている2行を追加してください。
(動作確認はしていません)
For row1 = 10 To maxrow1
If ws1.Cells(row1, "A").Value = "○" Then
ws2.Cells(row2, "B").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _
ws1.Cells(row1, "O").Value & ws1.Cells(row1, "S").Value & ws1.Cells(row1, "U").Value
ws2.Cells(row2, "A").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _
ws1.Cells(row1, "O").Value & "10_00*"
ws2.Cells(row2, "C").Value = ws1.Cells(row1, "W").Value '追加
ws2.Cells(row2, "D").Value = ws1.Cells(row1, "AS").Value '追加
row2 = row2 + 1
End If
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) エクセルvbaについて 6 2024/03/02 01:11
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) 引数に数値、文字列の混在 1 2024/01/31 09:44
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
-
4
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
5
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
6
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
7
VBA 複数のエクセルから一つのエクセルに貼り付ける
Visual Basic(VBA)
-
8
VBAなくなるの?
Visual Basic(VBA)
-
9
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
10
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
11
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
12
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
13
エクセルVBAコードで教えて下さい!
Visual Basic(VBA)
-
14
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
15
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
16
エクセルVBAについて
Visual Basic(VBA)
-
17
vba 削除
Visual Basic(VBA)
-
18
プログラミング
Visual Basic(VBA)
-
19
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
20
エクセルについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DBで検索結果に該当するデータ...
-
日付範囲で検索した後に降順に...
-
mysql>PHPにデータ表示、10件ご...
-
phpでmysqlを使ってデータベー...
-
ヒアドキュメントについて
-
MySQLのデーター送信について。...
-
dbに登録したデータをphpのプル...
-
検索結果をgoogleのように数件...
-
PHP、SQLite3のデーターでログ...
-
phpでデータリスト作成
-
DBから抜き出した値を表示する方法
-
printfの中でラジオボタンを使...
-
アラートでyes noを作りたいです。
-
Basic認証
-
PHP 10件表示 "前へ" "次へ"
-
SQL文が実行できません
-
ランダム文字列をDBにINSERT
-
<VB.NET>INSERT文でDBにデータ...
-
実行時エラー3131 FROM 句の構...
-
OracleからAccessへのインポート
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PHPで[]の使い方について
-
エクセルVBAについて
-
DBで検索結果に該当するデータ...
-
アラートでyes noを作りたいです。
-
phpでmysqlを使ってデータベー...
-
checkboxクリック時、SQLを実行...
-
dbに登録したデータをphpのプル...
-
PHP+MySQLでの配列のinsert文に...
-
pg_queryの結果を2回とりだす...
-
検索結果($_POST)が2ページ目...
-
PHPについてなのですが未定義の...
-
VBA初心者です。
-
PEAR::DBで取得したデータで処...
-
sortable ギブアップです…助け...
-
DBのデータを表示させたい
-
mySQLからデータを取り出す
-
データベース表示結果のデザイン
-
PHP と MySQL でテーブルの行数...
-
PHP 勤務時間の合計を出したい
-
連想配列、オブジェクト配列の...
おすすめ情報