• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Van numeriek naar alfanumeriek

Status
Niet open voor verdere reacties.

jarre2

Gebruiker
Lid geworden
9 nov 2011
Berichten
43
Goedemiddag,

Een aantal jaar geleden (2008) ben ik op dit forum erg geholpen met een vba code. Zie hiervoor de werkende bijlage ‘numeriek selectie’.

De werking: indien in kolom A een aantal (hoofdletters) ‘S’ wordt ingegeven, wordt van de bovenste ‘S” de naast gelegen cel (kolom B) de waarde geretourneerd naar cel A2.

Vervolgens wordt de rij met het corresponderende nummer (A2) vanuit NAW op een aparte pagina geprint. Tevens wordt de geselecteerde ‘S’ in kolom A (na elke print) verwijderd.

Om van de geselecteerde ‘s’ eventueel een hoofdletter te maken staat er een aparte code achter het blad Invoer.

En nu de vraag:
Zou het mogelijk zijn om de code zo aan te passen dat van A4 (ipv A2) een alfanumerieke waarde wordt uitgelezen om vervolgens de corresponderende rij te printen vanuit NAW, identiek aan het voorbeeld met de numerieke code?

Mogelijk is de code zo aan te passen dat selectieletter (‘S’ in kolom A) invoer onafhankelijk wordt. Dus ook bij invoer van een kleine letter ‘s’ er een hoodletter ‘S’ verschijnt?

Mij ontbreek hiervoor de kennis en kunde.

Het bestandje wat aangepast moet worden is bijgevoegd als ‘alfanumerieke selectie’

Hopelijk weet iemand een oplossing.

Jarre
Bekijk bijlage Numerieke selektie.xlsm
Bekijk bijlage Alfanumeriek selektie.xlsm
 
Wijzig in de Sub Selectie() dit:
If Range("A" & (i)).Value = "S" Then

In dit:
If UCase(Range("A" & (i)).Value) = "S" Then
 
Van numeriek naar alfa numerriek

@Edmoor
@Cobbe

Dank voor de snelle reactie. Helaas geven beide oplossingen 'Er is geen nummer geselekteerd om te printen'

Jarre
 
En wat denk je van deze?
Code:
    If Not IsNumeric([A4].Value) Then
        MsgBox "Er is geen nummer geselekteerd om te printen."
    Else
 
@Edmoor
Dezelfde melding: Er is geen nummer geselekteerd om te printen.
 
@Edmoor
Dezelfde melding: Er is geen nummer geselekteerd om te printen.

Dat bedoel ik.
Die controle moet dus worden aangepast.


Edit:
Dat heeft Rudi al gedaan :)
 
Laatst bewerkt:
@ edmoor

Is ondertussen gebeurd. :d
 
Zie m'n gelijktijdige aanpassing in #8 :D
 
@edmoor
Hartelijk dank voor de tijd en moeite. Goed dat er een forum voor deze vraagstukken is;
@ Ook warme bakkertje ook dank voor de aanpassing van de code. Overigens was oorspronkrlijke code uit 2008 van...warme bakkertje :d
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan