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

136

    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ä.

    Luetuimmat keskustelut

    1. Kalajoen hukkuneet pojat olivat tummaihoisia

      Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell
      Maailman menoa
      321
      7012
    2. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      71
      4198
    3. Sinä eräs, pyydän......

      AUTA mua ole kiltti. Ei mun takia vaan.... Miten saan sut kiinni?
      Ikävä
      208
      3145
    4. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      2917
    5. Nimikirjaimet

      Kuka kaipaa ketä 🥰
      Ikävä
      74
      1952
    6. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      149
      1761
    7. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      210
      1732
    8. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      165
      1550
    9. Minkä asian haluaisit muuttaa kaivatussasi?

      Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?
      Ikävä
      120
      1538
    10. Mies, ajattelemmekohan toisiamme juuri nyt?

      Olet mielessäni, vanhempi mies
      Ikävä
      89
      1428
    Aihe