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

• #25904 Agostino addikt

  Új Válasz 2015-03-11 09:55:17 #25904

  Ú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

  Privát üzenet küldése

  

  Agostino

  addikt

  sziasztok

  újabb nem értés : )

  Sub sortörés()
  
  For Each MyRange In ActiveSheet.UsedRange
  If 0 < InStr(MyRange, Chr(10)) Then
  MyRange = Replace(MyRange, Chr(10), "")
  End If
  Next
  
  End Sub

  erre is type mismatch-et dob, de még debuggolni sem tudom, mert a ? cella.adress-re run time error 424 object required hibaüzenet jön....

  egyébként ezzel a sorral van baja

  If 0 < InStr(MyRange, Chr(10)) Then

  ... és csak akkor ha csv xls-be van kimentve, ami viszont most fontos

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