Dennis,
Vad tycker Du om denna förbättring?
Jag har tänkt att:
- Innan gårdagens datum fylls i skall kollas om c7 är ifyllt
- Om cellen är tom skall året fyllas i – jag har formaterat cellen så.
- 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…….
------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter