VBAでVlookupを使って
いつもお世話になっています。
VBAで現場検索登録シートと言うところに
一覧シートからVlookupを使って
表示させようと思い作りました。
エラーも何もでません。
ただ、表示されるものがちゃんと検索されるものと
まったくされないものがあります。
Vlookupはマクロの記録から作ったものです。
原因がわかりません。
よろしくお願い致します。
'検索ボタン
Private Sub CommandButton6_Click()
'送り方
Range("C4:D4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,22,FALSE)"
Selection.Value = Selection.Value
'封筒
Range("C5:D5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,23,FALSE)"
Selection.Value = Selection.Value
'得意先名ふりがな
Range("C6:F6").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,6,FALSE)"
Selection.Value = Selection.Value
'得意先名
Range("C7:F8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,4,FALSE)"
Selection.Value = Selection.Value
'現場名ふりがな
Range("C9:H11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,9,FALSE)"
Selection.Value = Selection.Value
'現場名
Range("C10:H11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,7,FALSE)"
Selection.Value = Selection.Value
End Sub
エラーも何もなく、ちゃんと動くことは動きます。
検索結果が、検索コードによって違うのです。
よろしくお願い致します
お礼
回答ありがとうございます。 まさにこの通りでした。 完全に間違って覚えていました^^; 式は引用させて頂きましたが他の項目で 使えるようになりました。 全部列の位置を勘違いしてましたので。 おかげで他の仕事も効率化が図れそうです。 入力ミスによる被害を食い止めたかったものですから 本当に感謝です。 ありがとうございました。