サッカーもいいけどマクロもねっ

質問

多分わかる人には簡単な内容だと思いますが・・

Rows("1:1").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R1C1:R1200C2,2,FALSE)"
Range("D1").Select
Selection.Copy
Application.Goto Reference:="R2C4:R65000C4"
ActiveSheet.Paste
Application.CutCopyMode = False
Cells.Select
Range("A2").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="0"
End Sub

これは「Sheet1にデーター」を入れ
「Sheet2のA列」に調べたい項目を打ち込み
Sheet1でマクロの実行をし
Sheet1の上の方に調べてる項目が出てくるマクロです

質問は「Sheet2のA列」に調べる項目を打ち込むのではなく
「Sheet2のB列」打ち込みを変更したいのです
どこを変えれば良いのでしょうか？
又、A列には「ABC123」と打っているのですが「abc123」の様に小文字にも対応出来る方法はありますか？

回答No.5

papayuka · ベストアンサー

#2です。

> そして名前を変更し保存しようとしましたら上手く行きませんでした
> 一番右端に行くのはセル一個を取り囲む点線のちろちろです

Sub XXX() ～ End Sub までモジュールに記載されている内容を全て提示してもらわないと、いま提示されている内容だけではこれらの動作を推測出来る部分は見受けられません。

お礼

出来ました
名前に使ってはいけない記号を入れていたのが原因でした

ありがとうございました

回答No.4

papayuka

#2です。

> 名前を変えて保存したいのですがいろんな方法で
> 何度やっても上手くいきません
> sheet1nの一番右端のセルに行ってしまいます

おっしゃる意味が解りません。
何が上手く行かず、何が一番右端に行くのでしょう？
マクロ名を変えたいなら、VisualBasicEditorを開いて書き換えるだけですが、、、

お礼

す・すいません
現在使用しているマクロを開き編集で貼り付けました
問題なく動きます
指摘して頂きました部分は削除しました
そして名前を変更し保存しようとしましたら上手く行きませんでした
なんでかなぁ～？？　って思いまして・・
一番右端に行くのはセル一個を取り囲む点線のちろちろです
・・何と言って良いか分かりませんが・・
現在の状態でも支障は無いのでこのまま使わせて頂きます
ありがとうございました

回答No.3

papayuka

#2です。
例えば、下記の５行だと「←ここ」の２行は削っても同じ動きをすると思います。

　Rows("1:1").Select　'←ここ
　Range("D1").Select
　ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R1C1:R1200C2,2,FALSE)"
　Range("D1").Select　'←ここ
　Selection.Copy

不要行を削り、必要行を統合すると下記でもほぼ同じ動きをすると思います、、、たぶん。
（VLOOKUPは元の式です）

Sub Test()
　Range("D1:D65000").FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R1C1:R1200C2,2,FALSE)"
　If ActiveSheet.AutoFilterMode Then Range("D1").CurrentRegion.AutoFilter
　Range("D1").CurrentRegion.AutoFilter Field:=4, Criteria1:="0"
End Sub

お礼

ありがとうございます　出来ました
名前を変えて保存したいのですがいろんな方法で
何度やっても上手くいきません
sheet1nの一番右端のセルに行ってしまいます

　ここ↓
Sub Macro1()
'ここ↓
' Macro1 Macro
' マクロ記録日 : 2006/6/22 ユーザー名 : Owner

を　変えたいのですがどうすれば良いのでしょうか？

回答No.2

papayuka

"=VLOOKUP(RC[-1],Sheet2!R1C1:R1200C2,2,FALSE)"
↑ここを

"=VLOOKUP(RC[-1],Sheet2!R1C2:R1200C3,2,FALSE)"
↑こうするって事かな？

記録マクロですね？
無駄な記述が多いです。

お礼

ありがとうございます
会社のPCでないと確認できないのですが
無駄な記述の無いプログラミング？？だとどの様になるのでしょうか？

回答No.1

zap35

すみません。不勉強で申しわけないですが、このマクロは質問者さまの説明の動きはしないように思うのです。もう少しやりたいことを説明していただけませんか。

このマクロは
１）シート１！Ｃ１に入力した値でシート２！ａ１：ａ１２００を検索してヒットした行のｂ列の値をシート１！ｄ１に格納する

２）シート１！ｄ１の値をシート１！ｄ２：ｄ６５０００へコピー

３）シート１！ａ２にオートフィルタを設定
　　その後４番目のフィールドが「０」の値の行を表示しようとする

に読めるんですが…
できれば「Sheet1のＸＸセルに検索したいデーター」のように具体的にセルを指定して説明いただく方が、期待に沿う回答が得られると思いますよ。

お礼

申し訳ありません
詳しい事は私もよく分からないのです
ただ使える事は確かです　ありがとうございました