Invoer formulier in combi met vert.zoeken

Status
Niet open voor verdere reacties.

ExcelTonnie

Gebruiker
Lid geworden
5 jul 2016
Berichten
276
Ik heb een tabblad "Nieuw" met een tabel met data, in een ander tabblad in CEL C18 als ik daar iets invoer om te zoeken dan gaat hij verticaal zoeken in de tabel met data.
In cel C19 plaatst die de "Team C" in dit geval wat bij het nummer hoort wat ik bij C18 heb ingevoerd, dit werkt prima.

Code:
=ALS(ISFOUT(VERT.ZOEKEN(C18;Nieuw!$A:$P;2;ONWAAR));"Nummer is onbekend of de database laten vernieuwen";VERT.ZOEKEN(C18;Nieuw!$A:$P;2;ONWAAR))


Nu heb ik in VBA een klein invoeg-form gemaakt waar ik dat nummer ook kan ingeven die ik anders bij C18 invoer.
Via een knop laat ik nu het ingevoerde in C18 plaatsen, ook dit gaat prima echter vindt die geen bijhorende data.

Code:
Private Sub cmd1_Click()
Range("C18").Value = TextBox1
Range("A1").Select
ActiveWorkbook.RefreshAll
End Sub

In Cel C19 komt dus nu niet "Team C" data te staan maar "Nummer is onbekend of de database laten vernieuwen"

Hoop dat jullie hier wat mee kunnen zonder het bestand want ligt nogal gevoelige info in.
 

Bijlagen

  • BlokBeperkt.xlsb
    933,9 KB · Weergaven: 57
Laatst bewerkt:
En wat is het probleem om die gevoelige info door niet gevoelige gegevens te vervangen?
 
En wat is het probleem om die gevoelige info door niet gevoelige gegevens te vervangen?

Probeer een bestand te uploaden maar geeft constant aan upload bestand mislukt.
Zodra het is opgelost stuur ik het bestandje mee.
 
Een beveiligd bestand als voorbeeld lijkt me niet echt handig.
 
Waar is tabblad "Nieuw" en "Data"?
 
De benodigde bladen zijn met VBA op VeryHidden gezet.
 
ja, dat weet ik , maar ik bedoelde dat het plaatsen van een voorbeeldbestand met verborgen sheets niet handig is.

Code:
Range("C18").Value = TextBox1.Value

Probeer dit eens!
 
Of dit:
Code:
Private Sub cmd1_Click()
    Range("C18").Value = CDbl(TextBox1.Text)
    Range("A1").Select
    ActiveWorkbook.RefreshAll
End Sub

Maar die van SjonR is voldoende.
 
Laatst bewerkt:
Code:
Private Sub cmd1_Click()
    Range("C18").Value = CDbl(TextBox1.Text)
    Range("A1").Select
    ActiveWorkbook.RefreshAll
End Sub

Dit werkt super bedankt!
Wat betekent dit nu precies: CDbl(TextBox1.Text)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan