Van numeriek naar alfanumeriek

[jarre2]

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

 

[edmoor]

Wijzig in de Sub Selectie() dit:
If Range("A" & (i)).Value = "S" Then

In dit:
If UCase(Range("A" & (i)).Value) = "S" Then

 

[Cobbe]

Is dit de bedoeling?

 

[jarre2]

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

 

[edmoor]

En wat denk je van deze?

    If Not IsNumeric([A4].Value) Then
        MsgBox "Er is geen nummer geselekteerd om te printen."
    Else

 

[jarre2]

@Edmoor
Dezelfde melding: Er is geen nummer geselekteerd om te printen.

 

[Warme bakkertje]

Deze werkt volgens mij volgens jouw bedoeling.

 

[edmoor]

@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

 

[Warme bakkertje]

@ edmoor

Is ondertussen gebeurd. :d

 

[edmoor]

Zie m'n gelijktijdige aanpassing in #8

 

[jarre2]

@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