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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
