2 ongelmaa tilanteessa, jossa sarakkeessa A on asiakastunnuksia:
1. Osa on henkilötunnksia, joissa on välimerkki PPKKVV jälkeen. Pitää siirtää sarakkeeseen B ne asiakastunnukset, joissa on 7. merkkinä - tai A.
2. Osa on yritysten y-tunnuksia, mutta niissä on se virhe, että - on väärässä paikassa - pitäisi olla ennen viimeistä numeroa, mutta se onkin ennen 2 viimeistä numeroa. Eli nyt ne on muotoa 12345-67 oikein olisi 123456-7. Mitenkäs tämä korjataan? Kopioisin ne sarakkeeseen C.
Kenttien merkkien tutkiminen
jennisentti
1
122
Vastaukset
- ORCL
Makro moduuliin:
Sub Sarakkeisiin()
Dim VikaRivi As Long
Dim Solu As Range
Dim YritysTunnus As String
VikaRivi = Range("A1048576").End(xlUp).Row
For Each Solu In Range("A1:A" & VikaRivi)
If Mid(Solu, 7, 1) = "-" Or Mid(Solu, 7, 1) = "A" Then
Solu.Offset(0, 1).Value = Solu.Value
End If
If (Mid(Solu, 6, 1) = "-") Then
YritysTunnus = Replace(Solu.Value, "-", "")
YritysTunnus = Left(YritysTunnus, 6) & "-" & Right(YritysTunnus, 1)
Solu.Offset(0, 2).Value = YritysTunnus
End If
Next Solu
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225154- 254338
- 272461
- 342244
- 371998
- 151918
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211247Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101174