Új hozzászólás Aktív témák

• #6049 lapa veterán Delila_1 #6048

  Új Válasz 2010-01-14 12:10:34 #6049

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz Delila_1 #6048 üzenetére

  végül kicsit parasztosan nekem ilyen lett:

  For x = 1 To 200
  If Cells(4, x) <> "" Then
  Cells(3, x).AddComment
  Cells(3, x).Comment.Text Text:=Cells(4, x).Value
  End If
  Next x
  End Sub

Új hozzászólás Aktív témák