MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub DetailCalculations() Dim wkmc As Worksheet, wkss As Worksheet Dim rngLast As Range, rng As Range Dim lrow As Long, lastrow As Long, endrow As Long, endtbl As Range Set wkmc = Worksheets("ModelCalculations") Set wkss = Worksheets("Menu Detail Data") Set rngLast = wkmc.Range("A1").End(xlDown) lrow = rngLast.Row lastrow = lrow + 1 endtbl = lastrow + 9 endrow = wkss.Range("A9").SpecialCells(xlCellTypeLastCell).Row wkss.Range(Cells(9, 1), Cells(endrow, 20)).Clear wkmc.Range("A1", wkmc.Cells(lastrow, 20)).Copy With wkss.Range("A9") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False end with wkss.scrollarea = wkss.Range(Cells(1,1), Cells(endtbl, 20)) End Sub
|Calculating hours worked based on dates and times from Event logs||2||25|
|how to extract unique list from two columns||9||30|
|Tricky shapes formula part 2||4||19|
|Need help with formula in excel||10||39|