Hjælp til simpel macro = 200 point ! !
Hej..Jeg har brug for lidt hurtig hjælp.. Jeg sidder og roder med en excel marcro som jeg skal bruge til en fremvisning i morgen! Håber at der er en som lige vil hjælpe?
Jeg har en markro som startes i et af 12 ark. Denne markro kommer med en input box som skal indskrive en værdi i et ark kaldet "kunde"
Her kommer mit problem:
Den celle som er markeret når markroen aktiveres skal også være den som er er aktiv når markroen er udført!
Giver det mening?
Jeg har vedlagt markro, det er ved *Register udgangs punkt* og *Tilbage til udgangspunkt* det går galt!!
HJÆLP
-----------------------------------------------------
Sub Opret_ny_kunde()
'
' Opret_ny_kunde Macro
' Macro recorded 16-12-2009 by ACST
'
' Register udgangs punkt
Dim home As String
home = ActiveCell
' start kunde registering
Sheets("Kunde").Select
'ActiveWindow.SmallScroll Down:=-6
Range("A1").Select
Selection.End(xlDown).Select
'End With
ActiveCell.Offset(1, 0).Select
' Spørg om kunde og skriv det i ledig celle
Dim kunde As String
kunde = InputBox(Prompt:="Indtast kunde navn", Title:="xxx")
ActiveCell.Value = kunde
' Soter liste
Sheets("Kunde").Select
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
' Tilbage til udgangspunkt
' Range("home").Select
.Activate.home
'home.Activate
End Sub
-----------------------------------------
