Macro running long

M

MHamid

Active Member
Joined
Jan 31, 2013
Messages
472
Office Version
  1. 365
Platform
  1. Windows
  2. MacOS
Hello,

i have the below code that runs, but the only issue I have is that it takes about 30 minutes to complete/ any ideas on how i can get it to run quicker?


VBA Code: 
Sub HierarchyAutomation()
  Dim sh1 As Worksheet
  Dim dic As Object, dic2 As Object, dic4 As Object, dicar1 As Object, dicar3 As Object, dicar5 As Object
  Dim i As Long, j As Long
  Dim lr1 As Long, lr2 As Long, lr3 As Long, lr4 As Long, cola As Long, colb As Long
  Dim a As Variant, C As Variant, E As Variant
  Dim b1 As Variant, b2 As Variant, b3 As Variant, b4 As Variant, b5 As Variant, b6 As Variant, b7 As Variant, b8 As Variant, b9 As Variant, b10 As Variant
  Dim ar1 As Variant, ar3 As Variant, ar5 As Variant
  Dim lv As String, lv2 As Variant, lv3 As Variant, lv4 As Variant
  
  Set sh1 = Sheets("DSMT")
  Set dic = CreateObject("Scripting.Dictionary")
  Set dic2 = CreateObject("Scripting.Dictionary")
  Set dic4 = CreateObject("Scripting.Dictionary")
  Set dicar1 = CreateObject("Scripting.Dictionary")
  Set dicar3 = CreateObject("Scripting.Dictionary")
  Set dicar5 = CreateObject("Scripting.Dictionary")
  
  'data Mapping
  lr1 = sh1.Range("GT" & Rows.Count).End(xlUp).Row
  b1 = sh1.Range("HL3:HL" & lr1).Value 'Managed Segment (Home)- NodeNumber
  b3 = sh1.Range("IY3:IY" & lr1).Value 'Managed Segment (Impacted)-Node Number
  b5 = sh1.Range("KM3:KM" & lr1).Value 'Accountable Executive
  b7 = sh1.Range("IE3:IE" & lr1).Value 'Managed Segment Hierarchy (Home)
  b9 = sh1.Range("JS3:JS" & lr1).Value 'Managed Segment Hierarchy (Impacted)
  
  ReDim b2(1 To lr1 - 2, 1 To 17)  'result
  ReDim b4(1 To lr1 - 2, 1 To 17)  'result
  ReDim b6(1 To lr1 - 2, 1 To 17)  'result
  ReDim b8(1 To lr1 - 2, 1 To 17)  'result
  ReDim b10(1 To lr1 - 2, 1 To 17)  'result
  
  ar1 = Array("", "AC", "F", "U", "K", "P", "AE", "CC", "AJ", "BN", "A", "BS", "BX", "AO", "AT", "BI", "AY", "BD") 'MS ID Level columns
  For i = 1 To UBound(ar1)
    'stores position 1, 2, 3... and its respective search column
    dicar1(Columns(ar1(i)).Column) = i
  Next
  
  ar3 = Array("", "DK", "DW", "DE", "CS", "CY", "DQ", "FM", "EC", "FS", "CM", "FY", "GE", "EI", "EO", "EU", "FA", "FG") 'SOEID Columns
  For i = 1 To UBound(ar3)
    'stores position 1, 2, 3... and its respective search column
    dicar3(Columns(ar3(i)).Column) = i
  Next
    
  'ar5 = Array("", "AA", "G", "V", "L", "Q", "AF", "CD", "AK", "BO", "B", "BT", "BY", "AP", "AU", "BJ", "AZ", "BE") 'MS ID Name
  'For i = 1 To UBound(ar5)
    'stores position 1, 2, 3... and its respective search column
  '  dicar5(Columns(ar5(i)).Column) = i
  'Next
  
  'data DSMT - Managed Segment ID Range
  lr2 = sh1.Cells.Find("*", , xlValues, xlPart, , xlPrevious).Row
  'lr4 = sh1.Cells.Find("*", , xlValues, xlPart, , xlPrevious).Row
  a = sh1.Range("A4", sh1.Range("CC" & lr2)).Value
  'e = sh1.Range("A4", sh1.Range("CF" & lr4)).Value
  
  'stores MS_Level_ID in dictionary and the column to which it belongs
  For j = 1 To UBound(a, 2) Step 3
    For i = 1 To UBound(a, 1)
      If a(i, j) = "" Then Exit For
      dic(a(i, j)) = j + 0      'move 0 because start in column A
    Next
  Next
  
