Vraag : het flits voorwerp toont niet in D.W.Z.

ik heb een eenvoudig voorwerp (flits) op mijn Web-pagina die omhoog in chroom en FF maar niet D.W.Z. komt.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
" mede "

Antwoord : het flits voorwerp toont niet in D.W.Z.

Paul, te proberen gelieve dit:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Sub BajanPaul ()
Schemerige lastRow zoals lang, I zoals lang
Application.ScreenUpdating = Vals
lastRow = ActiveSheet.UsedRange.Rows.Count
Voor I = lastRow aan 6 Stap -1
    Als niet IsNull (Rijen (I). Tekst) en IsNull (Rijen (I - 1). Tekst) en niet IsNull (Rijen (I - 2). Tekst) en _
        Niet IsNull (Rijen (I - 3). Tekst) en niet IsNull (Rijen (I - 4). Tekst) en niet IsNull (Rijen (I - 5). Tekst) toen
                        Waaier (Rijen (I - 5), Rijen (I)). Schrap
            i = I - 5
    Eind als
Daarna
Application.ScreenUpdating = Waar
Sub van het eind
Andere oplossingen  

 
programming4us programming4us