VB Excel - Attempting to Call in VB - Not working

P

parkerbelt

Active Member
Joined
May 23, 2014
Messages
377
This is my first time posting to a forum, so please forgive.

I received the error message "Compile Error - Procedure too large"
I'm trying to cut some of my code and put it into another sub or function or somewhere, so my program will continue to run without the error.

When I run the program now, it runs just fine, no error, it just doesn't bring back what I'm asking for in the new sub. I tried calling it a function and that didn't work either.
Why won't it bring back the data that I'm looking for in my Vlookups and what can I do to fix it?

Here's my Code:
Other code
Other code
Other code

Call Vlookups

Other code
Other code
Other code


My new subroutine starts here:

Sub Vlookups()


' Vlookup for Total Units Sold(POS Qty)


On Error Resume Next
ActiveSheet.Cells(7, emptyColumn).Value = WorksheetFunction.VLookup(Range("A7"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(8, emptyColumn).Value = WorksheetFunction.VLookup(Range("A8"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(9, emptyColumn).Value = WorksheetFunction.VLookup(Range("A9"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(10, emptyColumn).Value = WorksheetFunction.VLookup(Range("A10"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(11, emptyColumn).Value = WorksheetFunction.VLookup(Range("A11"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(12, emptyColumn).Value = WorksheetFunction.VLookup(Range("A12"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(13, emptyColumn).Value = WorksheetFunction.VLookup(Range("A13"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(14, emptyColumn).Value = WorksheetFunction.VLookup(Range("A14"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(15, emptyColumn).Value = WorksheetFunction.VLookup(Range("A15"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(16, emptyColumn).Value = WorksheetFunction.VLookup(Range("A16"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(17, emptyColumn).Value = WorksheetFunction.VLookup(Range("A17"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(18, emptyColumn).Value = WorksheetFunction.VLookup(Range("A18"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(19, emptyColumn).Value = WorksheetFunction.VLookup(Range("A19"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(20, emptyColumn).Value = WorksheetFunction.VLookup(Range("A20"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(21, emptyColumn).Value = WorksheetFunction.VLookup(Range("A21"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(22, emptyColumn).Value = WorksheetFunction.VLookup(Range("A22"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(23, emptyColumn).Value = WorksheetFunction.VLookup(Range("A23"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(24, emptyColumn).Value = WorksheetFunction.VLookup(Range("A24"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(25, emptyColumn).Value = WorksheetFunction.VLookup(Range("A25"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(26, emptyColumn).Value = WorksheetFunction.VLookup(Range("A26"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(27, emptyColumn).Value = WorksheetFunction.VLookup(Range("A27"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(28, emptyColumn).Value = WorksheetFunction.VLookup(Range("A28"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(29, emptyColumn).Value = WorksheetFunction.VLookup(Range("A29"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(30, emptyColumn).Value = WorksheetFunction.VLookup(Range("A30"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(31, emptyColumn).Value = WorksheetFunction.VLookup(Range("A31"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(32, emptyColumn).Value = WorksheetFunction.VLookup(Range("A32"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(33, emptyColumn).Value = WorksheetFunction.VLookup(Range("A33"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(34, emptyColumn).Value = WorksheetFunction.VLookup(Range("A34"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(35, emptyColumn).Value = WorksheetFunction.VLookup(Range("A35"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(36, emptyColumn).Value = WorksheetFunction.VLookup(Range("A36"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(37, emptyColumn).Value = WorksheetFunction.VLookup(Range("A37"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(38, emptyColumn).Value = WorksheetFunction.VLookup(Range("A38"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(39, emptyColumn).Value = WorksheetFunction.VLookup(Range("A39"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(40, emptyColumn).Value = WorksheetFunction.VLookup(Range("A40"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(41, emptyColumn).Value = WorksheetFunction.VLookup(Range("A41"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(42, emptyColumn).Value = WorksheetFunction.VLookup(Range("A42"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(43, emptyColumn).Value = WorksheetFunction.VLookup(Range("A43"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(44, emptyColumn).Value = WorksheetFunction.VLookup(Range("A44"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(45, emptyColumn).Value = WorksheetFunction.VLookup(Range("A45"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(46, emptyColumn).Value = WorksheetFunction.VLookup(Range("A46"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(47, emptyColumn).Value = WorksheetFunction.VLookup(Range("A47"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(48, emptyColumn).Value = WorksheetFunction.VLookup(Range("A48"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(49, emptyColumn).Value = WorksheetFunction.VLookup(Range("A49"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(50, emptyColumn).Value = WorksheetFunction.VLookup(Range("A50"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(51, emptyColumn).Value = WorksheetFunction.VLookup(Range("A51"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(52, emptyColumn).Value = WorksheetFunction.VLookup(Range("A52"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(53, emptyColumn).Value = WorksheetFunction.VLookup(Range("A53"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(54, emptyColumn).Value = WorksheetFunction.VLookup(Range("A54"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(55, emptyColumn).Value = WorksheetFunction.VLookup(Range("A55"), Sheets("Dump").Range("A2:H64"), 3, False)



' Vlookup for Total Sell Dollars (POS Sales)



ActiveSheet.Cells(64, emptyColumn).Value = WorksheetFunction.VLookup(Range("A64"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(65, emptyColumn).Value = WorksheetFunction.VLookup(Range("A65"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(66, emptyColumn).Value = WorksheetFunction.VLookup(Range("A66"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(67, emptyColumn).Value = WorksheetFunction.VLookup(Range("A67"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(68, emptyColumn).Value = WorksheetFunction.VLookup(Range("A68"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(69, emptyColumn).Value = WorksheetFunction.VLookup(Range("A69"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(70, emptyColumn).Value = WorksheetFunction.VLookup(Range("A70"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(71, emptyColumn).Value = WorksheetFunction.VLookup(Range("A71"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(72, emptyColumn).Value = WorksheetFunction.VLookup(Range("A72"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(73, emptyColumn).Value = WorksheetFunction.VLookup(Range("A73"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(74, emptyColumn).Value = WorksheetFunction.VLookup(Range("A74"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(75, emptyColumn).Value = WorksheetFunction.VLookup(Range("A75"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(76, emptyColumn).Value = WorksheetFunction.VLookup(Range("A76"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(77, emptyColumn).Value = WorksheetFunction.VLookup(Range("A77"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(78, emptyColumn).Value = WorksheetFunction.VLookup(Range("A78"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(79, emptyColumn).Value = WorksheetFunction.VLookup(Range("A79"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(80, emptyColumn).Value = WorksheetFunction.VLookup(Range("A80"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(81, emptyColumn).Value = WorksheetFunction.VLookup(Range("A81"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(82, emptyColumn).Value = WorksheetFunction.VLookup(Range("A82"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(83, emptyColumn).Value = WorksheetFunction.VLookup(Range("A83"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(84, emptyColumn).Value = WorksheetFunction.VLookup(Range("A84"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(85, emptyColumn).Value = WorksheetFunction.VLookup(Range("A85"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(86, emptyColumn).Value = WorksheetFunction.VLookup(Range("A86"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(87, emptyColumn).Value = WorksheetFunction.VLookup(Range("A87"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(88, emptyColumn).Value = WorksheetFunction.VLookup(Range("A88"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(89, emptyColumn).Value = WorksheetFunction.VLookup(Range("A89"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(90, emptyColumn).Value = WorksheetFunction.VLookup(Range("A90"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(91, emptyColumn).Value = WorksheetFunction.VLookup(Range("A91"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(92, emptyColumn).Value = WorksheetFunction.VLookup(Range("A92"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(93, emptyColumn).Value = WorksheetFunction.VLookup(Range("A93"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(94, emptyColumn).Value = WorksheetFunction.VLookup(Range("A94"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(95, emptyColumn).Value = WorksheetFunction.VLookup(Range("A95"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(96, emptyColumn).Value = WorksheetFunction.VLookup(Range("A96"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(97, emptyColumn).Value = WorksheetFunction.VLookup(Range("A97"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(98, emptyColumn).Value = WorksheetFunction.VLookup(Range("A98"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(99, emptyColumn).Value = WorksheetFunction.VLookup(Range("A99"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(100, emptyColumn).Value = WorksheetFunction.VLookup(Range("A100"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(101, emptyColumn).Value = WorksheetFunction.VLookup(Range("A101"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(102, emptyColumn).Value = WorksheetFunction.VLookup(Range("A102"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(103, emptyColumn).Value = WorksheetFunction.VLookup(Range("A103"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(104, emptyColumn).Value = WorksheetFunction.VLookup(Range("A104"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(105, emptyColumn).Value = WorksheetFunction.VLookup(Range("A105"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(106, emptyColumn).Value = WorksheetFunction.VLookup(Range("A106"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(107, emptyColumn).Value = WorksheetFunction.VLookup(Range("A107"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(108, emptyColumn).Value = WorksheetFunction.VLookup(Range("A108"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(109, emptyColumn).Value = WorksheetFunction.VLookup(Range("A109"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(110, emptyColumn).Value = WorksheetFunction.VLookup(Range("A110"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(111, emptyColumn).Value = WorksheetFunction.VLookup(Range("A111"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(112, emptyColumn).Value = WorksheetFunction.VLookup(Range("A112"), Sheets("Dump").Range("A2:H64"), 4, False)




' Vlookup for Average Unit Sales Price (Sales Sell)(Retail Price)


ActiveSheet.Cells(123, emptyColumn).Value = WorksheetFunction.VLookup(Range("A123"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(124, emptyColumn).Value = WorksheetFunction.VLookup(Range("A124"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(125, emptyColumn).Value = WorksheetFunction.VLookup(Range("A125"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(126, emptyColumn).Value = WorksheetFunction.VLookup(Range("A126"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(127, emptyColumn).Value = WorksheetFunction.VLookup(Range("A127"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(128, emptyColumn).Value = WorksheetFunction.VLookup(Range("A128"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(129, emptyColumn).Value = WorksheetFunction.VLookup(Range("A129"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(130, emptyColumn).Value = WorksheetFunction.VLookup(Range("A130"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(131, emptyColumn).Value = WorksheetFunction.VLookup(Range("A131"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(132, emptyColumn).Value = WorksheetFunction.VLookup(Range("A132"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(133, emptyColumn).Value = WorksheetFunction.VLookup(Range("A133"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(134, emptyColumn).Value = WorksheetFunction.VLookup(Range("A134"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(135, emptyColumn).Value = WorksheetFunction.VLookup(Range("A135"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(136, emptyColumn).Value = WorksheetFunction.VLookup(Range("A136"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(137, emptyColumn).Value = WorksheetFunction.VLookup(Range("A137"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(138, emptyColumn).Value = WorksheetFunction.VLookup(Range("A138"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(139, emptyColumn).Value = WorksheetFunction.VLookup(Range("A139"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(140, emptyColumn).Value = WorksheetFunction.VLookup(Range("A140"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(141, emptyColumn).Value = WorksheetFunction.VLookup(Range("A141"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(142, emptyColumn).Value = WorksheetFunction.VLookup(Range("A142"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(143, emptyColumn).Value = WorksheetFunction.VLookup(Range("A143"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(144, emptyColumn).Value = WorksheetFunction.VLookup(Range("A144"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(145, emptyColumn).Value = WorksheetFunction.VLookup(Range("A145"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(146, emptyColumn).Value = WorksheetFunction.VLookup(Range("A146"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(147, emptyColumn).Value = WorksheetFunction.VLookup(Range("A147"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(148, emptyColumn).Value = WorksheetFunction.VLookup(Range("A148"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(149, emptyColumn).Value = WorksheetFunction.VLookup(Range("A149"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(150, emptyColumn).Value = WorksheetFunction.VLookup(Range("A150"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(151, emptyColumn).Value = WorksheetFunction.VLookup(Range("A151"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(152, emptyColumn).Value = WorksheetFunction.VLookup(Range("A152"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(153, emptyColumn).Value = WorksheetFunction.VLookup(Range("A153"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(154, emptyColumn).Value = WorksheetFunction.VLookup(Range("A154"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(155, emptyColumn).Value = WorksheetFunction.VLookup(Range("A155"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(156, emptyColumn).Value = WorksheetFunction.VLookup(Range("A156"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(157, emptyColumn).Value = WorksheetFunction.VLookup(Range("A157"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(158, emptyColumn).Value = WorksheetFunction.VLookup(Range("A158"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(159, emptyColumn).Value = WorksheetFunction.VLookup(Range("A159"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(160, emptyColumn).Value = WorksheetFunction.VLookup(Range("A160"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(161, emptyColumn).Value = WorksheetFunction.VLookup(Range("A161"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(162, emptyColumn).Value = WorksheetFunction.VLookup(Range("A162"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(163, emptyColumn).Value = WorksheetFunction.VLookup(Range("A163"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(164, emptyColumn).Value = WorksheetFunction.VLookup(Range("A164"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(165, emptyColumn).Value = WorksheetFunction.VLookup(Range("A165"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(166, emptyColumn).Value = WorksheetFunction.VLookup(Range("A166"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(167, emptyColumn).Value = WorksheetFunction.VLookup(Range("A167"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(168, emptyColumn).Value = WorksheetFunction.VLookup(Range("A168"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(169, emptyColumn).Value = WorksheetFunction.VLookup(Range("A169"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(170, emptyColumn).Value = WorksheetFunction.VLookup(Range("A170"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(171, emptyColumn).Value = WorksheetFunction.VLookup(Range("A171"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(172, emptyColumn).Value = WorksheetFunction.VLookup(Range("A172"), Sheets("Dump").Range("A2:H64"), 5, False)


' Vlookup for POS Store (Club) Count


ActiveSheet.Cells(177, emptyColumn).Value = WorksheetFunction.VLookup(Range("A177"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(178, emptyColumn).Value = WorksheetFunction.VLookup(Range("A178"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(179, emptyColumn).Value = WorksheetFunction.VLookup(Range("A179"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(180, emptyColumn).Value = WorksheetFunction.VLookup(Range("A180"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(181, emptyColumn).Value = WorksheetFunction.VLookup(Range("A181"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(182, emptyColumn).Value = WorksheetFunction.VLookup(Range("A182"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(183, emptyColumn).Value = WorksheetFunction.VLookup(Range("A183"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(184, emptyColumn).Value = WorksheetFunction.VLookup(Range("A184"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(185, emptyColumn).Value = WorksheetFunction.VLookup(Range("A185"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(186, emptyColumn).Value = WorksheetFunction.VLookup(Range("A186"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(187, emptyColumn).Value = WorksheetFunction.VLookup(Range("A187"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(188, emptyColumn).Value = WorksheetFunction.VLookup(Range("A188"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(189, emptyColumn).Value = WorksheetFunction.VLookup(Range("A189"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(190, emptyColumn).Value = WorksheetFunction.VLookup(Range("A190"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(191, emptyColumn).Value = WorksheetFunction.VLookup(Range("A191"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(192, emptyColumn).Value = WorksheetFunction.VLookup(Range("A192"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(193, emptyColumn).Value = WorksheetFunction.VLookup(Range("A193"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(194, emptyColumn).Value = WorksheetFunction.VLookup(Range("A194"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(195, emptyColumn).Value = WorksheetFunction.VLookup(Range("A195"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(196, emptyColumn).Value = WorksheetFunction.VLookup(Range("A196"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(197, emptyColumn).Value = WorksheetFunction.VLookup(Range("A197"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(198, emptyColumn).Value = WorksheetFunction.VLookup(Range("A198"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(199, emptyColumn).Value = WorksheetFunction.VLookup(Range("A199"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(200, emptyColumn).Value = WorksheetFunction.VLookup(Range("A200"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(201, emptyColumn).Value = WorksheetFunction.VLookup(Range("A201"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(202, emptyColumn).Value = WorksheetFunction.VLookup(Range("A202"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(203, emptyColumn).Value = WorksheetFunction.VLookup(Range("A203"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(204, emptyColumn).Value = WorksheetFunction.VLookup(Range("A204"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(205, emptyColumn).Value = WorksheetFunction.VLookup(Range("A205"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(206, emptyColumn).Value = WorksheetFunction.VLookup(Range("A206"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(207, emptyColumn).Value = WorksheetFunction.VLookup(Range("A207"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(208, emptyColumn).Value = WorksheetFunction.VLookup(Range("A208"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(209, emptyColumn).Value = WorksheetFunction.VLookup(Range("A209"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(210, emptyColumn).Value = WorksheetFunction.VLookup(Range("A210"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(211, emptyColumn).Value = WorksheetFunction.VLookup(Range("A211"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(212, emptyColumn).Value = WorksheetFunction.VLookup(Range("A212"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(213, emptyColumn).Value = WorksheetFunction.VLookup(Range("A213"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(214, emptyColumn).Value = WorksheetFunction.VLookup(Range("A214"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(215, emptyColumn).Value = WorksheetFunction.VLookup(Range("A215"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(216, emptyColumn).Value = WorksheetFunction.VLookup(Range("A216"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(217, emptyColumn).Value = WorksheetFunction.VLookup(Range("A217"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(218, emptyColumn).Value = WorksheetFunction.VLookup(Range("A218"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(219, emptyColumn).Value = WorksheetFunction.VLookup(Range("A219"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(220, emptyColumn).Value = WorksheetFunction.VLookup(Range("A220"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(221, emptyColumn).Value = WorksheetFunction.VLookup(Range("A221"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(222, emptyColumn).Value = WorksheetFunction.VLookup(Range("A222"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(223, emptyColumn).Value = WorksheetFunction.VLookup(Range("A223"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(224, emptyColumn).Value = WorksheetFunction.VLookup(Range("A224"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(225, emptyColumn).Value = WorksheetFunction.VLookup(Range("A225"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(226, emptyColumn).Value = WorksheetFunction.VLookup(Range("A226"), Sheets("Dump").Range("A2:H64"), 6, False)



' Vlookup for Average Sales $ Per Week Per Store (Club)


ActiveSheet.Cells(231, emptyColumn).Value = WorksheetFunction.VLookup(Range("A231"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(232, emptyColumn).Value = WorksheetFunction.VLookup(Range("A232"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(233, emptyColumn).Value = WorksheetFunction.VLookup(Range("A233"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(234, emptyColumn).Value = WorksheetFunction.VLookup(Range("A234"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(235, emptyColumn).Value = WorksheetFunction.VLookup(Range("A235"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(236, emptyColumn).Value = WorksheetFunction.VLookup(Range("A236"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(237, emptyColumn).Value = WorksheetFunction.VLookup(Range("A237"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(238, emptyColumn).Value = WorksheetFunction.VLookup(Range("A238"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(239, emptyColumn).Value = WorksheetFunction.VLookup(Range("A239"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(240, emptyColumn).Value = WorksheetFunction.VLookup(Range("A240"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(241, emptyColumn).Value = WorksheetFunction.VLookup(Range("A241"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(242, emptyColumn).Value = WorksheetFunction.VLookup(Range("A242"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(243, emptyColumn).Value = WorksheetFunction.VLookup(Range("A243"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(244, emptyColumn).Value = WorksheetFunction.VLookup(Range("A244"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(245, emptyColumn).Value = WorksheetFunction.VLookup(Range("A245"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(246, emptyColumn).Value = WorksheetFunction.VLookup(Range("A246"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(247, emptyColumn).Value = WorksheetFunction.VLookup(Range("A247"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(248, emptyColumn).Value = WorksheetFunction.VLookup(Range("A248"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(249, emptyColumn).Value = WorksheetFunction.VLookup(Range("A249"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(250, emptyColumn).Value = WorksheetFunction.VLookup(Range("A250"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(251, emptyColumn).Value = WorksheetFunction.VLookup(Range("A251"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(252, emptyColumn).Value = WorksheetFunction.VLookup(Range("A252"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(253, emptyColumn).Value = WorksheetFunction.VLookup(Range("A253"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(254, emptyColumn).Value = WorksheetFunction.VLookup(Range("A254"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(255, emptyColumn).Value = WorksheetFunction.VLookup(Range("A255"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(256, emptyColumn).Value = WorksheetFunction.VLookup(Range("A256"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(257, emptyColumn).Value = WorksheetFunction.VLookup(Range("A257"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(258, emptyColumn).Value = WorksheetFunction.VLookup(Range("A258"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(259, emptyColumn).Value = WorksheetFunction.VLookup(Range("A259"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(260, emptyColumn).Value = WorksheetFunction.VLookup(Range("A260"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(261, emptyColumn).Value = WorksheetFunction.VLookup(Range("A261"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(262, emptyColumn).Value = WorksheetFunction.VLookup(Range("A262"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(263, emptyColumn).Value = WorksheetFunction.VLookup(Range("A263"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(264, emptyColumn).Value = WorksheetFunction.VLookup(Range("A264"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(265, emptyColumn).Value = WorksheetFunction.VLookup(Range("A265"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(266, emptyColumn).Value = WorksheetFunction.VLookup(Range("A266"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(267, emptyColumn).Value = WorksheetFunction.VLookup(Range("A267"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(268, emptyColumn).Value = WorksheetFunction.VLookup(Range("A268"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(269, emptyColumn).Value = WorksheetFunction.VLookup(Range("A269"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(270, emptyColumn).Value = WorksheetFunction.VLookup(Range("A270"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(271, emptyColumn).Value = WorksheetFunction.VLookup(Range("A271"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(272, emptyColumn).Value = WorksheetFunction.VLookup(Range("A272"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(273, emptyColumn).Value = WorksheetFunction.VLookup(Range("A273"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(274, emptyColumn).Value = WorksheetFunction.VLookup(Range("A274"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(275, emptyColumn).Value = WorksheetFunction.VLookup(Range("A275"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(276, emptyColumn).Value = WorksheetFunction.VLookup(Range("A276"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(277, emptyColumn).Value = WorksheetFunction.VLookup(Range("A277"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(278, emptyColumn).Value = WorksheetFunction.VLookup(Range("A278"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(279, emptyColumn).Value = WorksheetFunction.VLookup(Range("A279"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(280, emptyColumn).Value = WorksheetFunction.VLookup(Range("A280"), Sheets("Dump").Range("A2:H64"), 7, False)


' Vlookup for Average Units (Qty) Per Store (Club) Per Week


ActiveSheet.Cells(288, emptyColumn).Value = WorksheetFunction.VLookup(Range("A288"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(289, emptyColumn).Value = WorksheetFunction.VLookup(Range("A289"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(290, emptyColumn).Value = WorksheetFunction.VLookup(Range("A290"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(291, emptyColumn).Value = WorksheetFunction.VLookup(Range("A291"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(292, emptyColumn).Value = WorksheetFunction.VLookup(Range("A292"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(293, emptyColumn).Value = WorksheetFunction.VLookup(Range("A293"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(294, emptyColumn).Value = WorksheetFunction.VLookup(Range("A294"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(295, emptyColumn).Value = WorksheetFunction.VLookup(Range("A295"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(296, emptyColumn).Value = WorksheetFunction.VLookup(Range("A296"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(297, emptyColumn).Value = WorksheetFunction.VLookup(Range("A297"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(298, emptyColumn).Value = WorksheetFunction.VLookup(Range("A298"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(299, emptyColumn).Value = WorksheetFunction.VLookup(Range("A299"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(300, emptyColumn).Value = WorksheetFunction.VLookup(Range("A300"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(301, emptyColumn).Value = WorksheetFunction.VLookup(Range("A301"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(302, emptyColumn).Value = WorksheetFunction.VLookup(Range("A302"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(303, emptyColumn).Value = WorksheetFunction.VLookup(Range("A303"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(304, emptyColumn).Value = WorksheetFunction.VLookup(Range("A304"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(305, emptyColumn).Value = WorksheetFunction.VLookup(Range("A305"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(306, emptyColumn).Value = WorksheetFunction.VLookup(Range("A306"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(307, emptyColumn).Value = WorksheetFunction.VLookup(Range("A307"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(308, emptyColumn).Value = WorksheetFunction.VLookup(Range("A308"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(309, emptyColumn).Value = WorksheetFunction.VLookup(Range("A309"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(310, emptyColumn).Value = WorksheetFunction.VLookup(Range("A310"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(311, emptyColumn).Value = WorksheetFunction.VLookup(Range("A311"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(312, emptyColumn).Value = WorksheetFunction.VLookup(Range("A312"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(313, emptyColumn).Value = WorksheetFunction.VLookup(Range("A313"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(314, emptyColumn).Value = WorksheetFunction.VLookup(Range("A314"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(315, emptyColumn).Value = WorksheetFunction.VLookup(Range("A315"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(316, emptyColumn).Value = WorksheetFunction.VLookup(Range("A316"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(317, emptyColumn).Value = WorksheetFunction.VLookup(Range("A317"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(318, emptyColumn).Value = WorksheetFunction.VLookup(Range("A318"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(319, emptyColumn).Value = WorksheetFunction.VLookup(Range("A319"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(320, emptyColumn).Value = WorksheetFunction.VLookup(Range("A320"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(321, emptyColumn).Value = WorksheetFunction.VLookup(Range("A321"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(322, emptyColumn).Value = WorksheetFunction.VLookup(Range("A322"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(323, emptyColumn).Value = WorksheetFunction.VLookup(Range("A323"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(324, emptyColumn).Value = WorksheetFunction.VLookup(Range("A324"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(325, emptyColumn).Value = WorksheetFunction.VLookup(Range("A325"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(326, emptyColumn).Value = WorksheetFunction.VLookup(Range("A326"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(327, emptyColumn).Value = WorksheetFunction.VLookup(Range("A327"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(328, emptyColumn).Value = WorksheetFunction.VLookup(Range("A328"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(329, emptyColumn).Value = WorksheetFunction.VLookup(Range("A329"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(330, emptyColumn).Value = WorksheetFunction.VLookup(Range("A330"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(331, emptyColumn).Value = WorksheetFunction.VLookup(Range("A331"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(332, emptyColumn).Value = WorksheetFunction.VLookup(Range("A332"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(333, emptyColumn).Value = WorksheetFunction.VLookup(Range("A333"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(334, emptyColumn).Value = WorksheetFunction.VLookup(Range("A334"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(335, emptyColumn).Value = WorksheetFunction.VLookup(Range("A335"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(336, emptyColumn).Value = WorksheetFunction.VLookup(Range("A336"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(337, emptyColumn).Value = WorksheetFunction.VLookup(Range("A337"), Sheets("Dump").Range("A2:H64"), 8, False)






End Sub
 
Sort by date Sort by votes
I just looked at your code briefly and it looks like you could save yourself a lot of trouble by looping through ranges instead of hard coding cell references over and over.
 
Upvote 0
skywriter said:
I just looked at your code briefly and it looks like you could save yourself a lot of trouble by looping through ranges instead of hard coding cell references over and over.
Click to expand...


I figured that I could, but I don't know how to code that, so I did what I know.
I'm new to programming.
I've made a few vb programs now, but I'm just googling code and making it work for what I'm doing.

I've had a course on vb 6.0 years ago, but no matter how hard I try, I can't memorize what code to use when and I don't understand all the rules.
I wish I could do a teach yourself course or something that would explain what code to use when and the rules, etc...

I was able to reduce the size of my procedure by deleting out some scrolling that was unnecessary and the program now works...I just want to know how to store that code in a separate sub-routine or elsewhere and be able to call it from my original procedure, in-case I need to make my original procedure bigger.
 
Upvote 0
I would be willing to help you, but I need the worksheet with the code so I can decipher what you are doing and figure out what the problem is.
 
Upvote 0
You could use the code below to see how you could substantially shorten your code.


Code: 
Sub Vlookups()

Dim i As Integer


' Vlookup for Total Units Sold(POS Qty)




On Error Resume Next

For i = 7 To 55

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 3, False)

Next i

'You can eliminate this whole section.
'***************************************
'***************************************
'***************************************
ActiveSheet.Cells(8, emptyColumn).Value = WorksheetFunction.VLookup(Range("A8"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(9, emptyColumn).Value = WorksheetFunction.VLookup(Range("A9"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(10, emptyColumn).Value = WorksheetFunction.VLookup(Range("A10"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(11, emptyColumn).Value = WorksheetFunction.VLookup(Range("A11"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(12, emptyColumn).Value = WorksheetFunction.VLookup(Range("A12"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(13, emptyColumn).Value = WorksheetFunction.VLookup(Range("A13"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(14, emptyColumn).Value = WorksheetFunction.VLookup(Range("A14"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(15, emptyColumn).Value = WorksheetFunction.VLookup(Range("A15"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(16, emptyColumn).Value = WorksheetFunction.VLookup(Range("A16"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(17, emptyColumn).Value = WorksheetFunction.VLookup(Range("A17"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(18, emptyColumn).Value = WorksheetFunction.VLookup(Range("A18"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(19, emptyColumn).Value = WorksheetFunction.VLookup(Range("A19"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(20, emptyColumn).Value = WorksheetFunction.VLookup(Range("A20"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(21, emptyColumn).Value = WorksheetFunction.VLookup(Range("A21"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(22, emptyColumn).Value = WorksheetFunction.VLookup(Range("A22"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(23, emptyColumn).Value = WorksheetFunction.VLookup(Range("A23"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(24, emptyColumn).Value = WorksheetFunction.VLookup(Range("A24"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(25, emptyColumn).Value = WorksheetFunction.VLookup(Range("A25"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(26, emptyColumn).Value = WorksheetFunction.VLookup(Range("A26"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(27, emptyColumn).Value = WorksheetFunction.VLookup(Range("A27"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(28, emptyColumn).Value = WorksheetFunction.VLookup(Range("A28"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(29, emptyColumn).Value = WorksheetFunction.VLookup(Range("A29"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(30, emptyColumn).Value = WorksheetFunction.VLookup(Range("A30"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(31, emptyColumn).Value = WorksheetFunction.VLookup(Range("A31"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(32, emptyColumn).Value = WorksheetFunction.VLookup(Range("A32"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(33, emptyColumn).Value = WorksheetFunction.VLookup(Range("A33"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(34, emptyColumn).Value = WorksheetFunction.VLookup(Range("A34"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(35, emptyColumn).Value = WorksheetFunction.VLookup(Range("A35"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(36, emptyColumn).Value = WorksheetFunction.VLookup(Range("A36"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(37, emptyColumn).Value = WorksheetFunction.VLookup(Range("A37"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(38, emptyColumn).Value = WorksheetFunction.VLookup(Range("A38"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(39, emptyColumn).Value = WorksheetFunction.VLookup(Range("A39"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(40, emptyColumn).Value = WorksheetFunction.VLookup(Range("A40"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(41, emptyColumn).Value = WorksheetFunction.VLookup(Range("A41"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(42, emptyColumn).Value = WorksheetFunction.VLookup(Range("A42"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(43, emptyColumn).Value = WorksheetFunction.VLookup(Range("A43"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(44, emptyColumn).Value = WorksheetFunction.VLookup(Range("A44"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(45, emptyColumn).Value = WorksheetFunction.VLookup(Range("A45"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(46, emptyColumn).Value = WorksheetFunction.VLookup(Range("A46"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(47, emptyColumn).Value = WorksheetFunction.VLookup(Range("A47"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(48, emptyColumn).Value = WorksheetFunction.VLookup(Range("A48"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(49, emptyColumn).Value = WorksheetFunction.VLookup(Range("A49"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(50, emptyColumn).Value = WorksheetFunction.VLookup(Range("A50"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(51, emptyColumn).Value = WorksheetFunction.VLookup(Range("A51"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(52, emptyColumn).Value = WorksheetFunction.VLookup(Range("A52"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(53, emptyColumn).Value = WorksheetFunction.VLookup(Range("A53"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(54, emptyColumn).Value = WorksheetFunction.VLookup(Range("A54"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(55, emptyColumn).Value = WorksheetFunction.VLookup(Range("A55"), Sheets("Dump").Range("A2:H64"), 3, False)
'**********************************************
'**********************************************
'**********************************************
'**********************************************
'**********************************************
 
Upvote 0
skywriter said:
You could use the code below to see how you could substantially shorten your code.


Code: 
Sub Vlookups()

Dim i As Integer


' Vlookup for Total Units Sold(POS Qty)




On Error Resume Next

For i = 7 To 55

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 3, False)

Next i

'You can eliminate this whole section.
'***************************************
'***************************************
'***************************************
ActiveSheet.Cells(8, emptyColumn).Value = WorksheetFunction.VLookup(Range("A8"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(9, emptyColumn).Value = WorksheetFunction.VLookup(Range("A9"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(10, emptyColumn).Value = WorksheetFunction.VLookup(Range("A10"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(11, emptyColumn).Value = WorksheetFunction.VLookup(Range("A11"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(12, emptyColumn).Value = WorksheetFunction.VLookup(Range("A12"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(13, emptyColumn).Value = WorksheetFunction.VLookup(Range("A13"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(14, emptyColumn).Value = WorksheetFunction.VLookup(Range("A14"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(15, emptyColumn).Value = WorksheetFunction.VLookup(Range("A15"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(16, emptyColumn).Value = WorksheetFunction.VLookup(Range("A16"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(17, emptyColumn).Value = WorksheetFunction.VLookup(Range("A17"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(18, emptyColumn).Value = WorksheetFunction.VLookup(Range("A18"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(19, emptyColumn).Value = WorksheetFunction.VLookup(Range("A19"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(20, emptyColumn).Value = WorksheetFunction.VLookup(Range("A20"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(21, emptyColumn).Value = WorksheetFunction.VLookup(Range("A21"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(22, emptyColumn).Value = WorksheetFunction.VLookup(Range("A22"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(23, emptyColumn).Value = WorksheetFunction.VLookup(Range("A23"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(24, emptyColumn).Value = WorksheetFunction.VLookup(Range("A24"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(25, emptyColumn).Value = WorksheetFunction.VLookup(Range("A25"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(26, emptyColumn).Value = WorksheetFunction.VLookup(Range("A26"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(27, emptyColumn).Value = WorksheetFunction.VLookup(Range("A27"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(28, emptyColumn).Value = WorksheetFunction.VLookup(Range("A28"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(29, emptyColumn).Value = WorksheetFunction.VLookup(Range("A29"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(30, emptyColumn).Value = WorksheetFunction.VLookup(Range("A30"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(31, emptyColumn).Value = WorksheetFunction.VLookup(Range("A31"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(32, emptyColumn).Value = WorksheetFunction.VLookup(Range("A32"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(33, emptyColumn).Value = WorksheetFunction.VLookup(Range("A33"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(34, emptyColumn).Value = WorksheetFunction.VLookup(Range("A34"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(35, emptyColumn).Value = WorksheetFunction.VLookup(Range("A35"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(36, emptyColumn).Value = WorksheetFunction.VLookup(Range("A36"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(37, emptyColumn).Value = WorksheetFunction.VLookup(Range("A37"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(38, emptyColumn).Value = WorksheetFunction.VLookup(Range("A38"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(39, emptyColumn).Value = WorksheetFunction.VLookup(Range("A39"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(40, emptyColumn).Value = WorksheetFunction.VLookup(Range("A40"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(41, emptyColumn).Value = WorksheetFunction.VLookup(Range("A41"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(42, emptyColumn).Value = WorksheetFunction.VLookup(Range("A42"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(43, emptyColumn).Value = WorksheetFunction.VLookup(Range("A43"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(44, emptyColumn).Value = WorksheetFunction.VLookup(Range("A44"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(45, emptyColumn).Value = WorksheetFunction.VLookup(Range("A45"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(46, emptyColumn).Value = WorksheetFunction.VLookup(Range("A46"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(47, emptyColumn).Value = WorksheetFunction.VLookup(Range("A47"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(48, emptyColumn).Value = WorksheetFunction.VLookup(Range("A48"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(49, emptyColumn).Value = WorksheetFunction.VLookup(Range("A49"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(50, emptyColumn).Value = WorksheetFunction.VLookup(Range("A50"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(51, emptyColumn).Value = WorksheetFunction.VLookup(Range("A51"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(52, emptyColumn).Value = WorksheetFunction.VLookup(Range("A52"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(53, emptyColumn).Value = WorksheetFunction.VLookup(Range("A53"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(54, emptyColumn).Value = WorksheetFunction.VLookup(Range("A54"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(55, emptyColumn).Value = WorksheetFunction.VLookup(Range("A55"), Sheets("Dump").Range("A2:H64"), 3, False)
'**********************************************
'**********************************************
'**********************************************
'**********************************************
'**********************************************
Click to expand...



That is frickin awesome. Thank you so much!

How do you know when to declare something as an Interger or String or whatever?


So, when I go down to the next section for "Total Sell Dollars", do I need to DIM a different letter = 64 To 112 or do I use the "i" again?
Why did you have to specify that i was = 7 To 55?

Thanks again!
 
Upvote 0
No i is just the letter that I assigned to the variable. I declared it as an integer so it represents a number. If I declared i as a string I would be saying that i is comprised of characters. I could say i = "parkerbelt".
I have to put it in quotes because it is a string.

You only need the one i in your code. Each time you say i = 7 to 55 or whatever you declare it, that means the first time you loop with i it equals 7 and it will increment one time for each loop until it hits 55 and the loop will exit.
So each time you use a for i = you are resetting the value. You could use a different letter for each loop that is your choice, but not necessary. Just declare them as integers, for your code integers are what you want. If you declare a long or double or variant they will all work, but take up more memory and the numbers you are using are integers so this would be a waste of memory.

I replaced the number 7 in your code with i for the first loop and noticed you looped through sequential cells all the way to 55, therefore I declare i = 7 to 55.





For total sell dollars

Just declare For i = 64 to 112, put the code below in between the for statement and next i.
You replace the code in you cells that changes with each loop with i.
You started total sell dollars in cell 64 and finished at 112.


Here is your current code.
ActiveSheet.Cells(64, emptyColumn).Value = WorksheetFunction.VLookup(Range("A64"), Sheets("Dump").Range("A2:H64"), 4, False)

For i = 64 to 112

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 4, False)

Next i



Make sure only to use i for the values that change by one every time you were moving to the next line in your code. In total sell dollars your range after the sheet dump range doesn't change so I left it alone. Also with the Vlookup range since A is a string and i represents a number you must separate the letter "A" with quotes and then use & to combine with i. This way on the first loop the result is A64, but you must follow the syntax, you cannot simply type Ai, it will not work.
 
Last edited:
Upvote 0
skywriter said:
No i is just the letter that I assigned to the variable. I declared it as an integer so it represents a number. If I declared i as a string I would be saying that i is comprised of characters. I could say i = "parkerbelt".
I have to put it in quotes because it is a string.

You only need the one i in your code. Each time you say i = 7 to 55 or whatever you declare it, that means the first time you loop with i it equals 7 and it will increment one time for each loop until it hits 55 and the loop will exit.
So each time you use a for i = you are resetting the value. You could use a different letter for each loop that is your choice, but not necessary. Just declare them as integers, for your code integers are what you want. If you declare a long or double or variant they will all work, but take up more memory and the numbers you are using are integers so this would be a waste of memory.

I replaced the number 7 in your code with i for the first loop and noticed you looped through sequential cells all the way to 55, therefore I declare i = 7 to 55.


For total sell dollars

Just declare For i = 64 to 112, put the code below in between the for statement and next i.
You replace the code in you cells that changes with each loop with i.
You started total sell dollars in cell 64 and finished at 112.


Here is your current code.
ActiveSheet.Cells(64, emptyColumn).Value = WorksheetFunction.VLookup(Range("A64"), Sheets("Dump").Range("A2:H64"), 4, False)

For i = 64 to 112

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 4, False)

Next i



Make sure only to use i for the values that change by one every time you were moving to the next line in your code. In total sell dollars your range after the sheet dump range doesn't change so I left it alone. Also with the Vlookup range since A is a string and i represents a number you must separate the letter "A" with quotes and then use & to combine with i. This way on the first loop the result is A64, but you must follow the syntax, you cannot simply type Ai, it will not work.
Click to expand...



Thanks again Bruce! I really appreciate it!
Parker
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Solved
Excel VBA, Vlookup to another sheet in same work book
Replies
6
Views
2K
StephenCrump
S
K
  • Question Question
Send WhatsApp message from Excel
Replies
2
Views
117
KPN
K
K
  • Question Question
VBA code to reference worksheet second from the end
Replies
1
Views
265
John_w
J
G
  • Question Question
Run macro after new email
Replies
1
Views
239
Peter_SSs
Peter_SSs
M
  • Solved
VBA - For Cycle with "On Error" not working on the second iteration
Replies
9
Views
246
Joe4
Joe4

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top