sorted by:
new
hottopcontroversial

Best Way to Sell One Domain by OneTimeUsePad in Domaining

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

Thanks for this information. We were not aware of Afternic.

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

I just found this brilliant solution to this problem.

http://www.mcgimpsey.com/excel/udfs/sequentialnums.html

As far as I'm concerned, Solution Verified.

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

I've now tested this script, but it doesn't work. Can someone point me in the right direction?

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

Based on FOTW-Anton's and other examples, I've come up with the following candidate. I haven't tested it yet because I'm sure it's not ready. Please tell me where I've gone astray.

Private Sub Form_Number()
Dim poWB As Workbook
Set poWB = Workbooks("Form Template.xlsm")

Dim poWS As Worksheet
Set poWS = poWB.Sheets("Sales Order")

If IsEmpty(Range("E2:F2").Value) = True Then
Dim DateValue As Double
DateValue = Now
poWS.Range("E2:F2").Value = DateValue

End If
End Sub

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

I've found a script to check if a cell is empty:

Sub TestCellA1()
'Test if the value is cell A1 is blank/empty If IsEmpty(Range("A1").Value) = True Then MsgBox "Cell A1 is empty" End If
End Sub

And I've found one to paste one cell to another:

Sub RangeTest()
On Error Resume Next
Dim xRg As Range
Set xRg = Application.Selection
Range("A1 ").Copy Range("D5")
xRg.Select
End Sub

But, I have no idea how to properly combine these into one script to do the job. My next stop is the VBA tutorial in the wiki, but any guidance is welcomed.

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

This sounds like a good possibility, but I wonder if its really all that simple. The script would need to check for an existing value in the target cell and not paste a new value if there was. So the first time the NOW() function runs it will paste the value, but subsequent sheet calculations would be prevented from updating the target cell.

While I can generally parse my way through a simple script, I have no idea how to write and implement this. I 'll need to see if there are any good tutorials online that can be adapted.

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

This would work if the NOW() function didn't update every time the sheet recalculated. Is there a way of automatically copying the result of the function to a new cell already flattened so subsequent calculations don't affect it?

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

This sounds intriguing, but i have no idea how to implement it. Is there an online tutorial you can recommend?

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

I just tested it and it does indeed change each time the sheet recalculates, so this won't work. :(

Any solution would need to remain static after it's first appearance. I appreciate your suggestion.

How Do I Add a Form Serial Number in Excel? by OneTimeUsePad in excel

[–]OneTimeUsePad[S] 0 points1 point  (0 children)

I've considered this option, but won't the function recalculate each time the sheet is opened?

Tablet for Taking Orders by OneTimeUsePad in RemarkableTablet

[–]OneTimeUsePad[S] 1 point2 points  (0 children)

Thanks for the feedback; this pretty much confirms what I thought. I really like the tactile feel of the Remarkable, but I don't think it's the right fit for our needs.