VBA　選択セルの行番号の書出し

前提・実現したいこと

カードリーダー(PaSoRi)を利用して、物品の授受簿管理を行いたいと考えています。

個々が保持しているセキュリティカードをスキャンすることで個人識別し、管理簿に受取者として情報転記させたく思っています。

一人で複数の物品を授受することも頻繁ですので、それに対応した仕組みをVBAで作りたいです。

以下詳細
1）管理簿（sheet1)内N列の受取番号で、該当となったものをセル選択

2）マクロボタン（図内はCommandButton1)押下
3）別シート（Sheet2）に選択セルの行番号を書出し

発生している問題・エラーメッセージ

とにかく手探りで調べながらコードを書いているので特定のエラーというか、ホントに何が正解の組み立てなのかが分からずおります。。。

該当のソースコード

Private Sub CommandButton1_Click()

   Dim ret As Integer
   Dim strCardUID As String
   
   strCardUID = String$(128, vbNullChar) '空文字のままで関数に渡すとエラーとなるので、Null文字で埋めておきます
   
   ret = GetSmartCardUID(strCardUID)
      
   strCardUID = Replace(strCardUID, vbNullChar, "")  '文字列からNull文字を除去
      
   If ret = 0 Then
      ActiveSheet.Cells(8, 2).Value = strCardUID
      ActiveSheet.Cells(8, 3).Value = Null
   Else
      ActiveSheet.Cells(8, 3).Value = Null
      If ret = 100 Then
         MsgBox "カードがセットされていない、またはカードが読み取れません。"
      ElseIf ret = 200 Then
         MsgBox "カードリーダーを認識できません。接続されているかご確認下さい。"
      ElseIf ret = 300 Then
         MsgBox "スマートカードサービスが起動していないか、またはインストールされていません。"
      ElseIf ret = 400 Then
         MsgBox "カードＩＤの取得に失敗しました。"
      Else
         MsgBox "予期しないエラーが発生しました。"
      End If
   End If

For i = 1 To 1000
r_num = Range(Worksheets("sheet1").Cells(2, 14), Worksheets("sheet1").Cells(1000, 14)).Find(What:=Cells(i, Selection.Row))

Worksheets("sheet2").Cells(i, 1) = r_num
Next i












End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

複数のセルを選択しているとき、選択したセルの行番号を書き出したいということでしょうか。

下記でどうでしょう。

vba
1Private Sub CommandButton1_Click()
2    Dim ws2 As Worksheet
3    Set ws2 = Worksheets("Sheet2")
4    Dim i As Long
5    i = 2
6    Dim r As Range
7    Set r = Intersect(Selection, Range("N:N"))
8    If r Is Nothing Then
9        MsgBox "N列のセルを選択してください。"
10        Exit Sub
11    End If
12    Dim c As Range
13    For Each r In Intersect(Selection, Range("N:N"))
14        ws2.Cells(i, 1).Value = r.Row
15        i = i + 1
16    Next
17End Sub