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

• #53356 Fferi50 Topikgazda Dr. Mózes #53355

  Új Válasz 2024-10-04 14:25:41 #53356

  Ú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 Dr. Mózes #53355 üzenetére

  Szia!
  Rájöttem a probléma okára.
  A makró közepét így módosítsd légy szíves:
  For xx = 0 To UBound(alap)
  If Val(Replace(alap(xx), ",", ".")) <> 0 Then ' csak ez a sor módosul!!!
       If kiad(UBound(kiad)) = 0 Then
          kiad(UBound(kiad)) = Val(Replace(alap(xx), ",", "."))
       Else
          ReDim Preserve kiad(UBound(kiad) + 1): kiad(UBound(kiad)) = Val(Replace(alap(xx), ",", ".")) 'szamkinyer = szamkinyer & ";" &
       End If
    End If
Next

  Üdv.

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