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

• #33340 Fferi50 Topikgazda huliganboy #33338

  Új Válasz 2016-11-30 12:10:45 #33340

  Ú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 huliganboy #33338 üzenetére

  Szia!

  Megpróbálhatod ezt:
  Sub nagybetus()
Dim ertekek, xx As Long, yy As Long
ertekek = Range("D3:AD20000").Value
For xx = 1 To UBound(ertekek)
For yy = 1 To UBound(ertekek, 2)
ertekek(xx, yy) = Application.Proper(ertekek(xx, yy))
Next
Next
Range("D3:AD20000").Value = ertekek
End Sub

  Ha esetleg memória problémát jelezne, akkor vedd kétfelé a területet.

  Üdv.

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