Macro i Excel med tastetryk

og jeg har været ovre i notepad for at se om jeg kunne slippe af med felterne - det kunne jeg ikke!

Makrooptageren i Excel skelner ikke mellem, hvordan du udfører dine handlinger. Den er sådan set ligeglad mdd, om du bruger mus eller tastatur. Den registrer alene "resultatet".

jeg skal bruge flg. tastekombination, jeg står i det felt jeg vil arb. på:

tryk F2
tryk på backspace 4 gange
tryk enter

hvordan optager jeg den?

jkrons
det kan da ikke være rigtig? Qproen jeg brugte førhen var fra 1995!
Men ok, så må vi da kunne ændre i kodelinierne.

Jeg tror faktisk ikke at du kan optage de enkelte tastetryk i en makro, men måske kan du bruge følgende.

Sub SletSidste()
ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
End Sub

hvad med en formel

=VÆRDI(FJERN.OVERFLØDIGE.BLANKE(A1))

Problemet er, at når du indspiller makroen registrerer den ikke de enkelte tastetryk, men derimod det, der kommer til at stå i cellen, når makroen afsluttes.

kabbak-> Måske har du ret, men som jeg opfatter det, er det ikke blanke der afsluttes med, men derimod nogle tomme felter.

hvad så med tekst til kolonner

jkrons
Det lader til det funker, så mangler vi bare at løbe det hele igennem.

jeg får fejl med:
Do Until ActiveCell.Value = ""
 
ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
   
Loop
End Sub

Nu kender jeg ikek strukturen i dit ark, men hvis du ikke har andet i arket, end det nævnte, kan du måske bruge denne

For Each c In ActiveSheet.UsedRange.Cells
ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
Next c

kabbak, duer ikke.
jkrons, jeg tror at vi skal have en ekstra linie på:
ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
ActiveCell.Offset(ryk en celle ned) eller noget i den stil

Kan du uddybe hvad de forskellige komandoer i din kodelinie betyder?

For hver celle i det brugte område i det aktive ark skal du
give den aktive celle en værdi, der en del af den samme værdi, startende fra begyndelsen og sluttende fire tegn før den samlede længde af værdien.

Activecell.value tager værdien af den aktive celle.
MID() finder en substring af dette fra det første tal (1) til det sidste tal.
LEN()-4 finder den samlede længde minus 4 og indsætter det som "hertil" i MID

jkrons
invalid procedurekald.
Det er
ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
der fejler når de andre linier kommer på

Min fejl, det er ved at være sent, så jeg er ikke så vågen lige nu:

For Each c In ActiveSheet.UsedRange.Cells
c.Value = Mid(c.Value, 1, (Len(c.Value) - 4))
Next c

jkrons
Tak, jeg har ikke prøvet dit sidste forslag endnu (men gør det lige om lidt). Jeg fik den til at køre (med lidt fusk) så den stopper lidt brat.
ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
ActiveCell.Offset(1, 0).Range("A1").Select
Application.Run "Mappe1!Makro2"

jeg er i mappe1 og min makro hedder makro2.

Loopet er OK, men tager lidt længere tid end For Each...Next, hvis der er mange celler, der skal køres igennem.

Tak for point.

jkrons
får stadig runtime error 5
invalid procedure call eller argument

OK. Den sidste kode jeg gav dig viker fint hos mig.

docbill-> man kan måske ikke optage det, men man kan sagtens skrive det i en makro.

Sub test()
Application.SendKeys "{F2}{BS 4}{ENTER}"
End Sub

bak-> jeg havde selv tænkt på Sendkeys, men bruger det stort set aldrig. Jeg laver mest i Access, og her er SendKeys lidt farlig, fordi Sendkeys altid virker i det aktive vindue, og hvis der tilfældigvis er et andet vindue aktivt, når proceduren kaldes, end det man havde regnet med, da man skrev koden, kan du opstå en del uforudsete ting.

Her kan det dog gosdt lade sig gøre, man skal bare huske at skifte fra modularket til regnearket inden man tester koden - opdagede jeg :-)

:-)
Jeg bruger den også sjældent, men der kan jo være situationer....

bak, ja det var det jeg efterlyste - dog kan jeg ikke få loop'en til at virke med din kode?

jkrons, nu virker det uden fejl:
Do Until ActiveCell.Value = ""
    ActiveCell.Value = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 4)
    Selection.Offset(1, 0).Select
    Loop