• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

gegevens wijzigen

Status
Niet open voor verdere reacties.
Jack Nouws

Jack Nouws

Terugkerende gebruiker
Lid geworden
16 apr 2008
Berichten
1.396
Hallo

Ik heb een code waarin gegevens gewijzigd moeten kunnen worden maar wanneer ik de code uitvoer worden alleen de gegevens in de eerste 2 kolommen gewijzigd. Waarom worden de gegevens in de overige kolommen niet gewijzigd?

Met vr gr
Jack

Code: 
Private Sub voegtoe_Click()
    ActiveSheet.Unprotect
    ScreenUpdating = False
        With Worksheets("Klanten").Range("D4:D500") '.End(xlUp).Row
        Set WS = .Find(zoeknaam.Text, LookIn:=xlValues, LookAt:=xlWhole)
        WS.Select
        Cells(WS.Row, "C").Value = FrmKlantWijzigen.txtBedrijfsnaam.Text
        Cells(WS.Row, "D").Value = FrmKlantWijzigen.txtNaam.Text
        Cells(WS.Row, "E").Value = FrmKlantWijzigen.txtAdres.Text
        Cells(WS.Row, "F").Value = FrmKlantWijzigen.txtHnr.Text
        Cells(WS.Row, "G").Value = FrmKlantWijzigen.txtPC.Text
        Cells(WS.Row, "H").Value = FrmKlantWijzigen.txtPlaats.Text
        Cells(WS.Row, "I").Value = FrmKlantWijzigen.txtTel.Text
        Cells(WS.Row, "J").Value = FrmKlantWijzigen.txtFax.Text
        Cells(WS.Row, "K").Value = FrmKlantWijzigen.txtGsm.Text
        Cells(WS.Row, "L").Value = FrmKlantWijzigen.txtMail.Text
        Cells(WS.Row, "M").Value = FrmKlantWijzigen.txtWeb.Text
        End With
ScreenUpdating = True

    If txtNaam <> "" Then
        MsgBox ("Gegevens van " & txtBedrijfsnaam & " " & txtNaam & " zijn gewijzigd!")
    End If

    Unload Me
    ActiveSheet.Protect

End Sub
Klik om te vergroten...
 
Jack Nouws, Heb je je code al 'ns met F8 doorlopen? Dan kan je regel voor regel de resultaten zien.

Groet, Leo
 
Ginger zei:
Jack Nouws, Heb je je code al 'ns met F8 doorlopen? Dan kan je regel voor regel de resultaten zien.

Groet, Leo
Klik om te vergroten...

Ja, dat heb ik net gedaan maar aangezien dat ik niet echt de kennis van heb zegt het mij niet zoveel en ik kan zo snel geen verkeerde uitvoeringen vinden.

Met vr gr
Jack
Klik om te vergroten...
 
Jack Nouws,

Code: 
Private Sub cmdWijzigen_Click()
[COLOR="Red"]Dim WS As Range[/COLOR]
ScreenUpdating = False
Ik heb gekeken bij mijn adressen bestand, daar kun je ook de gegevens wijzigen.
Alleen de rode regel staat er bij in en zo te zien is de rest het zelfde.
 
Hoornvan zei:
Jack Nouws,

Code: 
Private Sub cmdWijzigen_Click()
[COLOR="Red"]Dim WS As Range[/COLOR]
ScreenUpdating = False
Ik heb gekeken bij mijn adressen bestand, daar kun je ook de gegevens wijzigen.
Alleen de rode regel staat er bij in en zo te zien is de rest het zelfde.
Klik om te vergroten...

Wim

Ik heb er een bijlage toegevoegd, dan kun je er eens naar kijken.

Met vr gr
Jack
 

Bijlagen

Jack Nouws,

Hier is je file terug en werkend volgens mij.
Ik heb een breakpoint in de macro geplaatst en toen kon ik zien waar het mis ging.
Als de macro bij de naam kwam (opslaan) dan ging hij er uit.
Daar heb ik een ' voor gezet en toen weer geprobeerd en voila hij liep door.
 

Bijlagen

Jack Nouws

Code: 
Dim WS As Range
Dit is niet persé nodig hij werkt ook zonder, net geprobeerd.
 
Jack Nouws,

