Anyway to improve on this code snipit
You're welcome!!!
Greg
"Larry" wrote:
The Code works superbly, Thank you very much for the excellent code and
answer. With great responses and answers from all personnel such as you it
is always a great honor; without individuals who are willing to share their
knowledge and expertise, I am for one would be totally lost at times. Again
thank you so much.--
Larry E. Brueshaber
"Greg Wilson" wrote:
Try:
Dim ws1 As Worksheet, ws2 As Worksheet
Dim Lr As Long
Lr = 10 'change to suit
Set ws1 = Sheets("invDataFile")
Set ws2 = Sheets("invDataBase")
ws2.Range("A" & Lr & ":B" & Lr) = ws1.Range("A1:B1").Value
ws2.Range("B" & Lr) = ws1.Range("B1").Value
ws2.Range("D" & Lr & ":E" & Lr) = ws1.Range("D1:E1").Value
ws2.Range("E" & Lr) = ws1.Range("E1").Value
ws2.Range("L" & Lr) = ws1.Range("L1").Value
Set ws1 = Sheets("Inventory")
ws2.Range("C" & Lr) = ws1.Range("AB9").Value
ws2.Range("F" & Lr) = ws1.Range("AA11").Value
ws2.Range("G" & Lr) = ws1.Range("AG11").Value
ws2.Range("H" & Lr) = ws1.Range("AB13").Value
ws2.Range("K" & Lr) = ws1.Range("X19").Value
ws2.Range("N" & Lr) = ws1.Range("AC15").Value
Regards,
Greg
|