[[20170801174329]]　『438オブジェクトはこのプロパティをサポートしてａx（ゆみこ）　ページの最後に飛ぶ

『438オブジェクトはこのプロパティをサポートしてません　エラーについて』（ゆみこ）

お世話になっております
教えていただけたら幸いです
ユーザーフォム　リストボックスから
フィルタを掛けて抽出した値の一番右側に
本日の日付を入力したいです
下記の様に書きましたが
此処の部分でエラーが出てしまいます

 Selection.End(xlToRight).offsett(, 1).Text = Date

宜しくお願いいたします

Private Sub CommandButton3_Click()
Dim x As Variant
Dim c As Range

    x = ListBox1.Text

    Sheets("Sheet3").Select
    Range("A1").Select
    Selection.AutoFilter
    Sheets("Sheet3").Range("A:b").AutoFilter Field:=1, Criteria1:=x

    Set c = Range("A2", Cells(Rows.Count, 1).End(xlUp))
    c.SpecialCells(xlVisible).Item(1).Select

     Selection.End(xlToRight).offsett(, 1).Text = Date

End Sub

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

 >Selection.End(xlToRight).offsett(, 1).Text = Date
 tが多い...

 Selection.End(xlToRight).offset(, 1).Text = Date

（ seiya） 2017/08/01(火) 17:54

 seiya様

有難う御座いました

スペル間違い　　お恥ずかしいです

textじゃダメなんですね　.Valueじゃ無いと

（ゆみこ） 2017/08/01(火) 18:00

 >textじゃダメなんですね　.Valueじゃ無いと 
 ...見落としました...

 RangeのTextプロパティは読み取り専用ですね。

（ seiya） 2017/08/01(火) 18:02

 seiya様

 RangeのTextプロパティは読み取り専用ですね。

有難う御座いました　　勉強になりました
（ゆみこ） 2017/08/01(火) 18:40

コメント返信：