When I double click each of these 7 cells – I would like to see the following:Ĭell 1: Initial (White) When double clicked (Red)Ĭell 2: Initial (White) When double clicked (Yellow)Ĭell 3: Initial (White) When double clicked (Grey)Ĭell 4: Initial (White) When double clicked (Green)Ĭell 5: Initial (White) When double clicked (Fluorescent Green)Ĭell N/A: Initial (White) When double clicked (stay White)Īny help would be appreciated in this regard. All cells are with “No Fill – White” initially. So each respondent will select their option out of these six options, which I am going to show in separate colors in Agenda Sheet (Excel file) where I need to run this requested code/script.Īgainst, each question I have 7 cells – The first sex cells for the options and the 7th cell for the consensus choice. Lets say, I have 5 respondents for each survey. This imported survey data has 6 (Six) options (1, 2, 3, 4, 5, and N/A) for each survey question. I have a survey form send to various survey respondents which is now completed and I have already exported it as an Excel File. MsgBox 'Your Pivot Table is now updated.'Ĭould somebody help me create a macro script for the following routine. PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange) 'Change Pivot Table Data Source Range Address NewRange = Data_Sheet.Name & '!' & DataRange.Address(ReferenceStyle:=xlR1C1) Set DataRange = Data_Sheet.Range(StartPoint, Cells(DownCell, LastCol)) LastCol = StartPoint.End(xlToRight).Column Set Pivot_Sheet = ThisWorkbook.Worksheets('Pivot3') All Rights Reserved.Set Data_Sheet = ThisWorkbook.Worksheets('PivotTableData3') ' Get the CRC8 digest in decimal Dim crc8_decimal As StringĬrc8_decimal = sb. ' Get the SHA1 hash in hex lowercase Dim sha1_hex As String

' Get the SHA512 hash in base64 Dim sha512_base64 As String ' Get the SHA384 hash in hex lowercase Dim sha384_hex As String ' Get the SHA256 hash in hex Dim sha256_hex As String ' Therefore, we must specify the character encoding (utf-8, utf-16, iso-8859-1, etc.) to be used when hashing. (Visual Basic 6.0) Hash (Digest) a String

Visual basic example