Wijzig of delete in Userform werkt niet

Status
Niet open voor verdere reacties.

Jeffie85

Gebruiker
Lid geworden
12 jun 2012
Berichten
106
Goedemiddag,

zie bijgaand document.
Een nieuw record/regel toevoegen lukt prima, alleen het wijzigen of deleten in dit formulier heeft een eigen leven gekregen en delete of wijzigt de verkeerde rijen.
Stel ik ga in de listbox op regel 5 staan en wil deze verwijderen, dan verwijdert die een hele andere regel, namelijk regel 3.

Als ik in de listbox ook sta op 1 van de laatste regels en ik houd het excel document ernaast, welke regels die selecteert, is dat ook een hele andere rij als dat die moet weergeven.
zie ook bijgaand het plaat

Weet iemand wat hier gebeurt?
bvd voor het meekijken.

Jeffrey
PS: De volgende fouten zijn opgetreden: kopie2.xls: Uploaden van bestand mislukt.
Krijg het bestandje niet meer geupload

Naamloos.jpg
 
Laatst bewerkt:
Zonder de code te zien is daar weinig tot nikes over te zeggen.
 
Krijg nog steeds de melding dat ik niks kan uploaden

heb nu maar een wetransfer link gemaakt....;
 
Laatst bewerkt:
De code pakt de eerst gevonden verkoper, in het geval van je voorbeeld is dat Verkoper5 en die staat als eerste op regel 3.
Regel 3 zal dus worden verwijderd.
De klantnaam zal ook mee moeten in het opzoeken van de juiste regel.
 
Laatst bewerkt:
Zie bijlage voor een nieuwe start.
Kom je er niet uit, dan maak ik wel een voorzetje maar het zal niet voor dinsdag zijn.
 

Bijlagen

  • Overzicht gallery.xlsb
    85,8 KB · Weergaven: 72
Ziet er zeker goed uit !
Wel super dat jullie willen helpen !!

Met het nieuwe excel document moet ik wel alles op de schop gooien?

Is mijn invulformulier niet makkelijk te herzien om ook te kunnen wijzigen/deleten? Dat zou wel het makkelijkst zijn?
of moet ik dan echt helemaal opnieuw beginnen?
 
Relax, ik zal er deze week wel een voorzetje voor maken.Als je nadien terug sinaasappelkleurtjes wilt in het invulformulier dan zal je dit zelf moeten aanpassen.
Volgens mij krijgen de meeste mensen stress of koppijn van dergelijke kleuren. (in het ergste geval volgt een echtscheiding, denk ik:eek:)
 
Je gaat niet zoeken met find als de listbox gelijk is aan de range van je blad.

Code:
rows(listbox1.listindex+2)
is in dit geval de rij in je werkblad als die van de geselecteerde rij van je listbox.
 
Dank je 'HSV', zal het morgen eens uitproberen !

@gast0660; ja dit is een kleur wat bekend is dus vandaar :) Anders had ik die ook zeker niet gekozen.
Ik wacht geduldig af, bvd voor de opzet !
 
@HSV:
als ik dit aanpas(listbox code) naar;
Code:
Private Sub ListBox1_Click()
Dim say As Long

'For a = 0 To 6
'Controls("textbox" & a + 1) = ListBox1.Column(a)
'Next

ComboBox10 = ListBox1.Column(0)
TextBox2 = ListBox1.Column(1)
TextBox3 = ListBox1.Column(2)
TextBox4 = ListBox1.Column(3)
ComboBox50 = ListBox1.Column(4)
TextBox6 = ListBox1.Column(5)
ComboBox70 = ListBox1.Column(6)
TextBox8 = ListBox1.Column(7)

Sheets("liste").Range("B:B").Rows (ListBox1.ListIndex + 2)
'Sheets("liste").Range("B:B").Find(What:=ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
say = ActiveCell.Row
Sheets("liste").Range("A" & say & ":I" & say).Select



CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True

End Sub

krijg ik een foutmelding;
fout 438 tijdens uitvoering:
Deze eigenschap of methode wordt niet ondersteund door dit object
 
Waarom vertel je niet welke regel geel wordt gearceerd ?
 
Excuus SNB.

deze regel wordt geel gearceerd;
Code:
Sheets("liste").Range("B:B").Rows (ListBox1.ListIndex + 2)
 
Wat is je bedoeling met die regel?
Die doet nu niks.
 
Als ik inderdaad de code van HSV erin plak, dan loopt de regel in het script vast op voorgaand gemelde regel.

uiteindelijke resultaat moet inderdaad zijn;
wat je ziet in de listbox / selecteert, dat het op de achtergrond ook correspondeert met de juiste regel in Excel.
Als je alleen naar de listbox zelf kijkt, dan lijkt het te kloppen, maar bij het verwijderen of wijzigen van de regel, zie je dat die een andere regel in excel pakt, waardoor er de verkeerde regel gewijzigd/verwijdert wordt.

Als je excel lijst achter het formulier houdt, en je scrollt in de listbox heen en weer, zie je ook dat die niet correspondeert met de juiste regel.
 
Vermijd select en activate in VBA: ze zijn overbodig en vertragend en leiden tot denkfouten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan