03. juli 2003 - 13:50Der er
28 kommentarer og 1 løsning
Indsæt i celler - med makro
Hej
Så er jeg på banen igen :o)
Jeg her et stort ark hvor man skal indtaste en masse tal hvor efter der sker en masse udregning i nogle andre ark
Får at spare mine kolegaer for en masse indtastning vil jeg lave det sådan at mange af tallene er indtastet i forvejen.
Nu er problemet bare at jeg har 6 forskellige modeller, så jeg har lavet en kombinationsboks hvor man kan vælge den model man skal bruge (hertil en celle der skifter mellem 1, 2, 3, 4, 5 og 6)
Jeg laver et eks. her hvor jeg bruger de ting den færdige makro skal indeholde:
--------- B1 er cellekæde der skifter mellem 1, 2, 3, osv
A1 .... hvis B1 = 1 indsæt =HVIS(B3=B4;3+3;"")
A2 .... hvis B1 = 2 farv cellen grå (kan klares med betingetformatering)
A3 .... Hvis B1 = 3 indsæt tallet 12
----------
Makroen må ikke ligge og køre helle tiden !! fordi i nogle af cellerne er det kun eks. den indsætter som kolegaen muligvis retter i (lidt dumt hvis den efter kort retter det tilbage:o)
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Prøv at sætte denne ind i dit ark, den skal i selve ark modulet
sæt selv ind imellem case værdierne.
den køres kun hvis B1 aktiveres / ændres Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 And Target.Column = 2 Then Set værdi = Target Select Case værdi Case 1
Case 2
Case 3
Case 4
Case 5
Case 6
Case Else MsgBox " værdien skal være 1 til 6" End Select End If End Sub
Med hensyn til formler kan den ikke lide at der er "" i formlen, jeg ved ikke hvorfor, men andre kan måske svare på det.
Herunder har jeg skiftet"" ud med 0, så virker det.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 2 Then Set værdi = Target Select Case værdi Case 1 Range("G55").Select ActiveCell.FormulaR1C1 = "g" Range("H59").Select ActiveCell.FormulaR1C1 = "=If(Privat_død_ratepension=0,R[-5]C[3],0)" Range("H60").Select
Case 2
Case 3
Case 4
Case 5
Case 6
Case Else MsgBox " værdien skal være 1 til 6" End Select End If End Sub
det sker ingen ting når jeg vælger den første i kobinationsboksen
---------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 50 And Target.Column = 4 Then Set værdi = Target Select Case værdi Case 1
Jo .... det var i det eks. jeg satte op ..... den færdige makro skal være i D50 som også er den celle der er knyttet til kobinationsboksen og skifter også fint mellem 1 , 2 , 3 , osv.
Er din combobox i en form, brug den fra kontrolelementer i stedet.
Når du ser på dit ark, højreklik oppe på menubjælken, sæt flueben i kontrolelementer , så kommer den frem, vælg combobox, brug musen og tryk på arket hvor du vil have den.
du skal trykke på den knap hvor der er en trekantet linial på, det er designtilstand, husk at trykke på den igen når du er føærdig.
Synes godt om
Ny brugerNybegynder
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.
