RekenwonderNiels
Gebruiker
- Lid geworden
- 29 jul 2016
- Berichten
- 26
Dag iedereen,
Ik heb een probleempje met VBA, ik wil in werkblad 1 een naam meenemen naar werkblad 2 en daar in kolom 4 deze naam zoeken.
Als de naam gevonden is, moet de hele regel worden verwijdert.
De naam kan vaker voorkomen, dus het zoeken en verwijderen in een loop.
Als de naam niet meer voorkomt sluit werkblad 2 af.
Ik heb helaas nog weinig ervaring met VBA en begrijp de functie string nog maar half.. maar ik denk dat dit de oplossing is, ik krijg het alleen niet aan de praat.
Ik hoop dat mijn vraag duidelijk is, en er een oplossing is.
Groeten Niels
Ik heb een probleempje met VBA, ik wil in werkblad 1 een naam meenemen naar werkblad 2 en daar in kolom 4 deze naam zoeken.
Als de naam gevonden is, moet de hele regel worden verwijdert.
De naam kan vaker voorkomen, dus het zoeken en verwijderen in een loop.
Als de naam niet meer voorkomt sluit werkblad 2 af.
Ik heb helaas nog weinig ervaring met VBA en begrijp de functie string nog maar half.. maar ik denk dat dit de oplossing is, ik krijg het alleen niet aan de praat.
Code:
Sub Verzendlijstwissen()
'niet in gebruik, (werkt niet)
' Dim monteur As Range
' Set monteur = Range("D10:E10")
ActiveWorkbook.FollowHyperlink Address:=Range("A1"), NewWindow:=True
'Cells(Application.WorksheetFunction.Match(monteur, Columns(1), 0), 4).EntireRow.Select
MSG = "LET OP! weet u zeker dat u alle gegevens uit de verzendlijst wild wissen?"
Style = vbYesNo + vbDefaultButton2
Title = "verzendlijst wissen"
Response = MsgBox(MSG, Style, Title)
If Response = vbNo Then GoTo afsluiten
'nu los ik het nog op deze manier op. maar dit verwijdert de gegevens van alle gebruikers:
Rows("2:999").EntireRow.Delete
Range("A1").Select
MsgBox "Alle monteursticker printopdrachten zijn gewist"
afsluiten:
ActiveWorkbook.Close SaveChanges:=True
End SubIk hoop dat mijn vraag duidelijk is, en er een oplossing is.
Groeten Niels
Laatst bewerkt:
