Slet tomme celle

Jeg har desværre ikke tid i dag, men jeg har en vejledning til selvhjælp, idet jeg regner med du ved hvordan man editerer macroer vi VB.

1) Optag en macro hvor du sletter den første del af din systematik.
2) Åben macroen i VB og udskigt index i din sletning med variable og lad variablene ændre sig i en lykke til slutbetingelsen er opnået.

God fornøjelse.

Jeg lægger et svar da du måske kan bruge mit input.

Har du en celle med tekst midt i dine talområder ?

Ja det er derfor de "tomme" celler skal slettes, fordi i nogle af dem der er tekst!

Hvor langt er du kommet ?

Hvis du ikke ved havd du skal gøre med macroen kan du lige kopiere den ind her på eksperten.

Jeg må indrømme, jeg er ikke en særlig haj til VBA.. Så jeg kan sku ikke få det til at kører...

Altså alle ikke-numeriske celler skal slettes, indtil, men ikke incl. en celle med værdien "Kontanter"? Har jeg forstået det rigtigt?

KACE --> kopier din macro ind her på hjemmesiden.

Regnarket ser sådan ud:

  ABCDEFGH
1  63457264
2  74298742
3
4
5  7432989
6  9428758
7  tekst
8
9  2893746
10 8439029
11
12
..........

Fortsætter på denne måde indtil i kolone B der er noget tekst "kontanter"...
Problemet med arket er at der nogle gange kun er 10  rækker (med mellemrum) og andre gange er der måske 50 rækker.

"Kontanter" er så der løkken skal stoppe! så løkken ikke fortsætter til række 65500...
Alle de steder der er mellemrum feks. A3:H4 og A7:H8 skal slettes og så rykkes op så arket ser således ud:

  ABCDEFGH
1  63457264
2  74298742
3  7432989
4  9428758
5  2893746
6  8439029
.........

Håber det giver lidt mere mening :o)

Jeg har ikke rigtig nogen makro.... men denjeg har prøvet ser således ud:

Sub Macro1()
j = 1
While Cells(j, 1) <> ""
j = j + 1
Wend
Range(Cells(j, 1), Cells(j + 2, 4)).Clear
End Sub

og jeg kan ikke få den til lave en løkke...

Sub Makro1()
    slut = Range("A65536").End(xlUp).Row
    For i = slut To 1 Step -1
        If IsEmpty(Cells(i, 1)) Then
            Rows(i).Delete
        End If
    Next
End Sub

Tusind tak Kabbak

det er fandme nice!

HAr

Har du fået point???

jeg skal svare først ;-))