Regel verwijderen

[Hoornvan]

Jack Nouws,

Ik heb het op deze manier gedaan, kijk maar eens
En vertel me eens wat je er van vind

.
Ik moet eerlijk zeggen het ziet er mooi uit.
Ik heb hem laten werken en stuitte op een foutje, hij miste een End If.

In mijn file heb ik misschien niet de schoonheids prijs voor de oplossing maar het werkt wel.
Even een vraag over iets anders, Kweken jullie ook Fruitbomen?

 

[Hoornvan]

Jack Nouws,

Ik heb bij mij even die gemiste End If erbij gezet en nog eens geprobeerd en kom tot de conclusie dat hij de gegevens niet op de lijn veranderd maar onder je uitleg schrijft.
Is dat wel de bedoeling?

 

[Jack Nouws]

Jack Nouws,

Ik heb bij mij even die gemiste End If erbij gezet en nog eens geprobeerd en kom tot de conclusie dat hij de gegevens niet op de lijn veranderd maar onder je uitleg schrijft.
Is dat wel de bedoeling?

Ik had het verkeerde bestand verstuurd. Nu wel de goede!

 

[Hoornvan]

Je moet hem wel bijvoegen

 

[Hoornvan]

Jack Nouws,

Als de file boven de 100 MB komt moet je hem inpakken.

 

[Jack Nouws]

Jack Nouws,

Als de file boven de 100 MB komt moet je hem inpakken.

Als nog dan

 

[Hoornvan]

Jack Nouws,

Als ik in deze macro laat een breekpunt zet en met F8 laat lopen dan blijft hij constand op de zelfde regels lopen zonder uit de macro te gaan.
Het is trouwens niet de file Kopie van Map2, waar je zegt dat je de verkeerde had gestuurd.

 

[Jack Nouws]

Jack Nouws,

Als ik in deze macro laat een breekpunt zet en met F8 laat lopen dan blijft hij constand op de zelfde regels lopen zonder uit de macro te gaan.
Het is trouwens niet de file Kopie van Map2, waar je zegt dat je de verkeerde had gestuurd.

Ik heb de plaatsing van Unload Me verplaatst.

Private Sub verwijder_Click()
Dim c As Range

Application.ScreenUpdating = False

naam1 = txtBedrijfsnaam.Text & " " & txtNaam.Text

If naam1 <> "" Then

    response = MsgBox("Weet u zeker dat u '" & naam1 & "' uit Klantenbestand wilt verwijderen?", vbYesNo, Title:="Gegevens wijzigen!")
        
        If response = vbNo Then
         MsgBox ("Gegevens van  '" & naam1 & " ' is NIET uit Klantenbestand verwijderd!")
            Unload Me
        Else
            For Each c In Worksheets("Klanten").Range("D4:D100")
                If c.Value = txtNaam.Text Then
                      Unload Me 'ik heb dit verplaatst
                    c.EntireRow.Delete
                MsgBox ("Gegevens van  '" & naam1 & " ' is uit Klantenbestand verwijderd!")
                End If
            Next
        End If
End If
        
Application.ScreenUpdating = True

End Sub

 

[Warme bakkertje]

Jack, om de code te stoppen bij een lege klantnaam wijzig als volgt

Private Sub verwijder_Click()
Dim c As Range
Application.ScreenUpdating = False
If zoeknaam = "" Then
    MsgBox ("Je moet eerst een klant selecteren!")
    Exit Sub
Else
    naam1 = txtBedrijfsnaam.Text & " " & txtNaam.Text
    response = MsgBox("Weet u zeker dat u '" & naam1 & "' uit Klantenbestand wilt verwijderen?", vbYesNo, Title:="Gegevens wijzigen!")
        If response = vbNo Then
            MsgBox ("Gegevens van  '" & naam1 & " ' is NIET uit Klantenbestand verwijderd!")
            Unload Me
        Else
            For Each c In Worksheets("Klanten").Range("D4:D100")
                If c.Value = txtNaam.Text Then
                      Unload Me 'ik heb dit verplaatst
                    c.EntireRow.Delete
                MsgBox ("Gegevens van  '" & naam1 & " ' is uit Klantenbestand verwijderd!")
                End If
            Next
        End If
End If
Application.ScreenUpdating = True
End Sub

Mvg

Rudi

 

[Hoornvan]

Jack Nouws,

c.EntireRow.Delete
 MsgBox ("Gegevens van  '" & naam1 & " ' is uit Klantenbestand verwijderd!")
 [COLOR="Red"]Exit Sub[/COLOR]
 End If

Ik moest even weg dus reageer ik wat laat.
Om het eindeloos over de regels te lopen heb ik het rode er tussen geplaatst.

 

[Jack Nouws]

Jack, om de code te stoppen bij een lege klantnaam wijzig als volgt

Private Sub verwijder_Click()
Dim c As Range
Application.ScreenUpdating = False
If zoeknaam = "" Then
    MsgBox ("Je moet eerst een klant selecteren!")
    Exit Sub
Else
    naam1 = txtBedrijfsnaam.Text & " " & txtNaam.Text
    response = MsgBox("Weet u zeker dat u '" & naam1 & "' uit Klantenbestand wilt verwijderen?", vbYesNo, Title:="Gegevens wijzigen!")
        If response = vbNo Then
            MsgBox ("Gegevens van  '" & naam1 & " ' is NIET uit Klantenbestand verwijderd!")
            Unload Me
        Else
            For Each c In Worksheets("Klanten").Range("D4:D100")
                If c.Value = txtNaam.Text Then
                      Unload Me 'ik heb dit verplaatst
                    c.EntireRow.Delete
                MsgBox ("Gegevens van  '" & naam1 & " ' is uit Klantenbestand verwijderd!")
                End If
            Next
        End If
End If
Application.ScreenUpdating = True
End Sub

Mvg

Rudi

Hallo Rudi,

Er wordt gezegd om zo weinig mogelijk van select gebruik te maken.
Hoe kun je deze macro nog anders weer geven.
Ik heb hem al behoorlijk ingekort.

Sub Macro2()
    Dim cel As Range
    Range("C3", Range("C65536").End(xlUp)).Select
    Selection.sort key1:=Range("D4"), order1:=xlAscending, Header:=xlYes
    Range("A4").Select
End Sub

 

[Warme bakkertje]

Sub Macro2()
    Range("C3", Range("C65536").End(xlUp)).Sort key1:=Range("D4"), order1:=xlAscending, Header:=xlYes
    [A4].Select
End Sub

Mvg

Rudi