Kun et tal i felt videre til næste felt?

maker cellerne, f. eks A1 til A10

Tast 1, tryk CTRL + ENTER,
så står der 1 i A1 til A10

hvis det er det du mener,
ellers skal du i Funktioner > Indstillinger > Rediger

der kan du vælge retning, som den skal tage efter enter

Det var ikke på den måde jeg mente. Måske jeg forklare mig forkert.
Det er ikke i alle felter der skal stå 1. Kun i dem som jeg vil skrive i.
Men jeg vil gerne have den sådan, at når jeg har trykket på 1 (ikke noget med Enter) så går den videre til næste felt. Man kan måske sige at 1 også kommer til at virke som ENTER også.

det bliver svært, ingen makro kan køre mens du taster i en celle, kun når den aktiveres eller forlades.

Ok Men hvis du har en eller anden form for løsning, så bare kom den så må jeg se på det.
Men kan du fortælle hvordan jeg kan gøre så der max kan stå et tal i i felt?
Så man ikke lige er kommet til og trykke to gange på 1 så der står 11 i stedet for 1

Det kan du gøre med datavalidering. Data- Datavalidering. Fx Tekstlængde, men der er også andre muligheder.

Brug Data > Datavalidering > indstillinger

tillad Helt tal
mindste 0 største 9

Hvad vil du mene der er bedst at bruge? Nu du skriver der er andre muligheder.

Tekstlængde er givetvis det nemmeste. Men det rigtigste er nok at vælge brugerdefineret og så indsætte denen formel: =LÆNGDE(A1)=1

man kan også bruge makro, der tjekker når du forlader cellen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
a = Len(Target)
If a > 1 Then
Target = Left(Target, 1)
End If
End If
End Sub

her er det kolonne a den virker i

hvis der er mere end et tegn, beholder den den første

Koden skal i Arkmodulet

højreklik på arkfanen, vælg vis programkode

kabbak-> Du behøver ikek din variabel her. Den tager bage plads op. Ca 1 byte :-)

det var sørme meget
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If  = Len(Target) > 1 Then
Target = Left(Target, 1)
End If
End If
End Sub

;-))

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Len(Target) > 1 Then
Target = Left(Target, 1)
End If
End If
End Sub

Måske ikke så meget endda, men looper din makro 1.000.000 gange har du brugt 1Mb :_)

Hold da det går stærkt nu. Jeg prøver lige den du skrev kabak
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Len(Target) > 1 Then
Target = Left(Target, 1)
End If
End If
End Sub

Er tilbage om lidt :-)

kabbak->  Endnu kortere:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then If Len(Target) > 1 Then Target = Left(Target, 1)
End Sub

hvor du kan jkrons ;-))

Det er tidspunktet, der gør hjernen skarp. Og så min influenza, som har lagt mig sengen hele dagen :-)

Den vil ikke :-(

Sub test()

' test Makro
' Makro indspillet 22-03-2005 af Michal Juul
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then If Len(Target) > 1 Then Target = Left(Target, 1)


    Range("E32:AI43").Select
End Sub

Ingen Sub test(). Kun resten. Og husk at den skal ligge i arkets kodemodul.

det er i et modul, det skal være i arkmodulet

til venstre kan du se ark navnene, dobbeltklik på det ark den skal virke i,og kopier vores kode derind

Det gør en indspillet makro aldrig.

Hvad er det for et kodemodul du mener?
Har lavet en anden makro i går til noget andet, og det virkede fint

højreklik på arkfanen,i det ark koden skal virke, vælg vis programkode

sæt koden derind

Det kommer an på, hvad makreon skal bruges til. Dene skal afvikles automatisk, når du foretager dig noget i arket. Derfor skal den ligge i arkets kodemodul. Prøv, som kabbak tidligere har skrevet af høæjreklikke på arkfangen. Vælg Vis programkode. Og kopier makroen til dette ark.

Lige 2 min

Vil have noget i mod og hente Excel filen her og se på den?
http://www.duerher.dk/updir/Grundforloeb/Elforsyning/befordring_makro12.xls

Det er nede i bunden i den kalender jeg skal bruge det med 1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 5 And Target.Column <= 36 Then If Len(Target) > 1 Then Target = Left(Target, 1)
    Range("E32:AI43").Select

End Sub


Kabbaks makro tester på A- kolonnen. Dine tal starter i e-kolonnen, som altså er kcolumn 5.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("E32:AI43")) Is Nothing Then
If Len(Target) > 1 Then Target = Left(Target, 1)
End Sub

Jkrons > han skal bruge hele området, som kalenderen er i

Tællefejl :-)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("E32:AI43")) Is Nothing Then
If Len(Target) > 1 Then Target = Left(Target, 1)
End If
End Sub

jeg havde glemt et end if

Men nu tror jeg at det sengetid. :-)

Undskyld jeg skrev A :-(

behøver ikke at undskylde, men en god beskrivelse gør at man hurtigere får det rigtige.

jeg kan se du har flere ark med kalender i.

Koden skal ind i hver ark,

Det virker  kabbak :-) :-) :-) :-)
Så mangler jeg bare et svar ;-)

Men hvad men ikrons han skulle næsten også har nogle point.
Hvordan kan jeg gøre det?

Ja den skal ind i den alle 3. Så jeg regner med at jeg bare gør det på samme måde med de 2 andre ark

bed ham om at afgive et svar, når han har gjort det, marker så begge vores navne i boksen til venstre, tryk så accepter, så fordeler den selv point

giv bare point til kabbak. det var jo hans løsning.

Ok men så vil jeg forhøje de point så i begge får det jeg startet med. Hvordan kan jeg gøre det?

de point der er sat af er udmærket

oK tak. Jeg en anden makro jeg godt kunne tænke mig hjælp til.
Mon du kunne have lyst til det?

lav et nyt spørgsmål, med en bedre beskrivelse, så sr vi på det ;-)

Det lyder godt. MEN
Det bliver først i morgen. LIGE NU har jeg været oppe i 36 timer.
Så det må være på tide og komme i seng. Skal op kl. 6

Men tak for hjlæpen til jer begge. Og jeg håber da også ikrons kommer.

Hov så lige hans svar troede han var gået i seng.
Men jeg gør som han skriver.

Og nu godnat til jer begge og tak

tak for point

Så lidt. Der er flere imorgen ;-) skal vi starte med 100