Automatisch vullen van sheet

[Stevehhm]

Hallo,

Ik ben momenteel bezig met een intern bestelbestand.
Door de verschillende artikelen is het voor de gebruikers vervelend iedere keer de nummers op te schrijven en vervolgens in te vullen.
Is het een mogelijkheid een "bepaalde" cel in te vullen die vervolgens het volgende tabje invult.
Let op het gaat hierbij om ongeveer 500 artikelen die hij allemaal moet scannen op het feit of hij ingevuld is.

Met vriendelijke groet,
Steve

 

[Timshel]

Geen flauw idee wat je bedoelt.
Begin eens met een voorbeeldbestand te plaatsen.

 

[gast0660]

Hoi,
Uw vraag is vrij onduidelijk.
Uw voorbeeldje?
Iets in die richting?

 

[VenA]

Het is wel handig zo met de beveiliging erop! Zoek eens op VERT.ZOEKEN() of VLOOKUP()

 

[abevleeming]

Wellicht een overbodige opmerking, maar ik gok dat bedrijven als DeliXL het niet waarderen dat je hun prijzen online zet..

 

[Stevehhm]

Excuus hierbij een betere versie...
Bekijk bijlage Worksheet.xlsb
Het is dus de bedoeling dat het artikelnummer van pagina 1. automatisch op pagina 2 komt indien mensen dit willen bestellen.

 

[VenA]

Zelfs met voorbeeldbestandje sluit ik mij aan met de eerste zin uit #2. Verklaar eens wat je wil. Vul iets in het voorbeeldje in wat een mogelijke uitkomst moet zijn.

 

[sylvester-ponte]

efffe een grof probeerseltje:
kijk eens of je ongeveer zoiets bedoeld.

als je zoiets bedoeld kan het best nog wat verbeterd worden. door de meeste helpers.

 

[Stevehhm]

Bedankt Sylvester echt een super begin!

Ik heb echter 1 vraag. is het mogelijk dat als in het veld afdeling bijv. THCB wordt ingevuld dat ook enkel de artikelen komen die hun Mogen bestellen (de X op voorraadartikelen moet dus aangegeven zijn bij hun afdeling.)

Ik hoor het graag van je!
Super bedankt

 

[sylvester-ponte]

zo iets?

 

[Stevehhm]

Sylvester hartelijk bedankt voor je hulp!!!!

 

[Stevehhm]

Hallo Sylvester en andere,

Op een of andere manier werkt het bovenstaande bestand ineens niet meer... kan iemand me misschien helpen!?!

Private Doel As Range
Private Sub ListBox1_Click()
    Doel = ListBox1.List(ListBox1.ListIndex, 0)
    TextBox1.Visible = False
    ListBox1.Visible = False
End Sub

Private Sub TextBox1_Change()
    Dim Omschr As Range, Lijst() As String, T As Long
    Dim Afdeling
    [B]Afdeling = Sheets(1).Range("Table1").Rows(1).Cells.Offset(-1).Find([C4]).Column - 3[/B]    
With ListBox1
        .Clear
        w1 = "*" & LCase(TextBox1) & "*"
        For Each Omschr In Sheets(1).Range("Table1").Columns(3).Cells
            If Omschr <> "" And Omschr.Offset(, Afdeling) <> "" Then
                If LCase(Omschr) Like w1 Then
                    .AddItem Omschr.Offset(, -2)
                    .List(T, 1) = Omschr
                    T = T + 1
                End If
            End If
        Next
    End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4]) Is Nothing Then ListBox1.Clear
Call TextBox1_Change
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, [invoergebied]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set Doel = Target
    TextBox1.Visible = True
    ListBox1.Visible = True
With ListBox1
    .Top = Target.Offset(1).Top + 10
    .Left = Target.Offset(, 1).Left
    .Width = Target.Offset(, 1).Width + Target.Offset(, 2).Width
End With
With TextBox1
    .Top = Target.Top - 5
    .Left = Target.Offset(, 1).Left
    .Width = Target.Offset(, 1).Width + Target.Offset(, 2).Width
    .Height = Target.Height + 5
    .Text = ""
    .Activate
End With
End Sub

Het dikgedrukte geeft de foutmelding.

 

[sylvester-ponte]

waarschijnlijk komt het omdat de waarde uit C4 niet in de eerst regel van Tabel1 staat.
vervang die coderegel door dit :

    Set R = Sheets(1).Range("Table1").Rows(1).Cells.Offset(-1).Find([C4])
    If R Is Nothing Then MsgBox ([C4] & "  komt niet de de bovenste regel van tabel1 voor"): Exit Sub
    Afdeling = R.Column - 3

en probeer het dan nog eens.

 

[Stevehhm]

Dag Sylvester-ponte, dit werkt inderdaad beter. Bedankt!