[[20150224180134]] 『オートフィルタ抽出後KのセルにLのセルの値をを入』(きりん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『オートフィルタ抽出後KのセルにLのセルの値をを入れたい』(きりん)

いつも大変お世話になっております
ご教示頂けたら幸いです

表題通り オートフィルター抽出後KのセルにLのセルの値を入れたいのですが
どの様に書けば良いか解りません
宜しくお願いいたします

 Sub need()

    Dim sSd As Worksheet
    Dim XxX As Range
    Dim W As Range

    Application.ScreenUpdating = False

       With Sheets("FFG")

        If .AutoFilterMode Then .AutoFilterMode = False
        .Range("A1").AutoFilter
        Set XxX = Intersect(.AutoFilter.Range, .AutoFilter.Range.Offset(1))
        .AutoFilter.Range.AutoFilter Field:=1, Criteria1:="=5"
        If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then

        For Each W In XxX.Columns("K").Cells
        If Not Intersect(W, .AutoFilter.Range.Columns("K").SpecialCells(xlCellTypeVisible)) Is Nothing Then W.Value = (Range.Columns("L").Cells)
                                                   ここの部分で引数は省略できませんと言うエラーが出ます
        .AutoFilterMode = False
        End With

        ThisWorkbook.Save

        End Sub

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 コードはよく読んでいません。

 For Each があって、Nextがないので、このコードそのものはエラー以前に、動かないと思いますが?

 いずれにしても表示された行のK列にL列の値を入れることだけでいえば

    Dim c As Range

    For Each c In Intersect(ActiveSheet.AutoFilter.Range, ActiveSheet.AutoFilter.Range.Offset(1)).Columns(1).Cells
        With c.EntireRow
            If Not .Hidden Then .Range("K1").Value = .Range("L1").Value
        End With
    Next

 こんなコードで可能ですが。

(β) 2015/02/24(火) 18:24


β様
有難う御座います
早速 組み込みます

(きりん) 2015/02/24(火) 18:29


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.