Ik heb voor de regel "D"txtNaam een ' gezet omdat daar de macro stopte (verlaat)
Deze regel heb ik onderaan gezet zodat hij de naam als laatse wijzigd.
Het is namelijk zo, zodra de naam gewijzigd wordt vind er een verandering plaats en klopt het niet meer.
Door hem beneden te zetten vermijd je dat, als hij nu merkt dat de naam veranderd is , is de rest al veranderd.
Code: 
Private Sub voegtoe_Click()
    ActiveSheet.Unprotect
    ScreenUpdating = False
        With Worksheets("Klanten").Range("D4:D500") '.End(xlUp).Row
        Set WS = .Find(zoeknaam.Text, LookIn:=xlValues, LookAt:=xlWhole)
        WS.Select
        Cells(WS.Row, "C").Value = FrmKlantWijzigen.txtBedrijfsnaam.Text
       [COLOR="SeaGreen"] 'Cells(WS.Row, "D").Value = FrmKlantWijzigen.txtNaam.Text[/COLOR]
        Cells(WS.Row, "E").Value = FrmKlantWijzigen.txtAdres.Text
        Cells(WS.Row, "F").Value = FrmKlantWijzigen.txtHnr.Text
        Cells(WS.Row, "G").Value = FrmKlantWijzigen.txtPC.Text
        Cells(WS.Row, "H").Value = FrmKlantWijzigen.txtPlaats.Text
        Cells(WS.Row, "I").Value = FrmKlantWijzigen.txtTel.Text
        Cells(WS.Row, "J").Value = FrmKlantWijzigen.txtFax.Text
        Cells(WS.Row, "K").Value = FrmKlantWijzigen.txtGsm.Text
        Cells(WS.Row, "L").Value = FrmKlantWijzigen.txtMail.Text
        Cells(WS.Row, "M").Value = FrmKlantWijzigen.txtWeb.Text
        [COLOR="Red"]Cells(WS.Row, "D").Value = FrmKlantWijzigen.txtNaam.Text[/COLOR]
        End With
ScreenUpdating = True

    If txtNaam <> "" Then
        MsgBox ("Gegevens van " & txtBedrijfsnaam & " " & txtNaam & " zijn gewijzigd!")
    End If

    Unload Me
    ActiveSheet.Protect

End Sub
 
Hoornvan zei:
Jack Nouws,

Ik heb voor de regel "D"txtNaam een ' gezet omdat daar de macro stopte (verlaat)
Deze regel heb ik onderaan gezet zodat hij de naam als laatse wijzigd.
Het is namelijk zo, zodra de naam gewijzigd wordt vind er een verandering plaats en klopt het niet meer.
Door hem beneden te zetten vermijd je dat, als hij nu merkt dat de naam veranderd is , is de rest al veranderd.
Code: 
Private Sub voegtoe_Click()
    ActiveSheet.Unprotect
    ScreenUpdating = False
        With Worksheets("Klanten").Range("D4:D500") '.End(xlUp).Row
        Set WS = .Find(zoeknaam.Text, LookIn:=xlValues, LookAt:=xlWhole)
        WS.Select
        Cells(WS.Row, "C").Value = FrmKlantWijzigen.txtBedrijfsnaam.Text
       [COLOR="SeaGreen"] 'Cells(WS.Row, "D").Value = FrmKlantWijzigen.txtNaam.Text[/COLOR]
        Cells(WS.Row, "E").Value = FrmKlantWijzigen.txtAdres.Text
        Cells(WS.Row, "F").Value = FrmKlantWijzigen.txtHnr.Text
        Cells(WS.Row, "G").Value = FrmKlantWijzigen.txtPC.Text
        Cells(WS.Row, "H").Value = FrmKlantWijzigen.txtPlaats.Text
        Cells(WS.Row, "I").Value = FrmKlantWijzigen.txtTel.Text
        Cells(WS.Row, "J").Value = FrmKlantWijzigen.txtFax.Text
        Cells(WS.Row, "K").Value = FrmKlantWijzigen.txtGsm.Text
        Cells(WS.Row, "L").Value = FrmKlantWijzigen.txtMail.Text
        Cells(WS.Row, "M").Value = FrmKlantWijzigen.txtWeb.Text
        [COLOR="Red"]Cells(WS.Row, "D").Value = FrmKlantWijzigen.txtNaam.Text[/COLOR]
        End With
ScreenUpdating = True

    If txtNaam <> "" Then
        MsgBox ("Gegevens van " & txtBedrijfsnaam & " " & txtNaam & " zijn gewijzigd!")
    End If

    Unload Me
    ActiveSheet.Protect

End Sub
Klik om te vergroten...

Hoi Wim,

Bedankt voor deze nuttige informatie :thumb: Weer wat bij geleerd!!!

Met vr gr
Jack
Klik om te vergroten...
 
Kijk eens nadat je een huisnummer hebt gewijzigd wat er in de kolom B gebeurt ! daar wordt ook iets gewijzigd !

Groeten ,

Daniël

Opmerking
Het cijfer ( huisnummer ) dat je toevoegd of weghaalt is zichtbaar in kolom B .
Je leveranciers code is afhankelijk van die cellen , bij wijziging adres vervalt deze code ??
 
Laatst bewerkt:
trucker10 zei:
Kijk eens nadat je een huisnummer hebt gewijzigd wat er in de kolom B gebeurt ! daar wordt ook iets gewijzigd !

Groeten ,

Daniël

Opmerking
Het cijfer ( huisnummer ) dat je toevoegd of weghaalt is zichtbaar in kolom B .
Klik om te vergroten...

Ja dat klopt, deze code wordt samengesteldt met het huisnummer en de postcode.
En dit zijn doorgaans stabiele gegevens dus het zal niet vaak voorkomen dat deze gegevens veranderen.
Bedankt voor je opmerking.

Met vr gr
Jack
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan