Delete data if comment NOT IN SYSTEM

[makinmomb]

Macro addition to do the following

Delete data c and d , if D has comment NOT IN SYSTEM

[makinmomb]

Cl515a35 not in system
cl515a36 not in system
cl515a37
cl515a38
cl515a39
cl515a40
cl515a41 not in system
cl515a42 not in system
cl515a43 not in system
cl515a44 not in system
cl515a45 not in system

cl519rd35 not in system
cl519rd36
cl519rd37
cl519rd38 not in system
cl519rd39 not in system
cl519rd40 not in system
cl519rd41 not in system
cl519rd42 not in system
cl519rd43 not in system
cl519rd44 not in system
cl519rd45 not in system

[makinmomb]

If it does correctly it will convert the above data in the file to

cl515a37
cl515a38
cl515a39
cl515a40

cl519rd36
cl519rd37

[makinmomb]

How do you push this thread to macros , I posted it here by mistake

[JohnTopley]

Try ...

Please Login or Register  to view this content.

[makinmomb]

John this will work but can you please combine it into my existing macro that is

Sub Macro1()
   Dim myDic As Object, lRow As Long, r As Long
   Dim myShoe As String, i As Integer
   Dim destRow As Long, elem As Variant
  
   Set myDic = CreateObject("scripting.dictionary")
   
   With ThisWorkbook.ActiveSheet
      lRow = .Cells(Rows.Count, 1).End(xlUp).Row
      
      If lRow > 1 Then
         For r = 1 To lRow
            myShoe = UCase(Trim(.Cells(r, 1)))
            myShoe = Left(myShoe, Len(myShoe) - 2)
            If Not myDic.exists(myShoe) Then
               myDic.Add Item:="", Key:=myShoe
            End If
         Next
            
         
         For Each elem In myDic.keys
            For i = 35 To 45
               destRow = destRow + 1
               .Cells(destRow, 3) = elem & i
            Next i
            destRow = destRow + 1
         Next elem
      End If
   End With
End Sub 

[makinmomb]

Thanks John Topley , I will run it as separate ,
It does what I need