---
title: "Förbättring III"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/23420-förbättring-iii"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "prls"
published: "2001-07-24T09:58:00.000Z"
updated: "2001-07-25T16:23:00.000Z"
replies: 2
views: 407
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/23420-förbättring-iii"
---

# Förbättring III

## #1 — prls, 2001-07-24T09:58Z

Dennis, 
Vad tycker Du om denna **förbättring**?
Jag har tänkt att:
1)	Innan gårdagens datum fylls i skall kollas om c7 är ifyllt
2)	Om cellen är tom skall året fyllas i – jag har formaterat cellen så.
3)	Eftersom filen är tänkt att sparas har jag inte tyckt att jag behöver spara här

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\> Sub Infoga_Datum()
Dim wsOmrade As Worksheet
Dim bNastakolumn As Byte
Set wsOmrade = ActiveWorkbook.Worksheets("Vätskebalans")
bNastakolumn = Application.WorksheetFunction.CountA(Range("A7:K7")) + 3
Application.ScreenUpdating = False
If IsEmpty(wsOmrade.Range("C7")) Then
With wsOmrade
.Range("C7").Value = Date
If .Cells(7, bNastakolumn).Offset(0, -1) = Date - 1 Then Exit Sub
.Cells(7, bNastakolumn).Value = Date - 1
End With
End If
Application.ScreenUpdating = True
End Sub
Fungerar på min burk men vet ju inte om det är tur eller rätt???
Dessutom **förstår inte** jag :
Innan för with…..End with har jag ett If men ingen End If, och att **i hela ”Sub” har jag 2 stycken If men bara 1 End If???????** Men som sagt det hela funkar hemma hos mig…….

Permalänk: https://www.webforum.nu/p/23420

## #2 — @nders, 2001-07-24T10:12Z

> Innan för with…..End with har jag ett If men ingen End If, och att i hela ”Sub” har jag 2 stycken If men bara 1 End If???????

du ska inte ha end if när du på samma rad som ditt if utför det enda som skall utföras då villkoret möts.

de här två exemplen är samma sak:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>If .Cells(7, bNastakolumn).Offset(0, -1) = Date - 1 Then Exit Sub

och

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>If .Cells(7, bNastakolumn).Offset(0, -1) = Date - 1 Then 
Exit Sub
end if

Permalänk: https://www.webforum.nu/p/362606

## #3 — prls, 2001-07-25T16:23Z

Dennis,

tyvärr har jag inte fått boken än. Har beställt den från internetbokhandeln.se där var den billigast

Permalänk: https://www.webforum.nu/p/362607

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/23420-förbättring-iii