Here's one I took this afternoon:


Busy Bee

I had one in Microsoft Excel today to systematically merge and format particular groups of columns, but yours is way better so I won't post mine.

Sub buzz()
'
' buzz Macro
' Macro recorded 9/16/2005 by Daniel J Temmesfeld
'

'
ActiveCell.FormulaR1C1 = "b"
Range("B2").Select
ActiveCell.FormulaR1C1 = "u"
Range("C3").Select
ActiveCell.FormulaR1C1 = "z"
Range("D4").Select
ActiveCell.FormulaR1C1 = "z"
Range("E5").Select
ActiveCell.FormulaR1C1 = "b"
Range("F6").Select
ActiveCell.FormulaR1C1 = "u"
Range("G7").Select
ActiveCell.FormulaR1C1 = "z"
Range("H8").Select
ActiveCell.FormulaR1C1 = "z"
Range("A9").Select
ActiveCell.FormulaR1C1 = "w"
Range("B9").Select
ActiveCell.FormulaR1C1 = "h"
Range("C9").Select
ActiveCell.FormulaR1C1 = "a"
Range("D9").Select
ActiveCell.FormulaR1C1 = "t"
Range("F9").Select
ActiveCell.FormulaR1C1 = "d"
Range("G9").Select
ActiveCell.FormulaR1C1 = "o"
Range("H9").Select
ActiveCell.FormulaR1C1 = "e"
Range("I9").Select
ActiveCell.FormulaR1C1 = "s"
Range("A11").Select
ActiveCell.FormulaR1C1 = "t"
Range("B12").Select
ActiveCell.FormulaR1C1 = "h"
Range("C13").Select
ActiveCell.FormulaR1C1 = "a"
Range("D14").Select
ActiveCell.FormulaR1C1 = "t"
Range("A15").Select
ActiveCell.FormulaR1C1 = "p"
Range("B15").Select
ActiveCell.FormulaR1C1 = "i"
Range("C15").Select
ActiveCell.FormulaR1C1 = "c"
Range("D15").Select
ActiveCell.FormulaR1C1 = "t"
Range("E15").Select
ActiveCell.FormulaR1C1 = "u"
Range("F15").Select
ActiveCell.FormulaR1C1 = "r"
Range("G15").Select
ActiveCell.FormulaR1C1 = "e"
Range("A17").Select
ActiveCell.FormulaR1C1 = "h"
Range("B17").Select
ActiveCell.FormulaR1C1 = "a"
Range("C17").Select
ActiveCell.FormulaR1C1 = "v"
Range("D17").Select
ActiveCell.FormulaR1C1 = "e"
Range("F17").Select
ActiveCell.FormulaR1C1 = "t"
Range("G17").Select
ActiveCell.FormulaR1C1 = "o"
Range("I17").Select
ActiveCell.FormulaR1C1 = "d"
Range("J17").Select
ActiveCell.FormulaR1C1 = "o"
Range("A19").Select
ActiveCell.FormulaR1C1 = "w"
Range("B19").Select
ActiveCell.FormulaR1C1 = "i"
Range("C19").Select
ActiveCell.FormulaR1C1 = "t"
Range("D19").Select
ActiveCell.FormulaR1C1 = "h"
Range("F19").Select
ActiveCell.FormulaR1C1 = "m"
Range("G19").Select
ActiveCell.FormulaR1C1 = "a"
Range("H19").Select
ActiveCell.FormulaR1C1 = "c"
Range("I19").Select
ActiveCell.FormulaR1C1 = "r"
Range("J19").Select
ActiveCell.FormulaR1C1 = "o"
Range("K19").Select
ActiveCell.FormulaR1C1 = "s"
Range("L19").Select
ActiveCell.FormulaR1C1 = "?"
Range("A21").Select
ActiveCell.FormulaR1C1 = "ugh."
Range("A22").Select
End Sub

