| |
▼ハチ さん：
回答ありがとうございます。
ハチさんに別コードと言われサンプル本頼りに”B３”にコード番号入れて行指定の所までやっとたどり着いた所です。それも、ハチさんのおかげと本当に感謝しています。
眠いところ作っていただいたサンプル早速試してみたいと思います。
Sub ()
aa = ActiveSheet.Cells.Find(What:=Range("B3"), LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
cend = ActiveCell.Row
Range("A1").Select
MsgBox "このシートの指定行：" & cend
End Sub
>▼わんこ好き さん：
>
>自分はFindが好きなのでこんな感じでしょうか？
>WorkSheets1枚目A2セルにコードを入れると
>2枚目から3枚目へコピー、2枚目から削除。
>2枚目A1〜A100に検索されるコードが並んでいてA〜D列までをコピー&削除します。
>
>テストデータで試してみてください。
>
>*いちお、動きましたが半眠りで書いているので間違っていたらどなたかフォローお願いします・・
>
>
>'WorkSheets1枚目モジュールへ
>Option Explicit
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address(0, 0) <> "A2" Then Exit Sub
> If Target.Count > 1 Then Exit Sub
>
> Call Test(Target.Value)
>
>End Sub
>
>'標準モジュールへ
>Option Explicit
>
>Sub Test(Tgt As Variant)
> Dim Fi As Range
> Dim Ran As Range
>
> Set Ran = Worksheets(2).Range("A1:A100")
>
> Set Fi = Ran.Find(Tgt, , xlValues, xlWhole, , , False, False)
> If Not Fi Is Nothing Then
> Worksheets(3).Range("A65536").End(xlUp).Offset(1) _
> .Resize(, 5).Value = Fi.Resize(, 5).Value
> Fi.EntireRow.Delete xlUp
> Else
> MsgBox "ありません"
> End If
>
> Set Fi = Nothing
> Set Ran = Nothing
>
>End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
