salam::
aap ko post#7 m jo code deya tha us ko is code se change kar dain.
Code:
Option Explicit
Dim CellToCheck As Range
Dim CheckValue As String
Dim Cell As Range
Private Sub Worksheet_Change(ByVal Target As Range)
For Each CellToCheck In Sheets("Sheet1").Range("b1:b200")
CheckValue = CellToCheck.Value & CellToCheck.Offset(0, 1).Value
For Each Cell In Sheets("Sheet2").Range("b1:b200")
If Cell.Value & Cell.Offset(0, 1).Value = CheckValue Then
Cell.EntireRow.Delete
End If
Next Cell
Next CellToCheck
End Sub
m ne aap ki post dosre forum pa bhe deekhe ha.
Is code ko enter karne k leye aap sheet1 k tab par right clik karain aur view code select kar k ye code paste kar dain.
Ab aap jaise he column b m data enter karain ga agar wo sheet2 k column "B" m hoga tu delete ho gae ga.
post#8 m jo code lekha ha us ko waise he istimal karain.
agar screen shot ki zaroorat pare tu m mazrat chahta hon mujh ko dena nahee ata. App habibrahat se request karain wo xl2007 istimal karte hain wo aapko screen shot k sath samjha dainge.
Bookmarks