|
▼Kein さん:
ありがとうございました。
お陰様で完成いたしました。
>Dim Nm As String
>Dim xR As Variant
>
>Nm = Sheets("Sheet1").Range("E2").Value
>xR = Application.Match(Nm, Sheets("Sheet2").Columns(1), 0)
>If Not IsError(xR) Then
> Sheets("Sheet1").Range("F2:G2").Copy Sheets("Sheet2") _
> .Cells(x, 256).End(xlToLeft).Offset(, 1)
↑
ここをxRに書き換えれば良かったのですね。
最初は、本を見て意味も考えずに数値や名称を書き換えてばかりいましたが、じっくりと見直すことで、勉強になりました。
そして、「ああ、なるほどなぁ〜、うまくできてるんだなぁ〜」と感心いたしました。Cells の指定する行に、match関数で取得した変数を代入しなさいという意味なんですね。Endは知らなかったので、ヘルプで見てみました。
ありがとうございます。
一応、実名を変えて、
http://homepage3.nifty.com/mebius21/macro.html
<A href="file:///C:/Documents and Settings/yyama/My
"入金記録シートサンプル"に、完成したものをアップロードしました。
もし、よろしかったら見てやってください。
1週間くらい保管しておこうと思います。
山内
|
|