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
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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
-
4
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
5
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
6
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
7
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
8
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
9
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
10
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
13
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
14
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
15
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
16
引数に数値、文字列の混在
Visual Basic(VBA)
-
17
VBA listBoxについて
Visual Basic(VBA)
-
18
【ExcelVBA】インデックスが有効範囲にありません。の理由が分かりません
Visual Basic(VBA)
-
19
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
20
エクセルのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAについて
-
VBA初心者です。
-
PHPでMySQLデータを呼び出し、w...
-
checkboxクリック時、SQLを実行...
-
検索結果($_POST)が2ページ目...
-
python pandas 行ごとに列名(...
-
htmlとphpの分離
-
mysql_fetch_objectのエラー
-
MySQLでデータベースにデータin...
-
アポストロフィを含む文字列の追加
-
実行時エラー3131 FROM 句の構...
-
stringaddslashes 半角¥が消える
-
JAVA SQLServerException 列名 ...
-
MySQL5のデータを、SQL文を使い...
-
<VB.NET>INSERT文でDBにデータ...
-
ASP.net データベース操作について
-
PHPでフォームからデータDBに書...
-
MySQLのUPDATE実行結果を受け取...
-
VBA ACCESS SQL...
-
mysql_query等でレコード数を変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PHPで[]の使い方について
-
php テーブルが作成できない
-
dbに登録したデータをphpのプル...
-
アラートでyes noを作りたいです。
-
phpでmysqlを使ってデータベー...
-
DBで検索結果に該当するデータ...
-
文字化けが解決できません。お...
-
SELECT結果から動的にコンボボ...
-
checkboxクリック時、SQLを実行...
-
PHPでMySQLデータを呼び出し、w...
-
while文の中にwhile文を書きた...
-
sortable ギブアップです…助け...
-
重複レコードをグループ化した...
-
PHP と MySQL でテーブルの行数...
-
PHPでMySQLのデータを2次元配...
-
mysql>PHPにデータ表示、10件ご...
-
PHPについてなのですが未定義の...
-
VBA初心者です。
-
ラジオボタンをループすること...
-
PHP+MySQLでの配列のinsert文に...
おすすめ情報