'  'stores MS_Level_Name in dictionary and the column to which it belongs
'  For j = 1 To UBound(e, 2) Step 3
'    For i = 1 To UBound(e, 1)
'      If e(i, j) = "" Then Exit For
'      dic4(e(i, j)) = j + 1     'move 1 because start in column B
'    Next
'  Next
  
  'check column "HL" - Managed Segment (Home)- NodeNumber
  For i = 1 To UBound(b1, 1)
    lv = Replace(b1(i, 1), ")", "(")
    lv2 = Split(lv, "(")
    For Each lv2 In Split(lv, "(")
      If dic.exists("(" & lv2 & ")") Then
        cola = dic("(" & lv2 & ")")     'gets column to which it belongs
        colb = dicar1(cola)             'gets the column where the x is to be placed
        b2(i, colb) = "X"
      End If
    Next
  Next
  
  'check column "IY" - Managed Segment (Impacted)-Node Number
  For i = 1 To UBound(b3, 1)
    lv = Replace(b3(i, 1), ")", "(")
    lv2 = Split(lv, "(")
    For Each lv2 In Split(lv, "(")
      If dic.exists("(" & lv2 & ")") Then
        cola = dic("(" & lv2 & ")")     'gets column to which it belongs
        colb = dicar1(cola)             'gets the column where the x is to be placed
        b4(i, colb) = "X"
      End If
    Next
  Next
  
  'check column "IE" - Managed Segment Hierarchy (Home)
'  For i = 1 To UBound(b7, 1)
'    lv4 = Split(b7, "--")
'    For Each lv4 In Split(b7, "--")
'        If dic4.exists(lv4) Then
'          cola = dic4(lv4)
'          colb = dicar5(cola)
'          b7(i, colb) = "X"
'        End If
'    Next
'  Next
  
  'check column "JS" - Managed Segment Hierarchy (Impacted)
 ' For i = 1 To UBound(b9, 1)
 '   lv3 = Replace(b9(i, 1), "--", "--")
 '   lv4 = Split(lv3, "--")
 '   For Each lv4 In Split(lv3, "--")
 '     If dic4.exists("--" & lv4 & "--") Then
 '       cola = dic4("--" & lv4 & "--")     'gets column to which it belongs
 '       colb = dicar5(cola)             'gets the column where the x is to be placed
 '       b9(i, colb) = "X"
 '     End If
 '   Next
 ' Next
  
  'data DSMT-SOEID List
  lr3 = sh1.Cells.Find("*", , xlValues, xlPart, , xlPrevious).Row
  C = sh1.Range("CM4", sh1.Range("GE" & lr3)).Value
  
  'stores MS_Level_ID in dictionary and the column to which it belongs
  For j = 1 To UBound(C, 2) Step 3
    For i = 1 To UBound(C, 1)
      If C(i, j) = "" Then Exit For
      dic2(C(i, j)) = j + 90      'more 90 because start in column CM
    Next
  Next

  'check column "KM"
  For i = 1 To UBound(b5, 1)
    lv = Replace(b5(i, 1), ")", "(")
    lv2 = Split(lv, "(")
    For Each lv2 In Split(lv, "(")
      If dic2.exists("(" & lv2 & ")") Then
        cola = dic2("(" & lv2 & ")")     'gets column to which it belongs
        colb = dicar3(cola)             'gets the column where the x is to be placed
        b6(i, colb) = "X"
      End If
    Next
  Next
  
  sh1.Range("GU3").Resize(UBound(b2, 1), UBound(b2, 2)).Value = b2
  sh1.Range("IH3").Resize(UBound(b4, 1), UBound(b4, 2)).Value = b4
  sh1.Range("JV3").Resize(UBound(b6, 1), UBound(b6, 2)).Value = b6

'Define Variables
Dim lrow As Long
lrow = Range("GT" & Rows.Count).End(xlUp).Row

'Disbale Excel properties while macrro runs
With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
    .ScreenUpdating = False
End With

