Time Sheets

There’s way more to this concept, but here’s a teaser.

Sub fillMonth(dDate As Date)
Dim iRow As Integer, iColumn As Integer, sColumn As String, iDays As Integer, iWeekRow As Integer, iMonth As Integer
Dim mHours As Long, mDays As Long

Sheets(“Month”).Select

‘reset stuff
Range(“A2:G37”).ClearContents
Range(“K7”).Value = 0
Range(“K8”).Value = 0
Range(“K9”).Value = 0
iRow = ActiveCell.Row

Sheets(“Month”).Select
iMonth = Month(dDate)
iWeekRow = 2
iNoteRow = 10

mHours = 0
mDays = 0
lHours = 0

Dim lNorlab As Double, lDSHome As Double, lBank As Double

Do While Month(dDate) = iMonth
iDays = Weekday(dDate, vbSunday)
Sheets(“Month”).Select
sColumn = ConvertToLetter(iDays)
Range(sColumn & CStr(iWeekRow + 0)).Value = Format(dDate, “dddd”)
Range(sColumn & CStr(iWeekRow + 1)).Value = Format(dDate, “dd-mmm-yyyy”)

lHours = 0

Sheets(“Time”).Select
Columns(“A:A”).Select
If Not IsDate(dDate) Then dDate = Sheets(“Time”).Range(“A2”).Value

Selection.Find(What:=dDate, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
iRow = ActiveCell.Row
lHours = Range(“I” & CStr(iRow)).Value + lHours

Sheets(“Month”).Select
Range(sColumn & CStr(iWeekRow + 2)).Value = lHours

iDays = iDays + 1
If iDays = 8 Then
iDays = 1
iWeekRow = iWeekRow + 3
End If
dDate = dDate + 1
iRow = iRow + 1
Loop
Sheets(“Month”).Select

‘Set Runner
Dim mrow As Long, thisMonth As String
dDate = DateAdd(“m”, -1, dDate)
sDate = CStr(Format(dDate, “dd-mmm-yyyy”))
Sheets(“Runner”).Select

Dim aCell As Range
Range(“A3:A99”).Select
Set aCell = Range(“A3:A99”).Find(What:=CDate(sDate), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
mrow = aCell.Row
Else
mrow = 0
End If
If mrow < 3 Then
Range("A3").Select
If Range("A3").Value = "" Then
mrow = 3
Else
Selection.End(xlDown).Select
mrow = ActiveCell.Row + 1
End If
End If

Range("B" & CStr(mrow)).Value = Sheets("Month").Range("K4").Value
Range("C" & CStr(mrow)).Value = Sheets("Month").Range("L4").Value

'Update Weekly Time Sheets for current week
Sheets("Month").Select
Range("A2:G33").Select

dDate = Format(Now(), "dd-mmm-yyyy")
If Month(Range("G1").Value) Month(dDate) Then dDate = Range("G1").Value

Selection.Find(What:=dDate, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
iRow = ActiveCell.Row
dDate = DateAdd("D", 7 – Weekday(dDate), dDate)

'return to Month tab
Sheets("Month").Select

Range("A" & CStr(mrow)).Select
End Sub

Absence?

I haven’t written in a while mostly because the iphone app was my primary editor and it was excessively crashing.

Lots of new recipes but on a new stream, home schooling a preschooler. Talk about a learning curve.

Banana in your not pie

This one is a little out there, I’m sure it won’t appeal to everyone

In a small pot, add:

1/2 can sweetened condensed milk

1/2 can evaporated milk

1/4 cup raisins

2 heaping tablespoons brown sugar

2 teaspoons cinnamon

1 mashed ripe banana

2 cups cooked rice

Heat until warm stirring routinely

Serve over vanilla iced cream (or butter scotch ripple)

OMG pinwheel

Food process until salsa consistency:

1 pepper

1 onion

2 cloves garlic

Mix in mixer:

1/2 brick cream cheese

3 heaping tablespoons sour cream

Add salsa mix

Smear on 1/2 tortilla

Roll up and cut into segments

Adding bacon or sausage takes this up a bit as does scrambled eggs.

The Meatballs

3 lbs ground beef

1 lbs ground pork

In a food processor: 1 small onion, 1 yellow pepper, 1 clove garlic

2 tbsp each: dill, parsley, oregano, ground black pepper

1/3 cup fine bread crumbs

2 eggs

Hand mix and roll into palm size meat balls and place in frying pan on medium low with 1/2 cup honey garlic sauce

Fry covered 10 mins

Flip with tongs

Fry covered 10 mins

Drain

Flip again

Fry uncovered until browned

Glaze with more honey garlic

Sweet Rice Pudding

Add to 6 cup+ sauce pan:

4 cups left over rice

1 can sweetened condensed milk

1 tsp each: brown sugar, cinnamon, nutmeg, paprika

1/2 cup raisins

1 egg

Simmer stirring constantly until egg is cooked.

Chill over night

Honey Garlic Ribs

1 rack of ribs wrapped in circle (could cut into serving portions)

1/4 cup vinegar

1/4 cup water

1/4 cup soya

1/2 cup honey

5 cloves sliced garlic *allrecipies.com said 2 – we like way more.

2 tbsp brown sugar

1 tsp baking soda

1 tsp garlic powder

Medium meat setting in knock off insta pot, let keep warm until you start side dish then boil down sauce with soup setting.

Go Bread

Dissolve 1 tbsp sugar in 1/2 cup warm water

Sprinkle 2-1/4 tsp active yeast and let sit 10 min

Warm 1 cup milk, 2 tbsp butter, 1-1/2 tsp salt

Combine milk and yeast mix with 2 cups flour

Slowly add 2-1/2 more cups flour until dough forms elasticy ball

Rest 1 hour in warm environment to rise in a greased bowl covered with a dry cloth.

Roll out on to floured surface and kneed (kneed in cheese if desired)

Form into desired shape: loaves, buns etc

Allow to rest an hour covered with a dry cloth in a warm environment- should near double in size.

Bake at 400 for 25-35 min or until golden brown.

Brush with melted butter for crispy crust.

French Toast on the go

Preheat your oven to 350 and grease a 12 cup muffin tin

Chop 6 pieces of bread (can be old, can be mixed types) into bite size pieces

In a large bowl, mix bread and the following to form wet bread:

2 eggs

1/2 tsp cinnamon

3/4 cup milk

1 tbsp brown sugar

1 tbsp powdered sugar

Scoop into muffin tin and bake for 15-20 min or until golden brown.

Place in air tight container and drizzle with syrup.

Oatmeal bites

Stolen and slightly modded

Preheat oven to 350

In mixer toss:

3 ripe bananas

1/2 cup peanut butter

2 tbsp honey

1 tbsp butter

1 egg

Beat until smooth, then without mixing add:

2-1/2 cups oatmeal

1/4 tsp cinnamon

1/4 tsp salt

1 tbsp baking powder

1/2 cup raisins

1/2 cup chocolate chips

Scoop on to parchment lined cookie sheet and bake 15 min.

If bottom isn’t golden brown, let cool on pan otherwise use wire rack.