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

• #13138 Delila_1 veterán Vizes Tomi #13127

  Új Válasz 2012-03-07 07:31:22 #13138

  Ú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

  

  Delila_1

  veterán

  válasz Vizes Tomi #13127 üzenetére

  Épp tegnap írtam egy fórumtársunknak erre egy makrót. Két helyen javíts benne.
  Az egyik
  a cserélendő terület helye: ter = "$E$5: I1407",
  a másik az
  If IsNumeric(Mid(ertek, b%, 1)) Or Mid(ertek, b%, 1) = Chr(44) Then _ sorban a Chr(44)-ben a 44. Ott vessző volt a tizedes jel, de érdekes módon nem fogadta el
  Mid(ertek, b%, 1) ="," módon. Ha nincs tizedes tört az átalakítandó számok között, az
  Or Mid(ertek, b%, 1) = Chr(44) részt hagyd ki.

  Az ASCII értéket úgy határozhatod meg, hogy a szövegrészben kijelölöd a karaktert, másolod, és egy másik cellába beilleszted. Erre az új cellára hivatkozva a =KÓD(cella) megadja az értéket. Hosszabb karaktersorozat esetén az első karakter kódja a visszatérési érték.

  Sub Szam()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  
  Dim ter As String, sz As Variant, b%, uj$, ertek
  ter = "$E$5:I1407"
  For Each sz In Range(ter)
  ertek = sz
  If ertek <> "" Then
  uj$ = ""
  For b% = 1 To Len(sz)
  If IsNumeric(Mid(ertek, b%, 1)) Or Mid(ertek, b%, 1) = Chr(44) Then _
  uj$ = uj$ & Mid(ertek, b%, 1)
  Next
  Range(sz.Address) = uj$ * 1
  End If
  Next
  
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  MsgBox "Kész"
  End Sub

• #13136 cousin333 addikt Vizes Tomi #13127

  Új Válasz 2012-03-06 20:15:04 #13136

  Ú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

  

  cousin333

  addikt

  válasz Vizes Tomi #13127 üzenetére

  Üdv!

  Esetleg részleteiben vagy egészében nem tudnád elérhetővé tenni a fájlt? Csak mert akkor mindenki ki tudná próbálni a saját megoldását, és nem telne el olyan sok idő két javaslat között...

  ui: az eredeti csv fájl, vagy annak részlete lenne a legjobb.

• #13132 lapa veterán Vizes Tomi #13127

  Új Válasz 2012-03-06 19:17:22 #13132

  Ú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

  

  lapa

  veterán

  válasz Vizes Tomi #13127 üzenetére

  f2 --> szóköznek látszó izé kijelöl --> ctrl + c --> oszlop kijelöl --> ctrl + h --> "mit cseréljen" --> ctrl + v --> alt + a --> bódog.

• #13129 Amice csendes tag Vizes Tomi #13127

  Új Válasz 2012-03-06 18:56:29 #13129

  Ú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

  

  Amice

  csendes tag

  válasz Vizes Tomi #13127 üzenetére

  Üdv!
  Ha Cella formázás/Szám-nál az Ezres csoport elől kiszeded a pipát, nem javul a helyzet? (elötte kijelölve az egész oszlopot)

• #13128 Vizes Tomi tag Vizes Tomi #13127

  Új Válasz 2012-03-06 18:47:17 #13128

  Ú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

  

  Vizes Tomi

  tag

  válasz Vizes Tomi #13127 üzenetére

  Itt vagyok megint végül is az ötlet működik egy darabig mert az összefűzött számokat szövegnek írja, de egy másolás beillesztés után már enged átalakítani, csak az a bajom, hogy nőnek a számok , így nem tudom végigrántani az egész táblázaton. Na mind 1 már ez is több m int a semmi

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