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

132

    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. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      172
      6273
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      147
      1744
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1528
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1280
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      46
      952
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      30
      870
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      97
      856
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      5
      809
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      231
      775
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      759
    Aihe