Beste Tweakers,
Ik hoop dat jullie zo handig zijn om mij te helpen met de macro code.
Wat ik wil bereiken met een knop:
Ik heb 2 waardes in bijv A1(voornaam) A2 (achternaam). Deze waardes moet de macro opzoeken in 1 van de 3 sheets(West A, West B, West C) als de waardes (achternaam( A ) en voornaam( B ) welke in kolom A/B kloppen met die van A1 en A2 kloppen dan moet de macro de rij leegmaken (clearcontents)
Ik heb alles al doorgespit en heb tot nu toe nog dit:
Dat is mijn eerste probleem.
Ik hoop dat jullie mij kunnen helpen. Ik kom niet echt verder.
Alvast bedankt,
Frank
Ik hoop dat jullie zo handig zijn om mij te helpen met de macro code.
Wat ik wil bereiken met een knop:
Ik heb 2 waardes in bijv A1(voornaam) A2 (achternaam). Deze waardes moet de macro opzoeken in 1 van de 3 sheets(West A, West B, West C) als de waardes (achternaam( A ) en voornaam( B ) welke in kolom A/B kloppen met die van A1 en A2 kloppen dan moet de macro de rij leegmaken (clearcontents)
Ik heb alles al doorgespit en heb tot nu toe nog dit:
Dit is alleen nog om te testen op 1 waarde alleen hij verwijderd niet de rij van de west A maar die van de pagina op de sheet 1.Sub Find_First()
Dim FindString As String
Dim Rng As Range
Dim FoundCell As Range
FindString = Sheets(sheet1").Range("a4").Value
If Trim(FindString) <> "" Then
With Sheets("west A").Range("B:Z")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Rng Is Nothing Then
Debug.Print "Value Not Found"
Else
For Each FoundCell In Rng
Range(Rng.Address(False, False)).Select.ActiveSheet
Selection.EntireRow.ClearContents
Next FoundCell
End If
End With
End If
End Sub
Dat is mijn eerste probleem.
Ik hoop dat jullie mij kunnen helpen. Ik kom niet echt verder.
Alvast bedankt,
Frank