よねさん、
お忙しいところ申し訳ありません。どのように変更すればよいのかわかりません、
どうぞ宜しくお願い致します。

リストBOXの値を選択→テキストBOXに表示される→内容変更→実行→シートに転記（上書）
Private Sub btn変更_Click()
Worksheets("データ").Activate


With ListBox1
   Dim TargetIndex As Integer
  TargetIndex = .ListIndex
 .List(TargetIndex, 0) = Format(txt日付.Text, "yyyy/m/d")
  .List(TargetIndex, 1) = Format(TextBox1.Text, "aaaa")
  .List(TargetIndex, 2) = txt物件名.Text
  .List(TargetIndex, 3) = Format(txt価格.Text, "#,##万円")
  .List(TargetIndex, 4) = Com業者名.Text
  .List(TargetIndex, 5) = Com状況.Text
  .List(TargetIndex, 6) = Com取引態様.Text
 .List(TargetIndex, 7) = "-"
  
  Dim TargetRow As Integer
   TargetRow = txt日付.Text
  Cells(TargetRow, 2).Value = Format(TextBox1.Text, "aaaa")
  Cells(TargetRow, 3).Value = txt物件名.Text
  Cells(TargetRow, 4).Value = Format(txt価格.Text, "#,##万円")
  Cells(TargetRow, 5).Value = Com業者名.Text
  Cells(TargetRow, 6).Value = Com状況.Text
  Cells(TargetRow, 7).Value = Com取引態様.Text
   Cells(TargetRow, 8).Value = "-"
End With
End Sub
 TargetRow = txt日付.Textここで黄色が付き型が違いますとエラーが出ます。

登録は、うまくいきます。

宜しくお願い致します。