[[20150429151135]]　『張付ける関数の＊月をセル参照したい』（ケイ）　ページの最後に飛ぶ

『張付ける関数の＊月をセル参照したい』（ケイ）

 よろしくお願いします。
 Sub Macro1()
　　Sheets("原本").Select
    Rows("1:30").Select
    Selection.Copy
    Sheets("8月").Select
    Rows("2:2").Select
    ActiveSheet.Paste
 End Sub
 原本の表を上のマクロで（例です）
 原本の表の一部に”得意先名”というテキストが
 入っているセルを検索し（場所はランダム）
 =IFERROR(VLOOKUP(B2,'\\intranet\27年度\[得意先表.xlsx]＊月'!$B:$N,4,FALSE),"")
 を自動で入れたいのですが
 ＊月の部分は張付けた表のB2の日付（mm月dd日(aaa)）の
 mm月を参照させたいのですが、可能でしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 こんな感じでしょうか。
 シート名が「08月」でなくて「8月」なら Format を mm月 から　m月 にしてください。

 Sub Sample()
    Dim 対象月 As String
    対象月 = Format(Sheets("原本").Range("B2").Value, "mm月")

    Sheets("原本").Rows("1:30").Copy Sheets(対象月).Rows("2:31")

    Dim 検索結果 As Range
    Set 検索結果 = Sheets(対象月).Rows("2:31").Find("得意先名")

    If 検索結果 Is Nothing Then
        MsgBox "[得意先名]がありません"
    Else
        検索結果.Formula = "=IFERROR(VLOOKUP(B2,'\\intranet\27年度\[得意先表.xlsx]" & 対象月 & "'!$B:$N,4,FALSE),"""")"
    End If
 End Sub

（Mook） 2015/04/29(水) 16:11

Mookさん　ありがとうございます。

 大変申し訳ありませんが、私の勘違いがありました。
 mm月ではなくmm月dd日(aaa)そのままでした。
 そこまでは私で調整できるのですが、
 30行の表を複数回マクロでコピーしているのですが
 職場環境でないので詳しいマクロは出せませんが
 毎回、最終行に張付けしているため
 Range("B2").Value, "mm月dd日(aaa)"部分が変更になるのですが
 (B2)部分を張付けした部分の表の（B列2行目セル）にできないでしょうか？
 お手数をお掛けします。
（ケイ） 2015/04/30(木) 06:24

 毎回コピー元（原本シート）の位置が変わるということでしょうか。
 コピー先は固定でよいのでしょうか。
（Mook） 2015/04/30(木) 07:50

コメント返信：

[ 一覧(最新更新順) ]

[[20150429151135]] 『張付ける関数の＊月をセル参照したい』（ケイ） ページの最後に飛ぶ

[[20150429151135]]　『張付ける関数の＊月をセル参照したい』（ケイ）　ページの最後に飛ぶ