CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

ulykken-smed Juniormester

26. november 2017 - 10:13 Der er 15 kommentarer og
1 løsning

VBA if not instr

Hej

Jeg kan ikke vende denne kode så den sletter alle rækker der ikke indeholder ".xlsx" og "Regnskab"

Sheets("Patienter").Range("a65000").Select
Selection.End(xlUp).Select
Sidsterække = ActiveCell.Row

For Rækkenr = 2 To Sidsterække
Sheets("Patienter").Range("a" & Rækkenr).Select
If InStr(ActiveCell.Value, ".xlsx") And InStr(ActiveCell.Value, "Regnskab") Then

ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Sidsterække = Sidsterække - 1
Rækkenr = Rækkenr - 1

End If
Next Rækkenr

Synes godt om

Thor Østergaard Ekspert

26. november 2017 - 10:29 #1

Jeg ville gøre det sådan her

Sub SletRaekker()
Dim i As Long
With Worksheets("Patienter")
For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
If Not (InStr(LCase(.Range("A" & i).Value), ".xlsx") > 0 And InStr(LCase(.Range("A" & i).Value), "regnskab") > 0) Then
.Range("A" & i).EntireRow.Delete
End If
Next
End With
End Sub

Synes godt om

ulykken-smed Juniormester

26. november 2017 - 10:33 #2

Super den virker fint
tak for hjælpen

Synes godt om

Jan Hansen Ekspert

26. november 2017 - 10:49 #3

prøv noget ala

Option Explicit
Dim wsPatienter As Worksheet, MyColumn As Range
Dim MyRow As Integer
Dim iCount As Integer
Sub DeleteRow()
Set wsPatienter = Sheets("Patienter")
Set MyColumn = wsPatienter.Range("A65000").End(xlUp)
MyRow = MyColumn.Rows.Count

For iCount = 2 To MyRow
On Error GoTo EndSub
Rows(MyRow).Select
If InStr(1, Selection, ".xlsx") And InStr(1, Selection, "Regnskab") Then
Selection.Delete Shift:=xlUp
End If
Next
EndSub:
On Error GoTo 0
End Sub

Jan

Synes godt om

1 synes godt om dette

ulykken-smed Juniormester

26. november 2017 - 14:01 #4

Hej Jan

Jeg bruger Thors mode, den kan jeg bedre overskue

Kennet

Synes godt om

Dan Elgaard Ekspert

26. november 2017 - 14:41 #5

@Jan: Hvordan laver du kode bokse???

Synes godt om

store-morten Ekspert

26. november 2017 - 15:51 #6

@Dan
(div) kode (/div)
Hold AltGr nede når du laver ()

Synes godt om

Dan Elgaard Ekspert

26. november 2017 - 20:19 #7

[Div]Tester[/Div]

Synes godt om

Dan Elgaard Ekspert

26. november 2017 - 20:19 #8

Næh?

Synes godt om

store-morten Ekspert

26. november 2017 - 21:21 #9

jo, brug kun små bogstaver

Synes godt om

Jan Hansen Ekspert

26. november 2017 - 21:34 #10

@ Dan som Morten skriver

[divk] fjern k

skriv det der skal være i boksen

[/divk] fjern k og der kommer en boks

Synes godt om

Dan Elgaard Ekspert

27. november 2017 - 12:38 #11

Vi tester igen

Synes godt om

Dan Elgaard Ekspert

27. november 2017 - 12:39 #12

Bingo !

Synes godt om

Dan Elgaard Ekspert

27. november 2017 - 12:40 #13

[div]iiiiii
wwwwww
000000[div]

Synes godt om

Dan Elgaard Ekspert

27. november 2017 - 12:40 #14

iiiiii
wwwwww
000000

Synes godt om

Dan Elgaard Ekspert

27. november 2017 - 12:40 #15

Æv - desværre bliver bogstaverne ikke af samme længde - så er det nærmest ubrugeligt!

Synes godt om

Jan Hansen Ekspert

27. november 2017 - 13:20 #16

God tiI at skille kode fra øvrig tekst.

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51
Addition af celler, som er formatteret "tt.mm" Af FinBalance i Excel	5	18/11/202414:14	19/11/202414:11

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS