Hulp gevraagd met klachten registratie

[301254]

Beste allemaal,

Wie o wie kan en wil me even helpen.
Ik heb een excel hiervan het forum wat aangepast maar blijf steken op het laatste puntje.
Ik wil graag dat als je op klantnummer zoekt en dit klantnummer vaker in de lijst voorkomt dat deze allemaal getoond worden.
Hij gaat nu alleen naar het eerste nummer dat overeen komt in de lijst en de andere klantnummers die er staan laat hij dan ook nog gewoon zien

Ik zou dus graag willen dat als ik in het zoek venster een klantnummer in geef dat hij alleen deze toont maar indien dit klant nummer vaker voorkomt dat hij dan ook deze laat zien.

pfff lastig uit teleggen


al vast bedankt voor de hulp

 

[HSV]

Het kan ook met Removeitem, maar ik heb gekozen voor deze variant.

Private Sub T_klachtn°_Change()
sv = Sheets("klachtenoverzicht").Cells(1).CurrentRegion
 For i = 2 To UBound(sv)
   If Left(sv(i, 1), Len(T_klachtn°)) = Left(T_klachtn°, Len(T_klachtn°)) Then s0 = s0 & Format(i, " 0")
 Next i
  s0 = 1 & s0
    sv = Application.Index(sv, Application.Transpose(Split(Trim(s0))), [transpose(row(1:14))])
     If Len(s0) = 1 Then
         ListOfComplaints.Column = sv
      Else
         ListOfComplaints.List = sv
     End If
End Sub

 

[301254]

Goedemorgen,
Ten eerste super vriendelijk dat je me op weg wil helpen.
Maar ik krijg het na veel stoei werk echt niet voor elkaar.

Zou je me nog wat meer uitleg kunnen geven?

mvg
Hans

 

[HSV]

Het wil wel eens gebeuren door het plaatsen van een code de tweede coderegel verschuift achter de eerste (aangepast).

Tevens het bestand erbij gedaan.

 

[301254]

Bedankt wederom voor je hulp

Maar loop nu weer tegen een andere fout aan waar ik weer niet uit kom.
Ik heb een knipsel bijgevoegd als je tijd en zin hebt om me even te helpen dan zou ik je zeer dankbaar zijn.

 

[HSV]

Het komt door iedere keer de textbox wordt gewijzigd de andere codes ook weer draaien en zo de Listindex veranderd.

De code voor de zoekfunctie verplaatst naar de groene TextBox in de bijlage.

 

[301254]

Ik zeg HSV for president.


Dankjewel dit is helemaal perfect nu.:thumb::thumb::thumb:
Ik zit met alle verstand te kijken wat je hebt gedaan
Ik ga me er vanavond helemaal in verdiepen.
Bedankt voor je hulp

 

[301254]

Pffff je komt maar niet van me af
Nu als ik een nieuwe klant wil toevoegen loop ik weer vast op een fout.
Zou je aub nog even met me mee willen kijken>

 

[HSV]

De code in module1 heb ik als opmerking gezet.
Altijd oppassen met zulke codes; je wilt toch geen mail sturen naar iemand die je niet kent.
In de code wordt ook nog '.Send' gebruikt, dus die gaat de deur uit zonder dat je er erg aan hebt.
Zet een apostrof voor deze coderegel, of verwijder het.
'Call Mail_dotchie'

Of pas de code in module1 aan naar .display of wat je maar wilt.

 

[301254]

Bij nader inzien nieuwe inzichten gekregen.
Ik wou het eerst zo maken dat de betreffende verkoop medewerker inderdaad een mail kreeg van de klacht.
Maar inderdaad dat is bij nader inzien niet wenselijk.

Bedankt nogmaals voor je hulp

 

[HSV]

Ik had ook nog geen nieuwe klant aangemaakt, maar ik zag de code met ".send" en heb die derhalve maar aangemerkt als tekst.
Om een mail te versturen is misschien wel handig, maar niet geschikt voor Excel-helpers.

Succes ermee en anders verneem ik het wel weer.

 

[jverkerk]

Voor het registreren, aanpassen enz. doet dit bestand het prima volgens mij.
Geen mail sturen, stil gezet.
Kan zelf geen vba instructies maken maar met een beetje hulp van buitenaf.

Groetjes Johan.