09. marts 2003 - 00:15Der er
10 kommentarer og 1 løsning
Overfør sidste tal
Hej eksperter!
Jeg har et "lille" problem. Jeg har en række med (30 celler)tal, jeg vil overføre det sidste tal til en anden celle. Nu kommer problemet, det er ikke altid at rækken er fyldt helt ud,det kan f.eks. være den slutter i række 15. Hvad gør jeg ???
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Du kan gøre det med funktionen HVIS, men i med denne funktion kan du kun sige "hvis" 7 gange, dvs. du kan f.eks. kun tjekke de syv sidste tal, men du kan jo så bare lave en der tjekker de syv sidste, en der tjekker de næste syv osv. Det felt hvor tallet skal stå skal så blot tjekke disse HVIS'er...
Kode: HVIS(30="";HVIS(29=""; Og så videre ;A29);A30)
... hvor A30 er det sidste felt!
Beskrivelse: HVIS( test ; værdi_hvis_sand ; værdi_hvis_falsk )
Sub findSidste() Worksheets("Ark1").Activate K = 1 ' kolonne For C = 1 To 30 ' antal rækker der skal gennemsøges If Worksheets("Ark1").Cells(C, K) = "" Then Worksheets("Ark1").Range("F1").Value = Cells(C - 1, K).Value Exit Sub End If Next End Sub
Jeg er rimelig ny til excel det er et lille skema hvor vi måler de fisk fange det er jo ikke altid vi fanger 30 fisk det sidste tal skal overføres til celle G33 der står ikke noget efter sidste det sidste tal i rækken cellerne går fra og til A3:A33
Sub findSidste() Worksheets("Ark1").Activate K = 1 ' kolonne For C = 3 To 33 ' antal rækker der skal gennemsøges If Worksheets("Ark1").Cells(C, K) = "" Then Worksheets("Ark1").Range("G33").Value = Cells(C - 1, K).Value Exit Sub End If Next End Sub
Hvis arket hedder noget andet retter du bare "Ark1" til arkets navn.
Kopier makroen.
Åbn dit regneark.
Tryk på Alt+F11, vælg indsæt/modul
Sær makroen ind i modulet
Luk modulet ved at klikke på krydset øverst til højre, så der du tilbage i regnearket.
Vælg funktioner makro, vælg makroen 'findSidste' og afspil
Antonchap:> Hvis du ikke kan få macro'en (som nok er smartest(?!) eller evt. min) til at fungere, så kan du bare. Så skal jeg nok give en mere udførlig beskrivelse...
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.