Dll Not Found/Missing Error------Repair You Dll Errors : Macro to write a formula based on two cells being equal Tech Support

Wednesday, February 24, 2016

Macro to write a formula based on two cells being equal Tech Support

Macro to write a formula based on two cells being equal

I have several columns of data. The first contains a number for the incident. Another contains a code. There can be duplicates in the first column for different codes in the second. There are other columns that do not get invloved in this.
Example:
A                   B
123               CC
123               DD
134               CC
134               EE
134               FF

I would like to forthe table to end up like this.
Example:
A                   B
123              CC, DD
134               CC, EE, FF

Solutions to the Problem Macro to write a formula based on two cells being equal

Download SmartPCFixer for Free Now

Hi,

here's a macro to do it.
Alt+F11 to open VB editor, right click 'ThisWorkbook' and insert module and paste the code below in and run it

Sub summarise_Data()
Dim LastRow As Long, c As Range, r As Range
Dim LastColumn As Long, IncCode As String
Dim MyRange as range, x as long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
LastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, _
               SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column
Set MyRange = Range("A1:A" & LastRow)
For Each c In MyRange
    IncCode = c.Offset(, 1) & ","
    For x = c.Row + 1 To LastRow
        If Cells(x, 1) = c.Value Then
        IncCode = IncCode & Cells(x, 1).Offset(, 1) & ","
        Cells(x, LastColumn + 1) = "#N/A"
        End If
    Next
    c.Offset(, 1) = Left(IncCode, Len(IncCode) - 1)
    incode = ""
Next
On Error Resume Next
Columns(LastColumn + 1).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End Sub

Machine Throttling

Go to the Start button.
In the Search box, type "regedit" (without quotes) and press Enter.
Look for the following registry key: "HKEY_LOCAL_MACHINE\SOFTWARE\ Microsoft\ SQMClient\Windows\DisabledSessions".
On the right window pane, delete the subkey: "Machine Throttling".
Reboot your computer.

Recommended Method to Repair the Problem: Macro to write a formula based on two cells being equal:

How to Fix Macro to write a formula based on two cells being equal with SmartPCFixer?

1. Download SmartPCFixer. Install it on your system.

2. After the scan is finished, you can see the errors and problems need to be repaired. Click Fix All.

3. The Fixing part is finished, the speed of your computer will be much higher than before and the errors have been fixed.

Dll Not Found/Missing Error------Repair You Dll Errors