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

• #28570 Fferi50 Topikgazda the radish #28568

  Új Válasz 2015-09-11 20:59:51 #28570

  Ú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

  

  Fferi50

  Topikgazda

  válasz the radish #28568 üzenetére

  Szia!

  Próbáld ki az alábbi makrót:

  Sub csvment()
  Dim fileszam As Integer, sor As Range
  fileszam = FreeFile()
  Open "Minta.csv" For Output As #fileszam
  For Each sor In ActiveSheet.Rows
  Print #fileszam, Join(Application.Transpose(Application.Transpose(sor.Value)), ";")
  Next
  Close #fileszam
  End Sub

  Üdv.

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