Avatar billede antonchap Nybegynder
09. marts 2003 - 00:15 Der 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 ???
Avatar billede ahrensberg Nybegynder
09. marts 2003 - 00:29 #1
Står der noget efter det sidste tal i rækken? F.eks. hvis der er tal fra 1-20, er resten af felterne så tomme, eller står der f.eks. 0??
Avatar billede ahrensberg Nybegynder
09. marts 2003 - 00:31 #2
Hvor går cellerne fra og til? F.eks. D1-D30?
Avatar billede ahrensberg Nybegynder
09. marts 2003 - 01:13 #3
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 )
Avatar billede ahrensberg Nybegynder
09. marts 2003 - 01:14 #4
Skriv >hvis< ikke du forstår!  ;o)
Avatar billede kabbak Professor
09. marts 2003 - 01:22 #5
En lille makro til at løse det

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
Avatar billede antonchap Nybegynder
09. marts 2003 - 08:15 #6
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
Avatar billede kabbak Professor
09. marts 2003 - 11:21 #7
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
Avatar billede ahrensberg Nybegynder
09. marts 2003 - 12:37 #8
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...
Avatar billede ahrensberg Nybegynder
09. marts 2003 - 12:37 #9
Ellers mange tak for pointene!!  :o)
Avatar billede antonchap Nybegynder
09. marts 2003 - 13:41 #10
Hurra makroen virker. Takker mange gange, men lige et sidste ? 
skal man op og trykke på makro afspil hvergang, eller kan den selv opdatere
Avatar billede kabbak Professor
09. marts 2003 - 15:48 #11
ja , men du kan lave en knap der kalder den.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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