Krijg Textbox niet gekoppeld;

[grema]

Gisteren bestand binnen gekregen van joop ( waarvoor nogmaals dank)

Nu probeer ik even een extra textbos te creeren . Dit lukt voor een gedeelte.

Wanneer ik de Textbox wens te koppelen aan de vba code krijg ik het niet voor elkaar.

De Code begint met : " Private Sub " wanneer ik men code probeer te koppelen krijg ik

Sub ipv Private Sub.

Je moet toch eerst de teskbox aanmaken
dan Benoemen
dan Code toekennen ,??

Blijkbaar loop het bij dit laatste fout?

't is maar een klein vraagje deze maal , wie weet raad ??,



thx

grema

 

[Wigi]

En wat is de functie / het doel van de tekstbox?

 

[grema]

opzoekfunctie.


code :

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim zoekletter As String, Results As Range
    Dim c As Range, ans As Variant
    If KeyCode <> 13 Then Exit Sub
    zoekletter = UCase(TextBox2.Text & "*")
    With ActiveSheet.Columns("A:A")
        Set c = .Find(What:=zoekletter, LookIn:=xlValues, _
                      lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
        If Not c Is Nothing Then
            c.Select
            TextBox3 = "": Exit Sub
        Else
            MsgBox TextBox3.Text & " niet gevonden."
        End If
    End With
End Sub

code van joop gekregen ; maar krijg hem dus niet gekoppeld.

(Probeer weer iets bij te leren )

 

[Wigi]

Zet dan een textbox op het formulier, geef er een naam aan (maakt niet uit hoe), en plak de code van Joop.

Verander daarin enkel in de eerste regel de naam van de textbox naar de naam die jij gekozen hebt.

 

[grema]

Als ik men texbox aanmaak en in het Naamvak links boven de naam Textbox3 ingeef

dan krijg ik men textbox met schuine lijntjes errond

Hoe kan ik dan die code plakken.

Want dat is juisthet probleem?

Waarom blijven dit schuine lijntjes ?

 

[Wigi]

Je bent toch op een userform bezig, of niet?

 

[grema]

neen

gewoon op tabblad

 

[Wigi]

Klik met rechtermuisknop op de knop als je in design modus bent. Dat doe je door op de werkbalk Visual Basic op de liniaal te klikken.

Kies Programmacode weergeven, en plak de code. Sluit VBA af.

 

[grema]

Bij aanmaak van de userform kan ik wel degelijk de code toekennen ;
maar dan hoe op tabblad krijgen.

 

[Wigi]

Je hebt geen userform nodig.

 

[Justes]

Hallo grema,

Wil je op de bladen een TextBox er bij, zo ja voor welke kolom, of heb je een blad toegevoegd en moeten daar ook TexBoxen in.

Gr Joop

 

[grema]

Wil je op de bladen een TextBox er bij, zo ja voor welke kolom, of heb je een blad toegevoegd en moeten daar ook TexBoxen in

antwoord :

a) Op bladen een extra textbox kolom willelkeurig voorlopg vb kolom A
b) Wil ook later extra Tabbladen toevoegen

c) De manier van werken zou ik graag onder de knie krijgen om later verder te kunnen gebruiken.


met dank

grema

 

[Justes]

Hallo grema,

In de bijlage heb ik geprobeerd wat uitleg te geven,de rest mag je zelf doen.
Als je een nieuw blad erbij maakt zet je de ontwerpmodus aan kopieer de TexBoxen en plak ze in het nieuwe blad, ook de codes onder het nieuwe blad zetten.
Begin je te wanhopen en kom je er niet uit laat het weten.

Gr Joop

 

[grema]

joop,

met zo een goede uitleg kan het niet fout gaan.

thx;

Bijkomende vraag :

- max aantal tabbladen in in 1 werkblad ?
( omdat ik al de verschillende merken op 1 Tabblad ga plaatsen(anders lijst te groot)).


grema

 

[Justes]

Bladen met unieke namen

Hallo grema,

Het bijgevoegd bestandje zal je helpen de bladen die je in wil voegen te voorzien van de Tabblad namen, omdat ik vrees dat je veel Bladen in wil voegen.
Ga als volgt te werk, voeg eerst een blad toe aan je bestand, kopieer en plak het blad van dit bestand in jouw bestand, ook de code van dit bestand(Module1)
Vul dan de nemen in van de levenciers en klik op toevoegen.
Ga naar het Blad Artikel zet de ontwerpmodus aan, selecteer het hele blad, selecteer de nieuwe bladen(eerste nieuwe blad aanklikken>Shift indrukken>laatse blad aanklikken>A1 selecteren>plakken>Ontwerpmodus uit zetten( door onterpmodus aan te zetten gaan ook de TexBoxen mee)
Nu moet je nog wel even zoveel Codes invoeren en

Sheets("[B]Artikel[/B]").Activate 'vervangen door bladnaam

Artikel vervangen door Tabblad naam.
Als laatste Macro toe wijzen aan de gele knop.

Gr Joop

 

[grema]

Ok !

Dit werkt ook ( had trouwens niet anders verwacht van een expert
Ben te laat binnengekomen;zal in we nog even verder prutsen en op punt stellen.

Heb zo een vermoeden dat ik nog niet rond ben met updates vanprijzen .

Zal er nog even over slapen

alvast nogmaals dank.

Weer een ietsjes slimmer Zeker toch weer iets bijgeleerd.

Thx

grema

 

[grema]

Joop

je uitleg was weer schitterend.

kan je me nog even meegeven :
1) Indien ik bij werkblad nog enkele lijnen wens toe te voegen ( betekent aantal van artiekel lijnen te verkleinen) omdat ik volgende wens in te voegen.

zie bijlage.

hoe doe ik dit dan daar men werblad aangeeft dat het beveiligd is en ik nergens in de code terug vindt waar je het max aantal lijnen per werkblad aangeef

2) Bij printen verdwijnt het blad . Graag ook nog even " opslaan " . Stel dat er iets fout gaat . & moet later bon nog kunnen openen op andere PC;

3) Zoek ook nog even naar een totaal van de verschillende (indien die er mochten zijn )
van de verschillende WerkbonBladen met vb volgnr 1 en2 en 3 enz.
zodanig dat er eenduidig totaal is.



alvast dank voor de info.

 

[Justes]

Hallo grema,

De Bladen zijn beveiligd zonder wachtwoord, ik heb toegevoegd waar je om vroeg, wat je met vraag 3 bedoeld is mij niet helemaal duidelijk.
De Bon wordt nu 2x geprint als je de bon wilt bewaren zul je de bon moeten plakken in een nieuw bestand.

Gr Joop

 

[grema]

joop ,

wat je met vraag 3 bedoeld is mij niet helemaal duidelijk

zie bijlage.

 

[Justes]

Hallo Grema,

Zodra je de bonnen geprint zijn kun je de totalen invullen.

Gr Joop