Automatisch omzetten.

[Mickeymouse123]

Hoi allemaal,

Stel je hebt
1=A
2=B
3=C
4=D
5=E
6=F

En je typt erna een in excel in een kolom:
d
b
e
f
a
Is het dan mogelijk om dit in de kolom ernaast automatisch te laten omzetten naar het bijbehorende cijfer en erna terug?

Alvast bedankt!

Extra vraag, Stel je wilt iets ergens vanaf aftrekken als het groter is dan 26,
Dus getal=x
Als x>26 dan -26

 

[HSV]

<sub>Stoei hier eens wat mee.

bv. in cel B1 de formule zetten.
=CODE(HOOFDLETTERS(A1))-64

Met in cel A1 een letter.</sub>

 

[Niels28]

Stel, iets , ergens , een kolom

Allemaal behoorlijk vaag, om een duidelijk antwoord te krijgen plaats even een voorbeeld bestandje
waarin je aangeeft wat de uitkomst moet zijn.

Niels

 

[hoogteijling]

Op je extra vraag heb ik een bijlage bijgevoegd.

=ALS(A1>26;(A2-A1);"A1 is niet groter dan 26")

Bekijk bijlage 26.xlsx

Je eerste vraag is een beetje te vaag.

Groeten Marcel

 

[Mickeymouse123]

Hoi allemaal,

Bedankt voor het beantwoorden van mijn extra vraag, dit is nu opgelost. Enige vraag wat ik daar nog over heb: bij automatisch doervoeren wil ik dat die een cel steeds hetzelfde laat, de rest moet inderdaad verschuiven, is dit in te stellen?

Voor het andere bij deze een voorbeeldbestandje! Bekijk bijlage Helpmij.xlsxBekijk bijlage Helpmij.xlsx

 

[HSV]

Mijn voorstel niet getest?

 

[Mickeymouse123]

Nee overheen gelezen, ik ga er nu mee aan de slag!

 

[Mickeymouse123]

Die code doet het perfect! Alleen snap ik hem niet, waarom die -64 en hoe komt er nou het goede getal uit?

En Is er een mogelijkheid om hetzelfde te doen alleen andersom, dus van cijfer naar letter?

 

[HSV]

Hoofdletter A = code(65)-64 = 1
Hoofdletter D = code(68)-64 = 4
enz.

Kleine letters hebben de code van a t/m z = 97 t/m 122.

Voor het omzetten van cijfers naar letters.

=TEKEN(G5+64)

 

[Mickeymouse123]

Dankje!

Nu nog een vraag.
Ik heb nu in 80 kolommen een letter staan, deze letters wil ik achter elkaar hebben staan. Ik dacht dat dit kon met de functie tekst samenvoegen kan dit, maar dan moet je elke kolom apart gaan invullen dus:
=TEKST.SAMENVOEGEN((A1);(A2))
Alleen dan hetzelfde tot A80 in een keer. Of is dit niet mogelijk?

 

[HSV]

Normaal gesproken wel.
Zonder de haken rondom de cel is voldoende:

 =tekst.samenvoegen(a1;a2;a3)

Of:

 =A1&A2&A3

Daar ben je gauw flauw van, dus een macrootje kan ook.
De samenvoeging komt in Blad1 cel D1.

Sub hsv()
With Sheets("Blad1")
  .Range("D1") = Join(Filter(Application.Transpose([if(a1:A80>0,a1:a80,"~")]), "~", False))
  .Columns(4).AutoFit
 End With
End Sub

Ps: Er van uitgaande dat je rijen bedoelde i.p.v. kolommen.

 

[Mickeymouse123]

Mijn dank is groot!