artikel nummer zoeken

[W Bloemendal]

Ik heb een lijst met artikel nummers met de daarbij behorende specificatie's


Nu wil ik dat als ik B2 - F2 een waarde ingeef artikelen die niet daaraan voldoen niet
zichtbaar zijn dus automatisch weggefilterd worden.

is dit mogelijk

Wim

 

[VenA]

Waarom niet gewoon met het autofilter?

 

[W Bloemendal]

dan moet je handmatig per kolom zoeken je kan niet aangeven inhoud van B2 uit filteren

 

[HSV]

Wat is de voorwaarde?

 

[W Bloemendal]

In B2 tot F2 moeten product gegevens van een klant ingegeven worden.
Met de filter kan je dan zien of er al een artikel is met die gegevens.
en zo niet dan kan je een nieuw artikel nummer ingeven in A1 en dan deze
de gegevens kopieren naar de de lijst.
Zodat bij een volgende bestelling een artikelnummer voldoende is.

In het voorbeeld zijn 6 kolommen met gegevens maar dit moeten er eigenlijk 15 zijn.

 

[Leotaxi]

Zoiets ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mystring As String
If Not Intersect(Target, Range("B2", "F2")) Is Nothing Then
    mystring = Target.Value
    Application.EnableEvents = False
    Range("A2", "F2").AutoFilter Field:=Target.Column
    Range("A2", "F2").AutoFilter Field:=Target.Column, Criteria1:=mystring
    Target.ClearContents
    Application.EnableEvents = True
End If
End Sub

mvg
Leo

 

[W Bloemendal]

Hier bij wordt het goed gefilterd
maar het is ook de bedoeling dat als er niets gevonden wordt
dat aan alle voldoet er in A1 een nieuw artikelnummer ingegeven kan worden.
en dit onderaan in de lijst gecopieerd kan worden.

 

[Leotaxi]

bekijk deze eens


mvg
Leo

 

[W Bloemendal]

Leo werkt goed.

Ik heb "Target.ClearContents" uit de code gehaald, nu blijven de i n B2 - F2 ingevulde waarden staan.

Is het nu mogelijk dat die waarden, indien ingevuld automatisch in het user form komen te staan.

mvg

Wim

 

[VenA]

Zoiets?

 

[Leotaxi]

daar hoeft niets meer aan toegevoegd te worden


mvg
Leo

 

[W Bloemendal]

VenA

Dit is precies zoals het de bedoeling is nu moet ik het allen nog een beetje uitbreiden.

Bedankt wim

 

[W Bloemendal]

Hallo ik ben toch nog een probleempje tegen gekomen.
De ingevulde gegevens worden als tekst opgeslagen dit moet getal zijn hoe kan ik dat aanpassen.
Met de waarden die in de lijst komen te staan moet mee gerekend worden.

Mvg

Wim

 

[VenA]

Zet de celeigenschappen op getal

Zonder enige foutcontrole

.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) = Array(Val(TextBox1), Val(TextBox2), Val(TextBox3), Val(TextBox4), Val(TextBox5), Val(TextBox6))

Edit,

Misschien moet die replace van Leotaxi er nog even in. Maar zelf wat proberen zal over het algemeen ook geen rook uit een Pc opleveren.

 

[HSV]

Om resultaten te verkrijgen in kolom C door gewoon de komma in te voeren (bv. 3,5).

Range("A2:F2").AutoFilter Target.Column,[COLOR=#0000ff] CDbl(Target.Value)[/COLOR]

 

[W Bloemendal]

VenA

Nu is het wel goed, maar nu heb ik nog een probleempje.

b.v in het eerste invul vak moet een getal groter dan 100 ingegeven worden. Nu heb ik de volgende code

Private Sub TextBox1_Change()
  If valeu < 100 Then MsgBox "minimale invoer 100.", vbExclamation
End Sub

maar zodra ik een cijfer ingevoerd heb krijg ik direct message box, mijn code is dus te simpel.

mvg

Wim

 

[HSV]

Waar staat...

valeu

..... voor.

Zo te zien een variabele die leeg of 0 is.

Per ongeluk verkeerd geschreven?

 

[W Bloemendal]

de waarde die in dat invulvak ingegeven wordt.
Als ik begin met een getal intevoeren krijg ik de msgbox voor ik de waarde geheel in gegeven heb.
bv ik wil 999 ingeven maar ik krijg na 9 al de msgbox.

 

[Ginger]

Ga eens wat spelen met de events van een TextBox... Het Change event is in elk geval onjuist in dit geval...

 

[Leotaxi]

Probeer deze eens


mvg
Leo