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
113
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
- 1802207
Kompostointitarkastaja tuli tarkastukselle!
En ole ikinä kompostoinnut ja eilen kävi kompostointitarkastaja kylässä. Tosi hianoa byrokratiaa taas: "Laki edellyttää,871580Varattais lähihotellista
🥰 huone viikoksi. Oltais vaan ja tilattais huonepalvelusta herkkuja! Viikonloppukin käy jos et viikoksi ehdi ❤ Hyvää1821454Nyt jäi velat perimättä
Mikä idea se talo oli polttaa ja velalliset sisällä nyt jäi rahat saamatta141294Ellen Jokikunnas muistelee Reino-koiraa - Ralph-poika koskettavalla tavalla esiin: "Kiitos, että..."
RIP Reino. Lämmin osanotto suureen suruunne Ellen, Jari ja Ralph. Reino tuli tutuksi monelle suomalaiselle Unelmia Ita441114Martinan aussikulta, missä?
Mihin katosi Martina Aitolehden aussikulta kyselee Seiska!2161092- 45997
- 98909
- 85845
Meneekö eläinpuiston johto vaihtoon vaalien jälkeen?
Ähtärissä kuhistaan ja kuiskitaan, että perussuomalaiset esittävät vaalien jälkeen, että eläinpuiston hallitus uusitaan49815