Notifikationer

Markér alle som læst Log ud

Chewie Novice

07. juli 2003 - 13:40 Der er 8 kommentarer og
1 løsning

Makro - kan den omskrives til noget smatere

Hej XL´er

Kan man ikke skriver denne makro på en lidt smarter måde

___________________________________________
Range("J17").Select
ActiveCell.FormulaR1C1 = "720000"
Range("G14").Select
ActiveCell.FormulaR1C1 = "100000"
Range("N8").Select
ActiveCell.FormulaR1C1 = "KP Rate 10 år"

Sheets("Data til Graf").Select
Range("Q9").Select
Selection.ClearContents
Range("R9").Select
Selection.ClearContents
Range("S9").Select
Selection.ClearContents
Range("T9").Select
Selection.ClearContents
Range("U9").Select
Selection.ClearContents

Sheets("Indtastning").Select
Range("H60").Select
ActiveCell.FormulaR1C1 = "=If(Privat_død_ratepension=0,R[-5]C[3],0)"
_______________________________________________

den er meget længere end dette ..... men jeg har klippet lidt i den ... så det ikke blev for indviklet :o)

cheiwe

Synes godt om

kabbak Professor

07. juli 2003 - 13:51 #1

Sheets("Data til Graf").Select
Range("Q9:U9").Select
Selection.ClearContents

Synes godt om

Chewie Novice

07. juli 2003 - 14:12 #2

Hej kabbak

Det er til den makro du harlavet til mig tidligere
___________________________________________
Private Sub ComboBox2_Change()
Set værdi = ComboBox2
Select Case værdi
Case "KMD"

Range("J17").Select
ActiveCell.FormulaR1C1 = "720000"
Range("G14").Select
ActiveCell.FormulaR1C1 = "100000"
Range("N8").Select
ActiveCell.FormulaR1C1 = "KP Rate 10 år"

Sheets("Data til Graf").Select
Range("Q9:U9").Select
Selection.ClearContents
Range("A1").Select

Sheets("Indtastning").Select
Range("H60").Select
ActiveCell.FormulaR1C1 = "=If(Privat_død_ratepension=0,R[-5]C[3],0)"

Case "CSC"

Case "Virksomhed65"

Case "Virksomhed67"

Case "Classic65"

Case "Classic67"

Case Else
MsgBox " :o)"
End Select

End Sub

________________________________________

Men fejl på "Range("Q9:U9").Select"

:/

Synes godt om

stewen Praktikant

07. juli 2003 - 14:21 #3

Får du stadig fejl?

har lige prøvet at kopiere den del af formelen - uden problemer?

Cellerne er ikke beskyttet eller lign?

Synes godt om

kabbak Professor

07. juli 2003 - 14:23 #4

læg makroen i et modul
Sub Slet()

Sheets("DatatilGraf").Select
Range("Q9:U9").Select
Selection.ClearContents
Range("A1").Select

End Sub

Private Sub ComboBox2_Change()
Set værdi = ComboBox2
Select Case værdi
Case "KMD"

Range("J17").Select
ActiveCell.FormulaR1C1 = "720000"
Range("G14").Select
ActiveCell.FormulaR1C1 = "100000"
Range("N8").Select
ActiveCell.FormulaR1C1 = "KP Rate 10 år"

call slet
Sheets("Indtastning").Select
Range("H60").Select
ActiveCell.FormulaR1C1 = "=If(Privat_død_ratepension=0,R[-5]C[3],0)"

Case "CSC"

Case "Virksomhed65"

Case "Virksomhed67"

Case "Classic65"

Case "Classic67"

Case Else
MsgBox " :o)"
End Select

End Sub

det er ikke alt man kan lave fra et arkmodul, men så laver man en makro og kalder den fra arkmodulet.

Synes godt om

kabbak Professor

07. juli 2003 - 14:26 #5

husk lige at rette arknavnet heri
Sheets("DatatilGraf").Select

til

Sheets("Data til Graf").Select

Synes godt om

Chewie Novice

07. juli 2003 - 14:28 #6

Tak kabbak ..... det virker fint

Synes godt om

Chewie Novice

07. juli 2003 - 14:29 #7

den havde jeg luret :o)

God dag

Synes godt om

kabbak Professor

07. juli 2003 - 14:30 #8

OK hvis du i de andre Case, skal operere i andre ark, så lav makroer og kald dem.

Synes godt om

Chewie Novice

07. juli 2003 - 14:31 #9

noteret :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS