---
title: "Förbättring III"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/23419-förbättring-iii"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "prls"
published: "2001-07-24T09:57:00.000Z"
updated: "2001-07-24T09:57:00.000Z"
replies: 0
views: 352
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/23419-förbättring-iii"
---

# Förbättring III

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

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/23419

---

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