'Formula to Flag Managed Segment Hierarchy (Home)
    Range("HN3:HN" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_CTI&""*"")),""X"","""")"
    Range("HO3:HO" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_CAO&""*"")),""X"","""")"
    Range("HP3:HP" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_CSS&""*"")),""X"","""")"
    Range("HQ3:HQ" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_CISO&""*"")),""X"","""")"
    Range("HR3:HR" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_COO&""*"")),""X"","""")"
    Range("HS3:HS" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_Chng_Mngmnt&""*"")),""X"","""")"
    Range("HT3:HT" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_Other&""*"")),""X"","""")"
    Range("HU3:HU" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_GFT&""*"")),""X"","""")"
    Range("HV3:HV" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_OpExcellence&""*"")),""X"","""")"
    Range("HW3:HW" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_Business_Simplification&""*"")),""X"","""")"
    Range("HX3:HX" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_PBWM_Ops&""*"")),""X"","""")"
    Range("HY3:HY" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_PBWM_Tech&""*"")),""X"","""")"
    Range("HZ3:HZ" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_NAme_ICG_Ops&""*"")),""X"","""")"
    Range("IA3:IA" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_ICG_Tech&""*"")),""X"","""")"
    Range("IB3:IB" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_Business&""*"")),""X"","""")"
    Range("IC3:IC" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_LF_PBWM_Ops&""*"")),""X"","""")"
    Range("ID3:ID" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC239,""*""&MS_ID_Name_LF_PBWM_Tech&""*"")),""X"","""")"
    
'Formula to Flag Managed Segment Hierarchy (Impacted)
    Range("JB3:JB" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_CTI&""*"")),""X"","""")"
    Range("JC3:JC" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_CAO&""*"")),""X"","""")"
    Range("JD3:JD" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_CSS&""*"")),""X"","""")"
    Range("JE3:JE" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_CISO&""*"")),""X"","""")"
    Range("JF3:JF" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_COO&""*"")),""X"","""")"
    Range("JG3:JG" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_Chng_Mngmnt&""*"")),""X"","""")"
    Range("JH3:JH" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_Other&""*"")),""X"","""")"
    Range("JI3:JI" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_GFT&""*"")),""X"","""")"
    Range("JJ3:JJ" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_OpExcellence&""*"")),""X"","""")"
    Range("JK3:JK" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_Business_Simplification&""*"")),""X"","""")"
    Range("JL3:JL" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_PBWM_Ops&""*"")),""X"","""")"
    Range("JM3:JM" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_PBWM_Tech&""*"")),""X"","""")"
    Range("JN3:JN" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_NAme_ICG_Ops&""*"")),""X"","""")"
    Range("JO3:JO" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_ICG_Tech&""*"")),""X"","""")"
    Range("JP3:JP" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_Business&""*"")),""X"","""")"
    Range("JQ3:JQ" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_LF_PBWM_Ops&""*"")),""X"","""")"
    Range("JR3:JR" & lrow).Formula2R1C1 = "=IF(OR(COUNTIF(RC279,""*""&MS_ID_Name_LF_PBWM_Tech&""*"")),""X"","""")"

With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
End With

