The individual sheets are essentially a template, and I would like to be able to grab a value from the same cell in different sheets and make a table.Can I do it without having to get each value individually?
Can anyone please advise if there is any way to skip/disable the "read-only" message box when the excel file is being opened by other user and a tailor made message box will pop up instead?
I want to have the ready-only / notify message box (see attached) disappear when the already opened file was retrieved by other user.
More details about yur workbook are needed to go any further. (DO NOT choose "Class Module") Copy the entire code from "Sub Make Summary Table()" to "End Sub" and paste this into the code window. If you want, you can create a button from the Forms toolbar and assign this macro to the button.
Update Next a Field Next a Story For Each my TOC In Active Document.
Perhaps put most clearly, I would like to have a table that shows the value at 'C1' in each sheet without having to manually select 'C1' from each sheet. (DO NOT choose "Class Module") Copy the entire code from "Sub Make Summary Table()" to "End Sub" and paste this into the code window. If you want, you can create a button from the Forms toolbar and assign this macro to the button.
Once assigned, just click the button to run the macro when desired. Used Range): On Error Go To 0 If Not r Rng Is Nothing Then For Each r Cell In r Rng If Not Is Error(Target) Then s Last Value = s Last Value & "," & r Cell Else s Last Value = s Last Value & "," & "Err" Next r Cell s Last Value = Mid(s Last Value, 2) Else s Last Value = "" End If Else If Not Is Error(Target) Then s Last Value = Target. Option Explicit Public s Value As String Private Sub Workbook_Sheet Change(By Val Sh As Object, By Val Target As Range) If Sh. Save As s Path & s LOGName, xl Normal ' End If Set wb LOG = Workbooks. Count 1 Then Dim r Cell As Range, r Rng As Range On Error Resume Next Set r Rng = Intersect(Target, Sh. Used Range): On Error Go To 0 If r Rng Is Nothing Then Exit Sub For Each r Cell In r Rng If Not Is Error(r Cell) Then s Value = s Value & "," & r Cell Else s Value = s Value & "," & "Err" Next r Cell s Value = Mid(s Value, 2) Else If Not Is Error(Target) Then s Value = Target. I am trying to control screen updating without much success. Screen Updating = False However, I think my problem comes from this line: Active Window. Seek View = wd Seek Current Page Header But I can't think of a better way to get into the header.Don’t forget to set your Screen Updating property back to True when you’re done.