Date:  Wed, 27 Nov 2013 23:02:06 +0900
From:  no@ann.co.jp
Subject:  [pasml 01624] データ抽出について 
To:  pml@ann.co.jp
Message-Id:  <201311271402.rARE26Cf014624@ns.pas2.jp>
X-Mail-Count: 01624

名前: バニュ-PC初心者-PC不慣れ BBSから
質問:http://pasokoma.jp/51/lg512850#512850
携帯:http://pasokoma.jp/m?num=512850&ope=v
--
メーカー名：自作PC 作ってもらった 
OS名：Windows7 
パソコン名：ce151
--
エクセルでD7セルに支店名を入れると、その支店名の注文データのみが
抽出されるマクロがありコートは下記の通りなのですが、
XPのパソコンでは動きません。
どこを直したらいいのか教えてください。
よろしくお願いいたします。

Pricate Sub Worksheet_Change(ByVal Target As Range)

Dim myRng As Range
Dim myRow As Long
Dim myCol As Integer

Set myRng=Range(&quot;F12:G30000&quot;)
myRow=Target.Row
myCol=Target.Column

Application.EnableEvents=False
Application.ScreenUpdating=False

If Range(&quot;D7&quot;).Value=&quot;&quot;And Range(&quot;D8&quot;).Value=&quot;&quot;Then
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode=False
End If
Else
If myRow=7And myCol=4 Then
With myRng
.AutoFilter
.AuteFilter Field:=1, Criteria 1:=&quot;=&quot; &amp; Range(&quot;D7&quot;).Value
End With
Range(&quot;D8&quot;).Value=&quot;&quot;
End If
End If
Application.EnableEvents=True
Application.ScreenUpdating=True
End Sub
--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===