oh, I really meant that this one is my favorite... is was a kick-ass one I did for grad school... it did some cool analysis of computer lab support desk hours and demand requirements on staffing issues...

Sub Initialize_DecVars()
'
' Initialize_DecVars Macro
' Macro recorded 2/9/2003 by Daniel J Temmesfeld
' Keyboard Shortcut: Ctrl+i
'
' Initialize the Macro and setting the decision variables to 0

Sheets("Model").Select
Range("B5").Select
ActiveCell.Formula = "=0"
Range("C5").Select
ActiveCell.Formula = "=0"
Range("D5").Select
ActiveCell.Formula = "=0"
Range("E5").Select
ActiveCell.Formula = "=0"
Range("F5").Select
ActiveCell.Formula = "=0"
Range("G5").Select
ActiveCell.Formula = "=0"
Range("H5").Select
ActiveCell.Formula = "=0"
Range("I5").Select
ActiveCell.Formula = "=0"
Range("J5").Select
ActiveCell.Formula = "=0"
Range("K5").Select
ActiveCell.Formula = "=0"
Range("L5").Select
ActiveCell.Formula = "=0"
Range("M5").Select
ActiveCell.Formula = "=0"
Range("N5").Select
ActiveCell.Formula = "=0"
Range("O5").Select
ActiveCell.Formula = "=0"
Range("P5").Select
ActiveCell.Formula = "=0"
Range("Q5").Select
ActiveCell.Formula = "=0"
Range("R5").Select
ActiveCell.Formula = "=0"
Range("S5").Select
ActiveCell.Formula = "=0"
Range("T5").Select
ActiveCell.Formula = "=0"
Range("U5").Select
ActiveCell.Formula = "=0"
Range("V5").Select
ActiveCell.Formula = "=0"
Range("W5").Select
ActiveCell.Formula = "=0"
Range("X5").Select
ActiveCell.Formula = "=0"
Range("Y5").Select
ActiveCell.Formula = "=0"
Range("Z5").Select
ActiveCell.Formula = "=0"
Range("AA5").Select
ActiveCell.Formula = "=0"
Range("AB5").Select
ActiveCell.Formula = "=0"
Range("AC5").Select
ActiveCell.Formula = "=0"
Range("AD5").Select
ActiveCell.Formula = "=0"
Range("AE5").Select
ActiveCell.Formula = "=0"
Range("AF5").Select
ActiveCell.Formula = "=0"
Range("AG5").Select
ActiveCell.Formula = "=0"
Range("AH5").Select
ActiveCell.Formula = "=0"
Range("AI5").Select
ActiveCell.Formula = "=0"
Range("AJ5").Select
ActiveCell.Formula = "=0"

' Sets the DSS Staffing Solution back to zero

Sheets("DSS").Select
Range("I9").Select
ActiveCell.Formula = "=0"
Range("I10").Select
ActiveCell.Formula = "=0"
Range("I11").Select
ActiveCell.Formula = "=0"
Range("I12").Select
ActiveCell.Formula = "=0"
Range("I13").Select
ActiveCell.Formula = "=0"
Range("I14").Select
ActiveCell.Formula = "=0"
Range("I15").Select
ActiveCell.Formula = "=0"
Range("I16").Select
ActiveCell.Formula = "=0"
Range("I17").Select
ActiveCell.Formula = "=0"
Range("I18").Select
ActiveCell.Formula = "=0"
Range("I19").Select
ActiveCell.Formula = "=0"
Range("I20").Select
ActiveCell.Formula = "=0"
Range("I21").Select
ActiveCell.Formula = "=0"
Range("I22").Select
ActiveCell.Formula = "=0"
Range("L9").Select
ActiveCell.Formula = "=0"
Range("L10").Select
ActiveCell.Formula = "=0"
Range("L11").Select
ActiveCell.Formula = "=0"
Range("L12").Select
ActiveCell.Formula = "=0"
Range("L13").Select
ActiveCell.Formula = "=0"
Range("L14").Select
ActiveCell.Formula = "=0"
Range("L15").Select
ActiveCell.Formula = "=0"
Range("L16").Select
ActiveCell.Formula = "=0"
Range("L17").Select
ActiveCell.Formula = "=0"
Range("L18").Select
ActiveCell.Formula = "=0"
Range("L19").Select
ActiveCell.Formula = "=0"
Range("L20").Select
ActiveCell.Formula = "=0"
Range("L21").Select
ActiveCell.Formula = "=0"
Range("J26").Select
ActiveCell.Formula = "=0"
Range("J27").Select
ActiveCell.Formula = "=0"
Range("J28").Select
ActiveCell.Formula = "=0"
Range("M26").Select
ActiveCell.Formula = "=0"
Range("M27").Select
ActiveCell.Formula = "=0"
Range("J30").Select
ActiveCell.Formula = "=0"

