□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 条件一致の転記について | |
|---|---|
[195431] 条件一致の転記について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 超初心者 -(2022/12/05(12:19)) □U R L/ VBA初心者です。
条件一致の転記コードをコピーして修正しましたが正常に動きません。
やりたいことは
入金確認表・クレジット 両シートも一覧になっており
入金確認表はA10〜データが入力されており
クレシットはA9〜データが入力されています。
両シートのB行の値が一致で
入金確認表の20列目（T）にクレジットの11列目（K）へ値の転記がしたいです。
（一致しない場合は何もしない）
Sub 条件に合うデータを別シート抽出()
Dim Chusyutu_Sht As Worksheet
Dim Tanka_Sht As Worksheet
Dim MyList() As Variant
Dim LastRow As Long
Dim i As Long
Dim j As Long
Set Chusyutu_Sht = Sheets("入金確認表")
Set Tanka_Sht = Sheets("クレジット")
Tanka_Sht.Select
MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _
End(xlUp)).Resize(, 11).Value
'最終行
LastRow = Chusyutu_Sht.Cells(Rows.Count, 1).End(xlUp).Row
'「抽出」シート ループ
For i = 10 To LastRow
For j = 9 To UBound(MyList)
'条件一致で別シート転記
If Chusyutu_Sht.Cells(i, 2) = MyList(j, 2) Then
Chusyutu_Sht.Cells(i, 20) = MyList(j, 11)
End If
Next j
Next
End Sub
どう編集したらいいでしょうか？
宜しくお願い致します。
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195432] Re[1]: 条件一致の転記について- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/12/05(20:02)) □U R L/
| |
[195433] Re[2]: 条件一致の転記について- ■記事引用/メール受信=OFF■ □投稿者/ 超初心者 -(2022/12/06(11:56)) □U R L/ ご指摘の通りでした。 正常に動きました。 ありがとうございます！ | |
[195434] Re[3]: 条件一致の転記について- ■  / 記事引用/メール受信=OFF■
□投稿者/ 超初心者 -(2022/12/06(11:58)) □U R L/ 解決チェック忘れておりました。 ありがとうございます。 | |