Rivit

Turhat rivit pois

Miten saan tästä koodista sellaisen, että jos en halua riviä poistettavaksi, eli valitsen ettei sitä poisteta, solu ei jää enää punaiseksi vaan palautuu siihen mitä se olikin ?

Sub aaa()
Range("A:A").Interior.ColorIndex = xlNone
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1).Value) > 1 Then
Cells(i, 1).Interior.ColorIndex = 3
If MsgBox("Duplicates highted...Do you want to delete", vbYesNo) = vbYes Then
Cells(i, 1).EntireRow.Delete
End If
End If
Next i
End Sub

Kiitollisena vastausta odotellen

1

82

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub aaa()
      Range("A:A").Interior.ColorIndex = xlNone
      For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
      If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1).Value) > 1 Then
      Cells(i, 1).Interior.ColorIndex = 3
      If MsgBox("Duplicates highted...Do you want to delete", vbYesNo) = vbYes Then
      Cells(i, 1).EntireRow.Delete
      Else
      Range("A:A").Interior.ColorIndex = xlNone
      End If
      End If
      Next i
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 20v on otettu kiinni

      Tulipalo oli sytytetty joten murhasiko ex omat lapsensa ja heidän Äidin. Tuskin sitä kukaan ohikulkijakaan sytytti.
      Savonlinna
      184
      10586

    2. Mitä meidän välillä

      Tapahtuu lopulta?
      Ikävä
      63
      2909

    3. IL - Auerin lapsia oli houkuteltu rahalla Annelin puolelle?

      16:12 Outoja väitteitä Sijaisäidin mukaan Auerin lapsia koetettiin houkutella nettipalstoilla muuttamaan kertomuksiaan
      Maailman menoa
      82
      2628

    4. Kerro naisen nimi jota kaipaat

      😍
      Ikävä
      88
      2500

    5. Savonlinan perhesurma, epäilty mies romani, äiti kantaväestöä

      https://www.is.fi/kotimaa/art-2000011676508.html Savonlinnan seudun romaniyhdistyksestä kerrottiin lauantaina IS:lle, e
      Maailman menoa
      151
      2202

    6. Savonlinnan murhapolttaja romani

      Ainakin IS kertoo. Arvasin heti ettei ole normi valkolainen suomalainen.
      Maailman menoa
      264
      2059

    7. Ei me taideta

      Pystyä kokonaan olemaan erossa.
      Ikävä
      45
      1451

    8. Kun aika on oikea niin

      Tupsahdat uudelleen tai löydän edes melkein yhtä ihanan ja joudun tyytymään... Suukko poskelles. 😘 Viattomasti vain.. �
      Ikävä
      13
      1425

    9. Muutama vuosi sitten oli pulaa hoitohenkilökunnasta

      Nyt heitä sanotaan irti. Tarve ei ole hävinnyt mihinkään, ei myöskään raha jolla ihmisten työnteosta maksettiin; raha va
      Maailman menoa
      121
      1260

    10. Ilouutinen: Osmo Peltola jo teini-iässä, silti yhdessä Peltsi-isän kanssa taas tv:ssä!

      Ihan paras parivaljakko: Peltsi-isä ja Osmo-poika. Tämä on kyllä sellaista hyvänmielen telkkariohjelmaa, josta kukaan ei
      Tv-sarjat
      35
      912
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt