Quote:
Originally Posted by Smooth Scroller
de az a helyzet, hogy nem manualisan kene megcsinalni, hanem kepletekkel. tehat ne kelljen kezzel rakeresgetni a pontokra, meg ide-oda allitgatni a cellak tipusat. a cella eleve szoveges, es abbol kell a matek segitsegevel kihamozni a szamot, tehat automatanak kell lennie, mert igy a tuti. csak bemasolom a cellakba ctrl+v segitsegevel a szoveget es az adatmezo a szoveg altal nem hasznaltt reszen a kepletek azonnal kihamoznak a lenyeget, es azonnal szamolnanak is vele.
de koszi, hogy foglalkozol vele.  |
Esetleg makróként megcsinálhatnád.
Majd beszerkeztesz egy gombot, és ha kell, ráklikkelsz, és a progi elindítja.
Én egy hasonlót írnék rá, bár nem tudok programozni.
Sub Ponttalanito()
'
' Ponttalanito Makro
' Rögzítette: Kubbi, dátum: 2007.09.17.
'
' Billentyűparancs: Ctrl+a
'
sor = 3
Do
Cells(sor, 5).Select
h = ActiveCell.Value
If h = "" Then End
ActiveCell.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
sor = sor + 1
Loop
End Sub
Értelemszerűen kell kitölteni, a sork értéket, és az oszlopértéket.
Én úgy állítottam be, hogy jelenleg a 3.sor, 5. oszlop cellája az első vizsgált cella. Egész addig csinálja, amíg üres cellát nem talál.