selection.copy problemer

Range("E2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("E2:E108"), Type:=xlFillDefault
Range("E2:E103").Select

ups:

Range("E2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("E2:E103"), Type:=xlFillDefault
Range("E2:E103").Select

eller blot
Range("E2:E103") = 1

tror ikke helt jeg forstår. vil ud være så venlig at skrive hele koden. lige så vi ikke forstår hinanden. så er det fordi at når jeg henter data fra en database kommer det ud i tekst. jeg vil lave det om til tal ved at gange det med 1. så ændre det nemlig format. så det jeg vil er bare at have e2:e103 lavet om til talformat i stedet for tekstformat. så jeg skal have copy funktionen til at indeholde tallet 1. uden at det skal komme fra en celle. håber i forstår

ok så prøv :

Sub TilTal()
For Each c In Range("E2:E103")
c.Value = c.Value * 1
Next
End Sub

jamen så virker akyhne's jo som den skal
det var bare mig som misforstod

næ alligevel ikke,- det kører rigtig godt for mig i dag :-)

den virker ikke, tror det er det der c den ikke forstår

Det var mærkeligt, virker ok her, men prøv evt. denne :

Sub Convert()
For Each x In Range("E2:E103")
x.Value = Application.Substitute(x, Chr(34), Empty)
Next
End Sub

får du en fejl, eller bliver de ikke konverteret til tal ?

Er det cellerne du vil have lavet op til talformat?

Range("E2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.NumberFormat = "0.00"
Selection.AutoFill Destination:=Range("E2:E103"), Type:=xlFillDefault

Eller uden decimaler:

Range("E2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.NumberFormat = "0"
Selection.AutoFill Destination:=Range("E2:E103"), Type:=xlFillDefault

har prøvet dem, men de virker ikke, jeg kan heller ikke helt forstå hvordan de koder i skriver skulle kunne gange de celler med værdien 1 så de blev lavet om fra tekst til tal. jeg har jo en masse numre celle e2:e103 jeg skal have lavet om til talformat fra tekst format.

Du er nødt til at forklare hvad det er du vil. Hvad mener du med at tekst skal være talformat? Står tallene således: "10"?

prøv lige at indsætte et par eks.

prøv denne:

Sub Convert()
For Each x In Range("E2:E103")
x.Value = Application.Substitute(x, Chr(34), Empty)
x.Value = x.Value * 1
Next
End Sub

fandt løsningen

Range("E5:E200").Select
    Selection.NumberFormat = "0.00"

men smid nogle svar. i skal have tak for hjælpen og inspirationen til løsningen.

den kode du har der konverterer ikke tal formateret som tekst til tal i mine forsøg ?

jeg lavede ud af en makrooptagelse. den tage alle de felter jeg har i range e5:e200 og laver dem til tal. inden jeg kører den står der 1000, 2000, 3000 osv
og når jeg har kørt den står der 1000,00, 2000,00, 3000,00 og de er talformat i stedet for tekstformat.

Ja den sætter området til talformat med 2 decimaler
men den konverterer ikke tal formateret som tekst til tal
som fx. "1000" eller '2000

så enten har det været "rigtige" tal fra starten, eller
også har du måske konverteret med en af ovenstående koder

så hvis du mener du selv har fundet løsningen så skal du også
selv have point

Tja, her er i hvertfald et svar. Min kode 08/09-2007 18:08:24 viste hvorledes du lavede en udfyldning af 1-taller som nummerformat med 2 decimaler. En bedre forklaring i dit indledende spørgsmål, havde på et øjeblik bragt os på rette vej.

og svar fra mig

jeg deler dem mellem jer. håber i er tilfredse med det?