Puggwash63
Board Regular
- Joined
- Jul 27, 2009
- Messages
- 174
My worksheet when protected and Shared will not display figures into certain cells: I have R75, S75, T75, U75 cells merged. I have a button when clicked it will send a required figure to the merged cells, if not protected or Shared, it works perfectly. The button has a Macro to create the figure which is:::::::::Sub ConfirmTen4()
If Range("AA19").Value = "" Then
MsgBox "Select product", vbInformation
Else
Application.ScreenUpdating = False
Dim LastRow As Integer
Dim LastRow2 As Integer
LastRow = ActiveSheet.Range("Z10000").End(xlUp).Row
LastRow2 = ActiveSheet.Range("AD10000").End(xlUp).Row
ActiveSheet.Range("E4:H4").Copy
ActiveSheet.Cells(LastRow + 1, "Z").Select
ActiveSheet.Paste
ActiveSheet.Range("I4").Copy
ActiveSheet.Cells(LastRow + 1, "AD").Select
Selection.PasteSpecial Paste:=xlPasteValues:::::::::: Can you please tell me why the cells when Protected or Shared when the button is clicked do not merge and the figure is not visual and it creates a line on each cell:::::: Many thanks Pugg
If Range("AA19").Value = "" Then
MsgBox "Select product", vbInformation
Else
Application.ScreenUpdating = False
Dim LastRow As Integer
Dim LastRow2 As Integer
LastRow = ActiveSheet.Range("Z10000").End(xlUp).Row
LastRow2 = ActiveSheet.Range("AD10000").End(xlUp).Row
ActiveSheet.Range("E4:H4").Copy
ActiveSheet.Cells(LastRow + 1, "Z").Select
ActiveSheet.Paste
ActiveSheet.Range("I4").Copy
ActiveSheet.Cells(LastRow + 1, "AD").Select
Selection.PasteSpecial Paste:=xlPasteValues:::::::::: Can you please tell me why the cells when Protected or Shared when the button is clicked do not merge and the figure is not visual and it creates a line on each cell:::::: Many thanks Pugg