HI phillip,
This code would be useful to complete up your task.
textbox20.Value = Sheets("Sheet17").Range("B9").Value & Sheets
("Sheet17").Cells(Sheets("Sheet17").Range("K65535").End(xlUp).Row,
"K").Value
textbox21.Value = Sheets("Sheet17").Range("A9").Value & Sheets
("Sheet17").Cells(Sheets("Sheet17").Range("J65535").End(xlUp).Row,
"J").Value
textbox22.Value = Sheets("Sheet17").Range("C9").Value & Sheets
("Sheet17").Cells(Sheets("Sheet17").Range("L65535").End(xlUp).Row,
"L").Value
textbox24.Value = Sheets("Sheet17").Range("A15").Value & Sheets
("Sheet17").Cells(Sheets("Sheet17").Range("M65535").End(xlUp).Row,
"M").Value
Sheets("Sheet17").Cells(15, "C").Value = (Date) & " " & (Time)
Sheets("Sheet17").Cells(Sheets("Sheet17").Range("I65535").End
(xlUp).Row, "I").Value = (Date) & " " & (Time)
' Check for the data
If textbox20.Value = "" Or textbox21.Value = "" Or textbox22.Value =
"" Or textbox24.Value = "" Then
MsgBox "Some data missing"
End If
Regards
Girish K Rao
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
