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

• #31586 Fferi50 Topikgazda lenkei83 #31585

  Új Válasz 2016-05-19 16:37:00 #31586

  Ú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 lenkei83 #31585 üzenetére

  Hali!

  Ismerős néhány elnevezés a kódodban

  A kívánt eredményhez a következőképpen juthatsz el:

  If ujfka.Row > 4 Then
  If Not IsEmpty(ujfka.Cells(2)) Then
  set ujfka = Intersect(ujfka, ujfka.Offset(0, 1))
  Print #xx, Replace(Join(Application.Transpose(Application.Transpose(ujfka.Value)), ";"), ",", ".")
  End If
  End If

  A 001 exportálásban lemaradt a rows a usedrange mögül és én pont ezt a makrót kezdtem el nézni...

  Szerintem nem kell 3 makró hozzá, elég egy, amit paraméterezetten hívsz meg.

  Üdv.

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