'Copy Formula and Paste Special Values - Remove Formula
    Range("HN3:ID3" & lrow).Copy
    Range("HN3:ID3" & lrow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    Range("JB3:JR3" & lrow).Copy
    Range("JB3:JR3" & lrow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Range("KP1").Select
    

MsgBox ("Macro is Finished")

End Sub

Thank you,
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.
Sort by date Sort by votes
Please tell us the overall objective you're attempting to achieve.
Trying to read all this code to see the objective is hard to do.
 
Upvote 0
The far loop causes time delay. It is difficult without knowing data to alter the code. If possible Upload sample file showing the expected results. Explain 1 or examples.
 
Upvote 0
Hello,

The end result is to have 'X''s marked in particular columns as it finds a match in various tables within the same sheet 'DSMT List'.
- check column "IE" - Managed Segment Hierarchy (Home) ... X result goes in HN3:ID (rows varies)
- check column "JS" - Managed Segment Hierarchy (Impacted) ... X result goes in JB3:JR (rows varies)

I commented the below sections in the original code because I couldn't get it to work.
VBA Code: 
  'check column "IE" - Managed Segment Hierarchy (Home)
'  For i = 1 To UBound(b7, 1)
'    lv4 = Split(b7, "--")
'    For Each lv4 In Split(b7, "--")
'        If dic4.exists(lv4) Then
'          cola = dic4(lv4)
'          colb = dicar5(cola)
'          b7(i, colb) = "X"
'        End If
'    Next
'  Next
  
  'check column "JS" - Managed Segment Hierarchy (Impacted)
 ' For i = 1 To UBound(b9, 1)
 '   lv3 = Replace(b9(i, 1), "--", "--")
 '   lv4 = Split(lv3, "--")
 '   For Each lv4 In Split(lv3, "--")
 '     If dic4.exists("--" & lv4 & "--") Then
 '       cola = dic4("--" & lv4 & "--")     'gets column to which it belongs
 '       colb = dicar5(cola)             'gets the column where the x is to be placed
 '       b9(i, colb) = "X"
 '     End If
 '   Next
 ' Next



Also commented these sections out that's supposed to place data to be used for the above to compare to:
VBA Code: 
  'data DSMT - Managed Segment ID Range
  lr2 = sh1.Cells.Find("*", , xlValues, xlPart, , xlPrevious).Row
  'lr4 = sh1.Cells.Find("*", , xlValues, xlPart, , xlPrevious).Row
  a = sh1.Range("A4", sh1.Range("CC" & lr2)).Value
  'e = sh1.Range("A4", sh1.Range("CF" & lr4)).Value
  
  'stores MS_Level_ID in dictionary and the column to which it belongs
  For j = 1 To UBound(a, 2) Step 3
    For i = 1 To UBound(a, 1)
      If a(i, j) = "" Then Exit For
      dic(a(i, j)) = j + 0      'move 0 because start in column A
    Next
  Next
  
'  'stores MS_Level_Name in dictionary and the column to which it belongs
'  For j = 1 To UBound(e, 2) Step 3
'    For i = 1 To UBound(e, 1)
'      If e(i, j) = "" Then Exit For
'      dic4(e(i, j)) = j + 1     'move 1 because start in column B
'    Next
'  Next


I was trying to mimic the same code as below that works perfectly for two other columns it's comparing:
VBA Code: 
  'check column "HL" - Managed Segment (Home)- NodeNumber
  For i = 1 To UBound(b1, 1)
    lv = Replace(b1(i, 1), ")", "(")
    lv2 = Split(lv, "(")
    For Each lv2 In Split(lv, "(")
      If dic.exists("(" & lv2 & ")") Then
        cola = dic("(" & lv2 & ")")     'gets column to which it belongs
        colb = dicar1(cola)             'gets the column where the x is to be placed
        b2(i, colb) = "X"
      End If
    Next
  Next
  
  'check column "IY" - Managed Segment (Impacted)-Node Number
  For i = 1 To UBound(b3, 1)
    lv = Replace(b3(i, 1), ")", "(")
    lv2 = Split(lv, "(")
    For Each lv2 In Split(lv, "(")
      If dic.exists("(" & lv2 & ")") Then
        cola = dic("(" & lv2 & ")")     'gets column to which it belongs
        colb = dicar1(cola)             'gets the column where the x is to be placed
        b4(i, colb) = "X"
      End If
    Next
  Next

- Examples of what you have in this range is located in columns A4:CF (rows varies)
MS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness NameMS Level IDBusiness Name
(9900592)Business Simplification(27318)COO(20486)CISO(8163)CSS(27825)CTI(16312)EIO&T Change Management(6804)CAO(26042)PBWM Operations(22823)PBWM Technology(27317)GFT(22939)ICG Operations(22941)ICG Technology(4463)Non O&T Business(6647)O&T Other(28016)Operational Effectiveness(29034)LF - PBWM Operations(29032)LF - PBWM Technology
(27795)Business Simplification(9906808)COO(9923956)CISO(9920488)CSS(6719)CTI(20483)EIO&T Change Management(20485)CAO(22626)PBWM Operations(9900462)PBWM Technology(28606)GFT(4349)ICG Operations(9905510)ICG Technology(24739)Non O&T Business(9921842)O&T Other(9914268)Operational Effectiveness(9900753)LF - PBWM Operations(9900743)LF - PBWM Technology
(28082)Business Simplification(17786)COO(9900602)CISO(9906642)CSS(14772)CTI(9922130)EIO&T Change Management(9900630)CAO(14251)PBWM Operations(9905979)PBWM Technology(9900611)GFT(24908)ICG Operations(9900284)ICG Technology(28614)Non O&T Business(6667)O&T Other(14269)Operational Effectiveness(9900751)LF - PBWM Operations(9900740)LF - PBWM Technology
(28083)Business Simplification(9916865)COO(9900827)CISO(9908165)CSS(27826)CTI(7036)EIO&T Change Management(9923623)CAO(25811)PBWM Operations(9900465)PBWM Technology(9900604)GFT(4320)ICG Operations(27281)ICG Technology(16803)Non O&T Business(6677)O&T Other(28018)Operational Effectiveness(9900750)LF - PBWM Operations(9900739)LF - PBWM Technology
(28085)Business Simplification(9900631)COO(9900343)CISO(9908260)CSS(16387)CTI(9918243)EIO&T Change Management(9900341)CAO(9900030)PBWM Operations(9900466)PBWM Technology(9906753)GFT(27315)ICG Operations(26202)ICG Technology(5216)Non O&T Business(6678)O&T Other(24706)Operational Effectiveness(29039)LF - PBWM Operations(9900741)LF - PBWM Technology

- Examples of what you have in these cells is located in cells CI5:GE (rows varies)
EO&TPBWMICGBusinessLF
EO&TPBWMICGBusinessLFEO&TPBWMICGLFBusiness18 OUT OF 37 DO NOT HAVE SOEID
CTICAOCSSCISOCOOEIO&T Change ManagementO&T OtherGFTOperational ExcellenceBusiness SimplificationPBWM OperationsPBWM TechnologyICG OperationsICG TechnologyNon-O&T BusinessLF - PBWM OperationsLF - PBWM - TechnologyManaged Segment (Home)- NodeNumberAudit NumberCTICAOCSSCISOCOOEIO&T Change ManagementO&T OtherGFTOperational ExcellenceBusiness SimplificationPBWM OperationsPBWM TechnologyICG OperationsICG TechnologyNon-O&T BusinessLF - PBWM OperationsLF - PBWM - TechnologyManaged Segment (Impacted)-Node NumberCTICAOCSSCISOCOOEIO&T Change ManagementO&T OtherGFTOperational ExcellenceBusiness SimplificationPBWM OperationsPBWM TechnologyICG OperationsICG TechnologyLF - PBWM OperationsLF - PBWM TechnologyNon-O&T BusinessAccountable Executive
Reporting Operations [L7](23817) - 23817|FRSS Management [L7](27803) - 27803|Capital Planning [L7](27816) - 27816A470410Nitta,Kenichiro (KN17516)
ICRM-ICG Markets & Securities Services [L8](23427) - 23427|ICRM - Global Management [L6](9914523) - 9914523A521178Independent Compliance Risk Management [L5](5159) - 5159|Independent Compliance Risk Management [L5](5159) - 5159|Independent Compliance Risk Management [L5](5159) - 5159|Independent Compliance Risk Management [L5](5159) - 5159|Independent Compliance Risk Management [L5](5159) - 5159Linnett,James (JL99778)|Riley,Stuart (SR44185)|Adams,James (JA54828)|Zafar,Shadman (SZ82084)
Global Consumer Business Operational Risk & Control [L7](9921513) - 9921513|ICRM-Prudential Testing [L7](24749) - 24749|Risk Retail Bank & Mortgage [L9](27478) - 27478|Employee Fulfillment [L13](24753) - 24753|MSS Risk & Control [L9](978) - 978|Business Controls & Risk [L8](20278) - 20278|Retail/Holdings Tech Global [L9](25337) - 25337|North America Consumer Bank Operations [L8](9900030) - 9900030|Core Operations [L9](28363) - 28363|ICRM PBWM Cards [L7](5181) - 5181|Wealth [L7](9914490) - 9914490|ICRM-Bank Regulatory [L8](27440) - 27440A404991Other Citi Markets Management [L6](24122) - 24122|PB Business [L7](24656) - 24656|Wealth [L7](9914490) - 9914490|Macys [L7](8848) - 8848|Citi Retail Services [L6](9908839) - 9908839|Co-Branded Cards [L7](24587) - 24587|Consumer Mortgages [L6](25371) - 25371|Retail Banking excl. Mortgages & Unsecured [L6](4587) - 4587Chung,Claire (CC32547)|Kane,Declan (DK29910)

Let me know if I need to provide more information.
Hope that helps.
 
Upvote 0
Hello,

Just checking in to see if anyone is able to help with this macro that takes long to run when i have approximately 900 rows of data.
See above post from June 30th and let me know if further information is needed.


Thank you,
 
Upvote 0
With such big data, helpers may find difficult to test, without sample worksheet.
Could you upload again via XL2BB, or attach file via google drive?
www.mrexcel.com

XL2BB - Excel Range to BBCode

Excel 'mini-sheet' in messages - XL2BB Although experts prefer to read your description and question instead of working in your actual file to solve your problem, there are times that it is difficult to explain an issue without providing actual...
www.mrexcel.com www.mrexcel.com
 
Upvote 0
Hello,

I can't upload data, but I will work on some dummy data to upload for testing. I will update this data by tomorrow.
 
Upvote 0
You must log in or register to reply here.

Similar threads

Guinaba
  • Question Question
Tunning a VBA macro
Replies
1
Views
86
Skyybot
Skyybot
M
  • Question Question
VBA Code error - Invalid procedure call or argument
Replies
3
Views
2K
MHamid
M
M
  • Question Question
Handling Named Range in VBA Formula
Replies
6
Views
933
Fluff
Fluff
P
  • Question Question
putting a snippet of code from one to another somehow
Replies
5
Views
304
Patriot2879
P
H
  • Solved
Macro to display message end of Code where Col D contains blanks
Replies
7
Views
539
howard
H

Forum statistics

Threads
1,223,881
Messages
6,175,159
Members
452,615
Latest member
bogeys2birdies

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top