Gidday,
I do not use the fancy code structure used by you
professionals so here is what I would do:
when save button is clicked
sub cmdSave_click()
dim cell
Sheets("Sales Tracking").select
range("D1").select
set d=selection
range(d,d.end(xltoright)).select
for each cell in selection
if cell.value="" then
cell.value=TextBox1.value
exit for
end if
next
Alternatively, you could send the data to me with
instructions and I could create a form for you.
See some of my handiwork at:
http://www.geocities.com/excelmarksway
regards
Mark
-----Original Message-----
Hi, I have a userform, that is made up of textboxes and
checkboxes.
There is also a save button on the sheet. I need help
with creating a
macro that is going to paste certain info over to a sales
sheet and
keep filling the sheet out as it goes down the sheet.
IE.
First issue
When the save button is clicked, it needs to copy
TextBox1.value into
Sheet("Sales Tracking"), Row D, inputing it in the first
non-used cell.
Below is the code that I was using, but keep getting an
error message
saying that an object is required.
Dim WS As Worksheet
Dim sourceRng As Range, destRng As Range
Set sourceRng = CallType.Value = ""
Set WS = Workbooks("ComTrak").Sheets("Sales Tracking")
Set destRng = WS.Cells(Rows.Count, "D").End(xlUp)(2)
destRng.Formula = sourceRng.Value
Second Issue
When the save button is clicked, I need it to use a
similiar code from
above, but use it on the checkboxes. For example, if
checkbox1 is
clicked, then it needs to instert a "1" in the first non-
used cell in
Row "E", but if it's non-clicked, then it inserts a "0"
in the first
non-used cell in Row "E".
Any help will be greatly appreciated!!
---
Message posted from http://www.ExcelForum.com/
.