Open another workbook and delete row based on data entry on active workbook

[Musto85]

Hi all

I am looking for a code to:

-Get the name entered in cell C4 of the workbook currently open (Data Entry)
-Then open workbook named “Reports” and look through the table on "Sheet1" in column A for the cell matching the value of C4
-When found delete entire row



I post the code below jusy as a reference, this adds data on workbook2 based on a data entry in workbook1.

Thanks in advance for your help!!!

Dim wb1 As Workbook, wb2 As Workbook
Dim destSht As Worksheet, shSet As Worksheet

Dim Wind, Wind2 As Window

Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Open("P:\Report\Structure\Reports.xlsm")
Set destSht = wb2.Worksheets("Sheet1")
Set Wind2 = Windows("Reports.xlsm")
Set Wind = Windows(ThisWorkbook.Name)

Wind.WindowState = xlMinimized

 With ThisWorkbook.Worksheets("Data_Entry")
 With .Range(.Range("H4:M4"), .Range("H4:M4").End(xlDown))
 
Wind2.WindowState = xlMinimized
                      
    destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6).Value = .Value
        
        End With
        End With

 

[Alex Blakenburg]

Give this a try:

Sub DeleteRow()
    Dim entWB As Workbook, destWB As Workbook
    Dim entSht As Worksheet, destSht As Worksheet
    Dim destRow As Long
   
    Set entWB = ThisWorkbook
    Set entSht = entWB.Worksheets("Data_Entry")
    Set destWB = Workbooks.Open("P:\Report\Structure\Reports.xlsm")
    Set destSht = destWB.Worksheets("Sheet1")
   
    With Application
        destRow = .IfError(.Match(entSht.Range("C4"), destSht.Columns("A"), 0), 0)
    End With
   
    If destRow <> 0 Then destSht.Rows(destRow).Delete
       
End Sub

 

[Musto85]

Thanks Alex that works!

However if I use the same code but for data both to read (K15) and delete (Table Column "i" instead of "A") on the same sheet it doesn't work!
Can you see where I am wrong?
This is the code:

Dim entWB As Workbook
Dim entSht As Worksheet
Dim destRow As Long
   
Set entWB = ThisWorkbook
Set entSht = entWB.Worksheets("Management")


With Application
    destRow = .IfError(.Match(entSht.Range("K15"), entSht.Columns("i"), 0), 0)
End With
   
If destRow <> 0 Then entSht.Rows(destRow).Resize(ColumnSize:=1).Delete

 

[Alex Blakenburg]

I am unclear as to what you are trying to delete.
The original code looked for the value that was in C4 in Column A in a differrent workbook and sheet.
It then deleted the row is was found on.

Your code is looking for the value that is in K15 in Column I of the "same" sheet.
From your code I can't tell what you want it to on the row that matches K15.

Please clarify.