End Sub
Sub Target_Ratios()
'
' Target_Ratios Macro
' Macro recorded 2/9/2003 by Daniel J Temmesfeld
' Keyboard Shortcut: Ctrl+r
'
' Setting the On-Average and Chaotic Target Ratios

Dim OATR, CTR As Integer

DialogSheets("DialogRatio").Show

OATR = ActiveWorkbook.DialogSheets("DialogRatio").EditBoxes("Average").Text
CTR = ActiveWorkbook.DialogSheets("DialogRatio").EditBoxes("Maximum").Text
Sheets("Data").Select
Range("F114").Select
ActiveCell.Formula = OATR
Range("E116").Select
ActiveCell.Formula = CTR
Sheets("DSS").Select
End Sub
Sub Average_Demand()
'
' Average_Demand Macro
' Macro recorded 2/9/2003 by Daniel J Temmesfeld
' Keyboard Shortcut: Ctrl+a
'
' Average Demand of Customer in every shifts for the On-Average Target Ratio

Dim D89A, D910A, D1011A, D1112P, D121P, D12P, D23P, D34P As Integer
Dim D45P, D56P, D67P, D78P, D89P, D910P, D1011P, D1112A As Integer


DialogSheets("DialogCustomers").Show

D89A = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("89").Text
D910A = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("910").Text
D1011A = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("1011").Text
D1112P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("1112").Text
D121P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("121").Text
D12P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("21").Text
D23P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("23").Text
D34P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("43").Text
D45P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("45").Text
D56P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("56").Text
D67P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("67").Text
D78P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("78").Text
D89P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("89p").Text
D910P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("910p").Text
D1011P = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("1011p").Text
D1112A = ActiveWorkbook.DialogSheets("DialogCustomers").EditBoxes("1112p").Text
Sheets("Data").Select
Range("A111").Select
ActiveCell.Formula = D89A
Range("B111").Select
ActiveCell.Formula = D910A
Range("C111").Select
ActiveCell.Formula = D1011A
Range("D111").Select
ActiveCell.Formula = D1112P
Range("E111").Select
ActiveCell.Formula = D121P
Range("F111").Select
ActiveCell.Formula = D12P
Range("G111").Select
ActiveCell.Formula = D23P
Range("H111").Select
ActiveCell.Formula = D34P
Range("I111").Select
ActiveCell.Formula = D45P
Range("J111").Select
ActiveCell.Formula = D56P
Range("K111").Select
ActiveCell.Formula = D67P
Range("L111").Select
ActiveCell.Formula = D78P
Range("M111").Select
ActiveCell.Formula = D89P
Range("N111").Select
ActiveCell.Formula = D910P
Range("O111").Select
ActiveCell.Formula = D1011P
Range("P111").Select
ActiveCell.Formula = D1112A
Sheets("DSS").Select
End Sub
Sub Percentile_Demand()
'
' Percentile_Demand Macro
' Macro recorded 2/9/2003 by Daniel J Temmesfeld
' Keyboard Shortcut: Ctrl+p
'
' 95% Percentile Demand of Customer in every shifts for the Chaotic Target Ratio

