Macros!!!

Options
jester13
jester13 Posts: 408 Member
in Chit-Chat
What are your macros today?

Replies

  • usmcmp
    usmcmp Posts: 21,220 Member
    Options
    Probably about 150 grams of protein and we'll see where carbs/fat end up when I am done with my 2000 calories.
  • jester13
    jester13 Posts: 408 Member
    Options
    200p/255c/45f
  • RoxieDawn
    RoxieDawn Posts: 15,488 Member
    Options
    After exercise 182 protein.. will not make that today I am afraid.. I will get in about 130.
  • MercenaryNoetic26
    MercenaryNoetic26 Posts: 2,747 Member
    Options
    My macros are pint sized like me.

  • ericduf300
    ericduf300 Posts: 1 Member
    Options
    My macro is 339g carbs,129g fat and 339g protein 3871 calories Monday to Friday, weekend is 233g carbs,103g fat and 310g protein 3100 calories
  • ncboiler89
    ncboiler89 Posts: 2,408 Member
    Options
    ' Sub procedure to search cells A1-A100 of the current active
    ' sheet, and find the cell containing the supplied string
    Sub Find_String(sFindText As String)
    Dim i As Integer ' Integer used in 'For' loop
    Dim iRowNumber As Integer ' Integer to store result in
    iRowNumber = 0
    ' Loop through cells A1-A100 until 'sFindText' is found
    For i = 1 To 100
    If Cells(i, 1).Value = sFindText Then
    ' A match has been found to the supplied string
    ' Store the current row number and exit the 'For' Loop
    iRowNumber = i
    Exit For
    End If
    Next i
    ' Pop up a message box to let the user know if the text
    ' string has been found, and if so, which row it appears on
    If iRowNumber = 0 Then
    MsgBox "String " & sFindText & " not found"
    Else
    MsgBox "String " & sFindText & " found in cell A" & iRowNumber
    End If
    End Sub

Categories