Finding Max Value with a Loop

**Oxco** · 04-28-2013, 05:17 AM

Hi Holger,

I meant I could not run the code you post it;

Sub DeleteValues()
Dim wsList As Worksheet
Dim wsData As Worksheet
Dim rngFound As Range
Dim lngCounter As Long

Set wsList = Sheets("Sorted Like That")
Set wsData = Sheets("View for Sheet-1")

For lngCounter = 1 To 5
  Set rngFound = wsData.UsedRange.Find(what:=wsList.Cells(lngCounter, "A").Value)
  If Not rngFound Is Nothing Then
    rngFound.ClearContents
  End If
Next lngCounter

Set wsData = Nothing
Set wsList = Nothing
End Sub

I have no experience and knowledge about any coding language. The example file is a small version of my project but I can not progress. And that's the situation.

Thanks for your interest.

**HaHoBe** · 04-28-2013, 05:53 AM

Hi, Oxco,

the posted code would not have any effect on your sheets as the worksheets mentioned do not exist in the sample.

Sub EF918635_Post_11_re()
Dim wsData As Worksheet
Dim rngFound As Range
Dim rngSearch As Range
Dim lngCounter As Long

Set wsData = Sheets("Sayfa1")
Set rngSearch = wsData.Range("B2:F6")

For lngCounter = 1 To 5
  Set rngFound = rngSearch.Find(what:=WorksheetFunction.Large(rngSearch, lngCounter))
  If Not rngFound Is Nothing Then
    MsgBox "Number " & lngCounter & " found in " & rngFound.Address(0, 0) & vbCrLf & _
        "for Row " & wsData.Cells(rngFound.Row, 1) & " and Column " & wsData.Cells(1, rngFound.Column)
'    rngFound.ClearContents
  End If
Next lngCounter

Set rngFound = Nothing
Set rngSearch = Nothing
Set wsData = Nothing
End Sub

Ciao,
Holger