Dim DP89A, DP910A, DP1011A, DP1112P, DP121P, DP12P, DP23P, DP34P As Integer
Dim DP45P, DP56P, DP67P, DP78P, DP89P, DP910P, DP1011P, DP1112A As Integer

DialogSheets("DialogPercentile").Show

DP89A = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D89").Text
DP910A = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D910").Text
DP1011A = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D1011").Text
DP1112P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D1112").Text
DP121P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D121").Text
DP12P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D12").Text
DP23P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D23").Text
DP34P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D34").Text
DP45P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D45").Text
DP56P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D56").Text
DP67P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D67").Text
DP78P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D78").Text
DP89P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D89p").Text
DP910P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D910p").Text
DP1011P = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D1011p").Text
DP1112A = ActiveWorkbook.DialogSheets("DialogPercentile").EditBoxes("D1112p").Text
Sheets("Data").Select
Range("A113").Select
ActiveCell.Formula = DP89A
Range("B113").Select
ActiveCell.Formula = DP910A
Range("C113").Select
ActiveCell.Formula = DP1011A
Range("D113").Select
ActiveCell.Formula = DP1112P
Range("E113").Select
ActiveCell.Formula = DP121P
Range("F113").Select
ActiveCell.Formula = DP12P
Range("G113").Select
ActiveCell.Formula = DP23P
Range("H113").Select
ActiveCell.Formula = DP34P
Range("I113").Select
ActiveCell.Formula = DP45P
Range("J113").Select
ActiveCell.Formula = DP56P
Range("K113").Select
ActiveCell.Formula = DP67P
Range("L113").Select
ActiveCell.Formula = DP78P
Range("M113").Select
ActiveCell.Formula = DP89P
Range("N113").Select
ActiveCell.Formula = DP910P
Range("O113").Select
ActiveCell.Formula = DP1011P
Range("P113").Select
ActiveCell.Formula = DP1112A
Sheets("DSS").Select
End Sub
Sub Helpdesk_Scheduling()
'
' Helpdesk_Scheduling Macro
' Macro recorded 2/9/2003 by Daniel J Temmesfeld
'
' Keyboard Shortcut: Ctrl+s
'
' Solve the Helpdesk Schedule for the Full and Part-Time Staff

