enter naar rechts plaatsen

Status
Niet open voor verdere reacties.
Die is ook weer fraai @snb.
En ik maar denken dat die voor de activeX-controls was.

Tom,
Heb je nog nergens een code gezien die de sheet unprotect en aan het einde weer protect?
 
Inderdaad gevonden ;);););)

Code: 
Sub Bladinvoegen()
'
' Bladinvoegen Macro
'


    ActiveSheet.Select
    ActiveSheet.Unprotect
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    Range("e6").Value = Range("e6").Value + 1
    Range("e6").NumberFormat = """EH""0"
    Range("b12:e36").ClearContents
    Range("e5").Value = Date
    For Each Shp In ActiveSheet.Shapes
       If Shp.Type = msoFormControl Then
       If Shp.FormControlType = xlCheckBox Then Shp.ControlFormat.Value = False
       End If
     Next Shp
     ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub
 
Laatste vraagske en we zijn er volledig door :thumb::thumb::thumb::thumb:

Het eerste tabblad in de werkmap is een database met alle klanten, wanneer de naam van de klant wordt ingegeven, worden adres, email, enz via verticaal zoeken automatisch ingevuld

Ik zou wel graag bekomen, als we in de cel waar we de naam invullen, deze automatisch invult als de klant al in de database aanwezig is
Vb: in database is aanwezig Elle Hupperdepup, als ik nu in de cel invul Ell.... dat dan al automatisch aanvult (zoals excel normaal doet als je op dezelfde pagina werkt en geen lege rijen tussen zijn)

Hoe kan dat geregeld worden ?

Tom
 
Maak bv. gebruik van een combobox
 
Laatst bewerkt:
ben ik al enkele uurtjes mee bezig, maar wil geen dropbox, omdat er veel te veel klanten zijn, en dat scrollen maakt me gek :cool::cool::cool::cool:

wil in feite gewoon aanvullen, maar vindt het niet he, zet me eens op weg aub
 
Harry,

Ik vind bij invoeg active besturingsysteem, een combox met invoerveld (ik vermoed dat het juiste is), maar hoe kan ik dan de kolom A van tabblad klanten toewijzen als keuzelijst ....
 
ActiveX-Besturingselement.

In thisworkbook.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each cb In Sh.OLEObjects
 If cb.progID = "Forms.ComboBox.1" Then cb.Object.List = Sheets("klanten").Cells(1).CurrentRegion.Value
 Next cb
End Sub

Je kan gewoon typen in de combobox.
 
Lukt me niet :o:o:o:o

Ik voeg active combox met keuzelijst toe (krijg knop met invulveld en rechts dropdownpijl)
Ik zet je code in workbook, bij de juiste indelingen

Als ik naam intik in invulveld, gebeurt niks
Maar excel slaat vast 'verwijzing is ongeldig"
 
Even naar een ander blad en terug.
 
Ga in de Vb-editor naar menu Extra → verwijzingen en vink "Microsoft Forms 2.0 Object Library" aan.
 
Harry,

was reeds aangevinkt .....

Update:
raar maar waar, combox werkt opeens !
Maar hoe krijg ik nu die naam in de cel C5 ?
 
Laatst bewerkt:
Welke staan er allemaal aangevinkt?
 
In de eigenschap 'Linkedcell' en typ daar achter: C5
 
Laatst bewerkt:
Je kan de Combo boven op cel C5 plaatsen voor de fraaiheid.
 
Nog een laatste vraagske voor vandaag, hoe kan ik nu instellen, dat de combobox NIET wordt afgedrukt, vind dat niet terug bij eigenschappen ?
 
Staat er toch → printobject
 
als ik letters intyp, en de juiste naam verschijnt, kan ik dan met ENTER toets afronden ?

Als ik blad beveilig, loop ik weer tegen foutmelding , als ik naam intik en dan de combox verlaat, krijg ik vraag van grafiek ???

Pfff, wat is dat ingewikkeld voor mij, beetje moe aan worden vrees ik

Update:
PrintObject geplaatste op false is dus oke !
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan