VBAで、シート2で指定した数値とシート1の数値が合致したら、シート2に転記するマクロを作っているんですが、全然動きません。
詳しくは、こんな感じのVBAを組んでます。
もしシート2のL3=シート1の cells(X,i)の場合
シート2のcells(f,j)にシート1のcells(U,i)を代入する
Sub test()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim j As Integer
Set sh1 = ThisWorkbook.Worksheets("1")
Set sh2 = ThisWorkbook.Worksheets("2")
j = 1
For i = 5 To 300
If sh1.Cells(19, "i").Value = sh2.Range("L3").Value Then
sh2.Cells(6, "j").Value = sh1.Cells(16, "i").Value
j = j + 1
End If
Next i
End Sub
色々な参考書やネットなどで調べながら組んだマクロなんですが、知識が乏しいため、どこが間違えなのかわかりません。。
間違えの指摘や、上記ができるVBAプログラムを教えていただけると幸いです。
No.1ベストアンサー
- 回答日時:
こんばんは!
ざっくりとしか見ていませんが・・・
>If sh1.Cells(19, "i").Value = sh2.Range("L3").Value Then
>sh2.Cells(6, "j").Value = sh1.Cells(16, "i").Value
の2行の「i」と「j」のダブルクォーテーションは不要なのでは?
これだと文字列になってしまいます。
それと
>Set sh1 = ThisWorkbook.Worksheets("1")
>Set sh2 = ThisWorkbook.Worksheets("2")
の「1」と「2」はシート名になっているのですよね?
シート見出しの一番左からSheet1・Sheet2となっていて
一番左側Sheetをsh1、2番目をsh2のようにしたいのであれば
こちらもダブルクォーテーションは不要です。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。 6 2023/03/21 16:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
エクセルVBA 別シートの複数の...
-
エクセルVBAで SendKeys "{TAB}"
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
エクセルVBAで 2種のリストを...
-
Excel VBA 複数条件にマッチし...
-
エクセル:VBAで月変わりで、自...
-
Webクエリで困っています
-
Excelマクロ データが上書きさ...
-
VBAで複数シート選択
-
VBA別シートの最終行の下行へ貼...
-
VBA:同じ文字列データの比...
-
エクセル2007で、マクロで、結...
-
ケータイの電源がいきなり落ち...
-
古い携帯に電話がかかって来る...
-
自作した3pgかmp4ファイルを着...
-
ドコモの電話帳バックアップに...
-
スマホ機種変更で旧機種のGoogl...
-
LAVIE Direct DT PC-GD298ZZAL...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
VBA:同じ文字列データの比...
-
エクセルVBA 別シートの複数の...
-
エクセル:VBAで月変わりで、自...
-
エクセルVBAで SendKeys "{TAB}"
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで 2種のリストを...
-
歯抜けの時間を埋めて行の挿入
-
Excel VBAでシート内全体に非表...
-
VBAで複数シート選択
-
EXCELマクロで全シート対...
-
Excel VBA :2回目以降実行で貼...
-
VBAで条件が一致する行のデータ...
-
VBAの指示の内容 昨日こちらで...
-
【WORD差し込み印刷】複数レコ...
-
エクセル シート保護後コメン...
-
Excelでデータの抽出&別シート...
-
エクセルVBAで実行時エラー...
おすすめ情報