Avatar billede ps76 Forsker
17. juni 2013 - 17:33 Der er 7 kommentarer og
1 løsning

Indsætte værdi i tomme celler

Excel 2010: Jeg har et regneark som hentes fra et regnskabsystem - en månedlig balance. Kun felter, hvor der er værdier, udfyldes.
Jeg har brug for at lave nogle sumberegninger fra dette regneark ved hjælp af en makro, jeg kan bruge hver måned, men får "værdi" problemer, når den vælger felter, som er blanke.(bliver nødt til at vælge disse, da der måske næste måned er værdier dér).

Derfor har jeg brug for at indsætte 0,00 i alle blanke felter, for at de kan blive regnet med i totalerne, som min makro danner.

Har prøvet "søg og erstat", men den tager ikke alle felter med af en eller anden grund.

Hvad kan jeg så gøre for at få sat 0,00 ind i de tomme felter - eller løse problemet med "Værdi" advarslen når den henter tomme celler?

preben
Avatar billede finb Ekspert
17. juni 2013 - 18:39 #1
Er de tomme celler formatteret som tekst eller andet ?
Skriv nogle celler til højre:
=hvis(er.tekst(denUndersøgteCelle);"tekst !";"")
Avatar billede jens48 Ekspert
17. juni 2013 - 18:44 #2
Eller prøv med denne makro:

Sub FillZeros()
Dim c As Range
For Each c In Range("a1:c12")
If c = "" Then
c = 0
End If
Next c
End Sub

Husk at rette Range til.
Avatar billede ps76 Forsker
18. juni 2013 - 00:14 #3
finb:
"Er de tomme celler formatteret som tekst eller andet ?"

Aner jeg ikke - det er bare et regneark, som er impoorteret fra et regnskabsprogram som sagt, i csv format. Jeg har ikke formatteret noget som helst i det?

"Skriv nogle celler til højre:
=hvis(er.tekst(denUndersøgteCelle);"tekst !";"")"

"denundersøgtecelle" skal erstattes af i dette tilfælde c5:f318? som er hele området, det drejer sig om...?

jens: Hvordan sætter jegjava script: void(0); en sådan makro ind? er altså ikke så særlig erfaren med makroer. Kan kun se "Makroer" - kan ikke få lov at redigere - og "Indspil makro"...?
Avatar billede jens48 Ekspert
18. juni 2013 - 00:33 #4
Kopier denne makro (er rettet til):

Sub FillZeros()
Dim c As Range
For Each c In Range("C5:F318")
If c = "" Then
c = 0
End If
Next c
End Sub

Højreklik på fanebladet, vælg View Codes/Vis Koder og indsæt. Husk at gemme som Excel fil med makro (xlsm).
Avatar billede ps76 Forsker
18. juni 2013 - 00:48 #5
okay, jeg højreklikker på fanebladet (nede i bunden), vælger "Vis programkode" og indsætter makroen på den fremkomne side (hvor der er rullegardiner som står på General og Fillzeros...og hvad så? Det er et Visual basic vindue - hvad skal jeg gøre med det? Hvordan får jeg det integreret med mit excel worksheet?
Avatar billede jens48 Ekspert
18. juni 2013 - 01:16 #6
Se uploaded fil http://gupl.dk/697892/
Jeg har indsat en knap, som er linket til makroen
Avatar billede ps76 Forsker
18. juni 2013 - 10:56 #7
Jeg har imellemtiden fundet ud af, at grunden til at jeg ikke kan få lov at lægge celler sammen - og får #VÆRDI! advarsel når jeg inkluderer tomme celler er - at de ikke er tomme! Der er altså en eller anden formattering eller værdi, som først skal fjernes.

Dertil har jeg fået en makro af en venlig nordmand - som altså skal rense alle tomme celler. Den ser således ud:

Sub Rens()

Dim Cel As Range

For Each Cel In Intersect(Selection, ActiveSheet.UsedRange)

    If Cel.FormulaR1C1 <> Trim(Cel.FormulaR1C1) Then

        Cel.FormulaR1C1 = Trim(Cel.FormulaR1C1)

    End If

Next

End Sub

Og den skal så sættes ind i et modul i visual basic, så vidt jeg forstår. Virker ikke umiddelbart.
Men for at den skal virke kræver det vel, at jeg tilpasser til mit aktuelle regneark. Og hvordan er jeg i tvivl om. Så spørgsmålet er nu: Hvordan skal ovenstående makro præcis se ud, når området den skal rense er fra c3 til F318 på et ark der hedder "balance.xlsm" ?
Avatar billede ps76 Forsker
18. juni 2013 - 22:29 #8
Jeg har selv løst det - lukker.
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