share Workbook

[Reidelemanuel]

Hello
Password VBA 7230
Can i share workbook to other users, add dataentry on same sheet and the other user can click the printing button and the information print out.

i use this code and is working ok, but when i share to others save and delete the last add. thank you for advance.

To Print

12-19-15 Replacement OC.xlsm
Private Sub Image3_Click()

Dim rng As Range
Set rng = Range("Audit1")
With rng
.Offset(-2, 0).Resize(.Rows.Count + 1, .Columns.Count).PrintOut
.ClearContents
End With



End Sub

[Fotis1991]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[Reidelemanuel]

Here are code


Formula: copy to clipboard
=OFFSET('DataBase Packing'!$AJ$3,0,0,(COUNTA('DataBase Packing'!$AJ:$AJ)-1),10)

This Code has been added or modified:

Clear the contents of Named Range PackingPrintRange


copy to clipboard
Private Sub UserForm_Activate()
Range("PackingPrintRange").ClearContents
End Sub
Modify to populate the Named Range PackingPrintRange


copy to clipboard
Private Sub CommandButton1_Click()
Dim LastRow As Range
Dim rng As Range
Dim LR As Long
Dim ws As Worksheet
Set ws = Sheet2
Set LastRow = Sheet2.Range("a65536").End(xlUp)
LastRow.Offset(1, 1).Value = TextBox1
LastRow.Offset(1, 2).Value = TextBox2
''LastRow.Offset(1, 4).Value = Format(TextBox2)
LastRow.Offset(1, 3).Value = TextBox4
LastRow.Offset(1, 4).Value = TextBox5
LastRow.Offset(1, 5).Value = TextBox6
LastRow.Offset(1, 6).Value = TextBox7
LastRow.Offset(1, 7).Value = Format(Now, " yyyy.mm.dd ")
LastRow.Offset(1, 8).Value = Format(Now, " HH:MM:SS ")

LastRow.Offset(1, 0).Value = ComboBox1

Set rng = Range("PackingPrintRange")
With rng
LR = rng.Row + rng.Rows.Count - 1
End With

ws.Cells(LR, "AJ").Value = Me.ComboBox1.Value
ws.Cells(LR, "AK").Value = Me.TextBox1.Value
ws.Cells(LR, "AL").Value = Me.TextBox2.Value
ws.Cells(LR, "AM").Value = Me.TextBox4.Value
ws.Cells(LR, "AN").Value = Me.TextBox5.Value
ws.Cells(LR, "AO").Value = Me.TextBox6.Value
ws.Cells(LR, "AP").Value = Me.TextBox7.Value
ws.Cells(LR, "AQ").Value = Format(Now, " yyyy.mm.dd ")
ws.Cells(LR, "AR").Value = Format(Now, " HH:MM:SS ")
ws.Cells(LR, "AS").Value = Me.TextBox3.Value

TextBox1.SetFocus
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
'MsgBox "New item has been added to the list."
'Unload Me
ActiveWorkbook.Save
End Sub
Print out the Named Range PackingPrintRange


copy to clipboard
Private Sub CommandButton3_Click()
Dim rng As Range
Set rng = Range("PackingPrintRange")
With rng
.Offset(-2, 0).Resize(.Rows.Count + 1, .Columns.Count).PrintOut
.ClearContents
End With
' UserForm2.Show
End Sub

[Reidelemanuel]

Can someone help, please