Kenttien merkkien tutkiminen

jennisentti

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.

1

120

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä tapahtunut

      Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?
      Kankaanpää
      48
      6288

    2. Lakea konkurssiin. Asukkaat menettävät asuntonsa

      Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki
      Seinäjoki
      69
      4265

    3. Upea peppuisella naisella

      Upea peppuisella naisella on upea peppu.
      Ikävä
      46
      3649

    4. Nikkalassa vauhdilla nokka kohti taivasta

      Mitähän Darwin sanoisi näistä 4 suomalaisesta, jotka kävivät Haparandan puolella näyttämässä, kuinka Suomi auto kulkee t
      Tornio ja Haaparanta
      21
      3226

    5. Gallup: kaivattusi syntymävuosi

      Minä vuonna kaipaamasi henkilö on syntynyt?
      Ikävä
      197
      2970

    6. Missäpäin,,,

      Lapuaa tapettu ihminen viime yönä ? Hurjaa touhua nykymeno täällä...
      Lapua
      40
      2662

    7. mahdollista, että olet ollut iltavuorossa

      Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k
      Ikävä
      13
      2529

    8. törniöläiset kaaharit haaparannassa

      isäpapan autolla kaahatta 270 km/h metsään https://www.lapinkansa.fi/nsd-kaksi-suomalaista-kuoli-kolarissa-haaparannall/
      Tornio ja Haaparanta
      20
      2502

    9. Mitähän ne katseet merkitsee

      Kun et saa sanaa suustasi.
      Ikävä
      153
      1536

    10. Sitä saa mitä tilaa Perussuomalaiset!

      https://yle.fi/a/74-20160212 SDP:n kannatus se vain nousee ja Keskusta on kolmantena. Kokoomus saanut pienen osan persu
      Maailman menoa
      325
      1498
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt