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
Rivit
Turhat rivit pois
1
86
Vastaukset
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ä.
Luetuimmat keskustelut
Miksei Björn Wahlroos jaa rahaa köyhille?
Esimerkiksi Nordean tiloissa? Vai tuovatko ne köyhät hiekkaa marmorilattioille ja siksi ei pysty mursunviiksi pystyyn k1843715Vassarit kummittelee pääni sisällä joulunakin
Hetki sitten alkoi punakapina. Joulupäivään mennessä ollaan jo Lindtmanin nuoruusvuosien näytelmäkerhossa. Tapaninpäivän272277Oho, köyhyys väheni Marinin hallituskaudella
👋💥🤕 Tuonkin Marinin hallitus sössi --- Vuosien 2019–2023 sosiaaliturva- ja verotusperusteiden muutokset suhteessa h81756Jouluksi miettimistä: kuka tai mikä valmistaa rahan?
Nyt kun on ollut vääntöä rahasta ja eritoten sen vähyydestä, niin olisi syytä uida rahan alkulähteille, eli mistä se syn431710Onko 65-vuotias liian vanha lähtemään rintamalle?
Suomessa reserviläisikä nousee ensi vuoden alusta 65 ikävuoteen. Jatkossa asevelvollinen kuuluu reserviin sen vuoden lop3831502Yksikään persu ei ole saanut Nobelin palkintoa
Kertoo paljon persujen älyn puutteesta. Demareista mm. Ahtisaari on kyseisen palkinnon saanut.631490Kohuotsikoihin nousseet Aku Hirviniemi ja Mikko Leppilampi jouluna tv:ssä!
Täydellinen joulu -leffassa on iso kaarti suomalaisia näyttelijöitä. Mukana mm. Elena Leeve, Antti Luusuaniemi sekä koh171035Ex-Puoli seitsemän juontaja Anniina Valtonen yllättää - Uudessa roolissa tv:ssä!
Monen suosikki Anniina Valtonen tv:ssä! Valtonen on tuttu Ylen meteorologina, mutta hän juonsi myös Puoli seiskaa. Nyt A31905Mitä metsaman tuottaa
Törkypuhetta, ahdistusta, pahaa mieltä, riitaa, eripuraa, köyhien menestymättömien ja maattomien kurjien vähättelyä. Sit99802Korvasiko kaupunki Morkon talon?
Tän missä oli joku vesivuoto talon ulkopuolella? Vai miten saaga päättyi?6743