同じブック内の別シートの値が一致するとき〇にしたい
VBAを使って仕事を簡素化したいと考えております。
前提
A(従業員のマスタ)・B(現場に入る従業員の資格一覧)というシートがあります。
Bに名前を入力するとAから個人情報をコピーしてくるというところまではできました。
Aのシートも別のところにマスタがあります。
現在困っていることは、
例)山田さん(玉掛の資格有)の場合
Bに山田と入力 → Bの保有資格の欄に〇を自動で入力したい
Sub 検索1() With Range("Q19:U20").Copy Sheets("A").Select Range("C569").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Range("$B$1:$CL$570").AutoFilter Field:=3, Criteria1:=Range("C569") Sheets("A").Range("C569").Clear End With ActiveSheet.Range("AN4:BC500").SpecialCells(xlCellTypeVisible).Select Cells.Find(What:="玉掛", After:=activecell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate If searthcell = "玉掛" Then Sheets("B").Select Range("AV17:AV20").Select activecell.FormulaR1C1 = "〇" Sheets("A").Select Selection.AutoFilter Sheets("B").Select End If End Sub
実行するとオブジェクト変数またはwith ブロック変数が設定されていません。
となります。
正直仕事を簡素化したいために始めたばかりで何をどうやって解決したらいいかわかりません。
また無駄な作業をしている箇所がありましたら御指摘いただけると助かります。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/07/05 04:13