[[20180812153720]]　『Ａシートから文字を探しBシートに対象のNo.を入力』（パソ）　ページの最後に飛ぶ

『Ａシートから文字を探しBシートに対象のNo.を入力したい。』（パソ）

シート１のF行に◯◯という文字があれば、
シート２にシート１のＡ行にかかれているNo.を入力されるようにしたい。
です。

教えてください。
よろしくお願い致します！！

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

 Option Explicit
Sub test()
    Dim r As Range
    Dim buf()
    Dim i As Long
    For Each r In Worksheets(1).Columns(1).SpecialCells(2)
        If r.Offset(, 5) = "○○" Then
            ReDim Preserve buf(i)
            buf(i) = r
            i = i + 1
        End If
    Next
    Worksheets.Add.Cells(1).Resize(i, 1) = Application.Transpose(buf)
End Sub
（隠居じーさん） 2018/08/12(日) 16:38

プロシージャの呼び出し、または引数が不正です

と表示されできません（＞＜）
（パソ） 2018/08/12(日) 19:15

いや～そうですか。　すみません！
Ａ列から番号が始まっている前程ですので
項目だけで後は空白とか
Ｆ列の文字列が記号の○以外だと（漢数字のまるとか）無いとか
だと
エラーになると思います
どの箇所が黄色にハイライトされていますでしょうか
Ａ列は何行目から番号がありますか。
Ｆ列の○○という文字は記号の○○か
ご確認ください

 Option Explicit
Sub test()
    Dim r As Range
    Dim buf()
    Dim i As Long

    For Each r In Worksheets(1).Columns(1).SpecialCells(2)
        If r.Offset(, 5) = "○○" Then
            ReDim Preserve buf(i)
            buf(i) = r
            i = i + 1
        End If
    Next
    If i = 0 Then Exit Sub
    Worksheets.Add.Cells(1).Resize(i, 1) = Application.Transpose(buf)
End Sub
では
どうなりますでしょうか

（隠居じーさん） 2018/08/12(日) 20:05

追伸
あと対象シートは一番左端のシートです　＾＾；
関係無いシートだと動作はわかりません
読込だけで、書込みは新規シートなので影響はないと思います
＞＞シート１のF行に◯◯という文字があれば、
＞＞シート２にシート１のＡ行にかかれているNo.を入力されるようにしたい。
の
F行は　Ｆ列と
Ａ行は　Ａ列と
解釈しました。違っていれば教えて下さいね。

（隠居じーさん） 2018/08/12(日) 20:13

隠居じーさん様
ありがとうございます！
教えて頂いたマクロでできるようになりました！

本当に申し訳ないのですが、まだ助けていただきたいのです

こちらの質問への画像ののせ方がわからなく
ヤフー知恵袋に
エクセルを教えてください！隠居じーさん様お願いいたします！で載せてあります。
本当に困っていて、助けてください。
お願いします。。
（パソ） 2018/08/12(日) 20:57

回答は、あちらではなくこちらで構いませんので、よろしくお願い致します
すみません。
お力を貸してください
（パソ） 2018/08/12(日) 20:58

昨日こちらは全国的に２１時頃から夜半過ぎにかけて
アクセス出来ない状態でした
え＝と
たしか画像アップはリンクすればよかったと思います
エッチティティピー（ｈｔｔｐ：／／）半角英数
私もあまりやったことがないので。。。
後で
実験してみますね　＾＾
詳しい方おられましたらよろしくです。　m(__)m

（隠居じーさん） 2018/08/13(月) 06:32

https://iwiz-chie.c.yimg.jp/im_siggEZowUa2mFh2hPTpUBe5Hug---x320-y320-exp5m-n1/d/iwiz-chie/que-10194515810
最初は
自宅PCのローカルサーバーからのリンク（URL）で
これは
パソさんがアップされたヤフー知恵袋の画像URLです。
なお
こちらではリンク貼り付けは様々な理由から（主に不変性が無い）
推奨されていませんです。
ファイルでもできたよ～な気がするのですが失念致しております。
できないかも？？？
すみません。
でわ　＾＾；

（隠居じーさん） 2018/08/13(月) 06:58

コメント返信：

[ 一覧(最新更新順) ]

[[20180812153720]] 『Ａシートから文字を探しBシートに対象のNo.を入力』（パソ） ページの最後に飛ぶ

[[20180812153720]]　『Ａシートから文字を探しBシートに対象のNo.を入力』（パソ）　ページの最後に飛ぶ