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
142
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
- 1053630
Satuit vain olemaan
Ensimmäinen joka avasi minussa sen nähdyksi ja rakastetuksi tulemisen puolen. Pitäisi vain muistaa että et ole ainoa. Se472579- 982360
24/7 sinä mielessä, ihan jatkuvalla syötöllä
Aamulla herätessä, päivällä melkein nonstop, illalla nukkumaan mennessä, öisin herätessä. Mikä viddu tässä on 🤣401924Jotain pitää nyt keksiä että sinut näkisi
Ensiviikolla viimeistään. Tälle on pakko saada kunnon piste tai sitten aloitetaan loppuelämä yhdessä, tulen hulluksi muu261604- 271502
Mulla tulee vaan niin
Paha olo siitä mitä teidän välillä on. Vaikka se on sun päätös mitä haluat. Tuntuu että menetän jotakin vaikka tiedän et181434- 221298
Olikohan se
Kuitenkin niin, että kiinnostuit minusta ihan tosissaan. Loukkaannuit, kun en ollutkaan valmis tapaamaan sinua.. Pelkäsi81231Mitkä olivat viimeiset sanasi ikävoinnin kohteellesi
Ja milloin? Mitä olisit sanonut jos olisit tiennyt että ne jäävät viimeisiksi -ainakin toistaiseksi?671185