Förbättring III

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…….

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Dennis,

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter