28. januar 2014 - 15:39Der er
10 kommentarer og 1 løsning
Fjerne/slette rækker hvis bestemt værdi findes i rækken
Excel 2010
Har "fundet" dette til at slette rækker med bestemt værdi. Virker fint, hvis værdien findes, men kommer med fejlmelding, hvis værdien ikke findes i nogen rækker. Hvad gør jeg? Kan 254 udskiftes med "Textbox1.Value ?
Sub test()
For Each C In Range("B1:B10000") If Not IsEmpty(C) And C.Value = 254 Then C.Value = True Next Range("B1:B10000").SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
Sub test() Dim v As String For Each c In Range("B1:B10") v = Replace(Str(c.Value), " ", "") If Not IsEmpty(c) And v = Me.TextBox1 Then c.Value = True Exit For End If Next Range("B1:B10000").SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
Sub test() Dim v As String For Each c In Range("B1:B10") v = Trim(Str(c.Value)) If Not IsEmpty(c) And v = Me.TextBox1 Then c.Value = True End If Next Range("B1:B10000").SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
PS.: Du er med på at koden p.t. igangsættes ved at: - aktivere Userform - indsætte en værdi i TextBox1 - klik på Userform - et tilfældigt sted *) - herefter udføres koden
*) Private Sub UserForm_Click() test '<------ End Sub
Sub test() Dim v As String For Each c In Range("B2:B10") 'B1--> B2 v = Trim(Str(c.Value)) If Not IsEmpty(c) And v = UserForm1.TextBox1 Then c.Value = True End If Next
On Error Resume Next 'tilføjet Range("B1:B10000").SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