Dim P811, P912, P101, P112, P123, P14, P25, P36, P47, P58, P69, P710, P811p, P912p As Byte
Sheets("Model").Select
SolverSolve Userfinish = False
Sheets("DSS").Select
P811 = Sheets("Model").Range("B5").Value
P912 = Sheets("Model").Range("C5").Value
P101 = Sheets("Model").Range("D5").Value
P112 = Sheets("Model").Range("E5").Value
P123 = Sheets("Model").Range("F5").Value
P14 = Sheets("Model").Range("G5").Value
P25 = Sheets("Model").Range("H5").Value
P36 = Sheets("Model").Range("I5").Value
P47 = Sheets("Model").Range("J5").Value
P58 = Sheets("Model").Range("K5").Value
P69 = Sheets("Model").Range("L5").Value
P710 = Sheets("Model").Range("M5").Value
P811p = Sheets("Model").Range("N5").Value
P912p = Sheets("Model").Range("O5").Value
P812 = Sheets("Model").Range("P5").Value
P91 = Sheets("Model").Range("Q5").Value
P102 = Sheets("Model").Range("R5").Value
P113 = Sheets("Model").Range("S5").Value
P124 = Sheets("Model").Range("T5").Value
P15 = Sheets("Model").Range("U5").Value
P26 = Sheets("Model").Range("V5").Value
P37 = Sheets("Model").Range("W5").Value
P48 = Sheets("Model").Range("X5").Value
P59 = Sheets("Model").Range("Y5").Value
P610 = Sheets("Model").Range("Z5").Value
P711 = Sheets("Model").Range("AA5").Value
P812p = Sheets("Model").Range("AB5").Value
FT8 = Sheets("Model").Range("AC5").Value
FT8AB = Sheets("Model").Range("AD5").Value
OT8 = Sheets("Model").Range("AE5").Value
FT10 = Sheets("Model").Range("AF5").Value
FT10AB = Sheets("Model").Range("AG5").Value
OT10 = Sheets("Model").Range("AH5").Value
FT4 = Sheets("Model").Range("AI5").Value
FT4AB = Sheets("Model").Range("AJ5").Value
TC = Sheets("Model").Range("AK7").Value
OATR = Sheets("Data").Range("F114").Value
CTR = Sheets("Data").Range("E116").Value
Sheets("DSS").Select
Range("J4").Select
ActiveCell.Formula = OATR
Range("J5").Select
ActiveCell.Formula = CTR
Range("I9").Select
ActiveCell.Formula = P811
Range("I10").Select
ActiveCell.Formula = P912
Range("I11").Select
ActiveCell.Formula = P101
Range("I12").Select
ActiveCell.Formula = P112
Range("I13").Select
ActiveCell.Formula = P123
Range("I14").Select
ActiveCell.Formula = P14
Range("I15").Select
ActiveCell.Formula = P25
Range("I16").Select
ActiveCell.Formula = P36
Range("I17").Select
ActiveCell.Formula = P47
Range("I18").Select
ActiveCell.Formula = P58
Range("I19").Select
ActiveCell.Formula = P69
Range("I20").Select
ActiveCell.Formula = P710
Range("I21").Select
ActiveCell.Formula = P811p
Range("I22").Select
ActiveCell.Formula = P912p
Range("L9").Select
ActiveCell.Formula = P812
Range("L10").Select
ActiveCell.Formula = P91
Range("L11").Select
ActiveCell.Formula = P102
Range("L12").Select
ActiveCell.Formula = P113
Range("L13").Select
ActiveCell.Formula = P124
Range("L14").Select
ActiveCell.Formula = P15
Range("L15").Select
ActiveCell.Formula = P26
Range("L16").Select
ActiveCell.Formula = P37
Range("L17").Select
ActiveCell.Formula = P48
Range("L18").Select
ActiveCell.Formula = P59
Range("L19").Select
ActiveCell.Formula = P610
Range("L20").Select
ActiveCell.Formula = P711
Range("L21").Select
ActiveCell.Formula = P812p
Range("J26").Select
ActiveCell.Formula = FT8
Range("J27").Select
ActiveCell.Formula = FT10
Range("J28").Select
ActiveCell.Formula = FT4
Range("M26").Select
ActiveCell.Formula = OT8
Range("M27").Select
ActiveCell.Formula = OT10
Range("J30").Select
ActiveCell.Formula = TC
End Sub


Glad I don't have to do that again!
~fff

Cher: Great shot!

: )

Dan....that is beautiful!!!

just noticed this gal in my dining room window. cher, love the bee. great colors.

the girl just scored some breakfast. maybe i can catch her shaving those legs afterwhile...

Cool spidey shots, Rogers!

: )

Cher and Roger, your pictures are lovely.



I totally thought that was the kind of macro referenced in the thread title. I was, like, wtf?

LMAO@PMP! Dude, you are such a riot.

Thanks for the kind words. The spider shots are wonderful! When I was a kid, we had evergreen shrubs surrounding the house and those spiders loved building webs between the shrubs. I remember how huge they were, and we had few insect problems.

Cher

Wonderful shot Cher.
Yeah, I was thinking the same thing about macros. Perhaps, to avoid such confusion, I think the Drew should give Cher a special section of the Orchard for her photography.

(want to make sure this comes out right - this is not a jab in any way. I quite enjoy Cher's photography actually. Just wanted to make sure I clarified.)

zayne's rat ring

yeah, we have more than our fair share of photographers around here. i'm sure a photo forum would be as appreciated as a sports forum.

i think my spider is camera shy. she spun another web last night, centered about a foot higher than yesterday's, which was perfectly placed at eye-level, and has positioned herself on the other side of the web. thanks for the kind words, everyone.

Jiminy...up close.

nice one, trudes. you can't beat insects when it comes to macro shots.

VERY nice Trudes.

Don't beat 'em, join 'em!

Ok, so I apparently don't get outside as much as you folks...



but I did purchase a spiffy new digital camera today!
John

What'd ja get, what'd ja get?

How many MP? Zoom?

Cher

umm.... ok.....

*grabs box..... reads*

it's a Kodak.... C340.... 5.0 MP; 3X optical

*is pleased with himself*

How big was that spider? Hand? Thumb? Little finger?
Ghostwriter...I'm a sucker for any pictures that look like they're from the inside of a studio.

Well...here's some of my pics...I don't think I used a macro...is that a lens type? It looks sort of like these.







Do any of you know how to write macros to keep you from spending too much money on computer-related accessories?

well, roger was buggin' me about postin' this picture, so here it is, for all you to enjoy.



*edited to say this was done strictly with sunlight. man i love morning glories in the sun ...

oooooo-ahhhhh.



Very cool, Jane.

jane, that is beautiful. i would expect my poscard of it is in the mail already?

<--- has never gotten a jane postcard.

janecards rawk.

that morningglory has been my desktop wallpaper for a week now. the detail on the full size pic is amazing.

Great macro shots everybody.
Here some more from the insect and arachnid world:
Praying Mantis:

Click to view attachment

Spider top view:

Click to view attachment

Spider belly view:

Click to view attachment

The spider has inhabited my patio all summer. The Praying Mantis is an interloper.

What SHE said!

My Monarch caterpillar is now in a chrysalis:

Very nice, Jeanne. Here's hoping for a photographic delivery from larva, to pupa, to adult. How cool!

Cher

Jeanne,
Those are amazing shots and how lucky for you to witness this phenomenon....and record it. I'll be watching here for the events to come.

Wow! Cool shot!

I'm beginning to wonder if he's still alive in there. According to what I've read, they're normally in the chrysalis from 10-14 days. This one's been in 18+ days, although it has turned darker in the last couple of days, which usually means it will emerge soon. (With my luck, it came out today while I'm at work & missed it.) But this is what it looks like now:

I think it's fine... looks like you can see the wings. I don't know much about 'em, but it looks amazing to me...

And guess who was waiting for me when I got home:

Jeanne,
That is absolutely beautiful and amazing.
Applause, applause.
You must be so proud of your photographic accomplishment.

Wow! Jeanne, that is amazing. I can't believe you got a picture of him after he came out. I'm totally in awe.

Thanks for the compliments. I was so thrilled that he waited for me. Now I hope he'll get through the night, wherever he's flown off to. Temperatures are supposed to be down in the 50's around here tonight.

Jeanne -

How absolutely awesome that you have a photographic 'journal' of the monarch life cycle. Thanks SO MUCH for sharing it here with us. Bravo!!!

Cher

jeanne, that is too cool. you should post them all together in sequence. or a fade in/out slide progression would be amazing.

Wow, Jeanne, that's simply amazingly beautiful. I am teary-eyed at the moment.

: )

For real!

jeanne, i just now saw this. that is one of the coolest things i've ever seen. thanks for capturing it.

me too, me too.

my goodness, jeanne, those pictures are *amazing*!

you should post those in the *what is beautiful* thread as well...i think my favorite is the one of the butterfly almost ready to emerge...

Welp, again, they don't let me outside much, so this is another studio macro.



Enjoy... oh, and Jeanne, those are amazing... very cool that you got the last few photos...