Skjule de tomme rækker i et loop

Prøv med:

Sub SkjulTomme()
Application.ScreenUpdating = False
Dim a As Long  'skjul tomme rækker
    For a = 1 To 101
    If Cells(a, 1).Value = "" Or Cells(a, 1).Value = "0" Then
        Cells(a, 1).Select
        ActiveCell.EntireRow.Hidden = True
      End If
    Next a
End Sub

du må selv ændre i hvilken kolonne den skal afgøre om linien er tom. Kan også kombineres så den selv checker videre på næste kolonne, så sender du den bare videre i et 'under'loop på samme måde. min kan kun tage 100 linier ad gangen, men du kan jo selv gå videre med underloop igen til de næste 100.

Hej igen, det virker super, hvordna får jeg den til at medtage celler, hvor der tilgår tekst, som tidligere har været tommer, kommer de ikke automatisk med, når de ikke er tomme mere?

Jeg ville jo egentligt gerne have det lavet, så de kolonner, hvor der er tekst, også bliver sorteret, således at de tomme felter i kolonnen kommer nederst. Det sker pt. kun med tal, ikke bogstaver?

I henhold til den kode der skjuler de tomme felter, der skal jeg blot bruge en, der opdaterer arket, så den igen indlæser hvad der er tomti fanerne  og så skjuler dem der er tomme.

Sub visTomme()
Application.ScreenUpdating = False
Dim a As Long  'skjul tomme rækker
    For a = 1 To 101
    If Cells(a, 1).Value = "" Or Cells(a, 1).Value = "0" Then
        Cells(a, 1).Select
        ActiveCell.EntireRow.Hidden = False
      End If
    Next a
End Sub

Prøv lige om det er så simpelt som dette ;-) dette er jo et kriterie for at der kan medgå nyt indhold i de tomme linier..

Det virker super:


Jeg ville jo egentligt gerne have det lavet, så de kolonner, hvor der er tekst, også bliver sorteret, således at de tomme felter i kolonnen kommer nederst. Det sker pt. kun med tal, ikke bogstaver?

Hvilke data (tal/tekst) har du i hvilke kolonner?

Send lige din mail, så kan jeg sende mit ark?

tl@davir.dk - så skal jeg kigge på den. jeg er på messe idag men hvis du sender inden 8 bliver det måske før jeg tager afsted ;-)

Hej, jeg har virkeligt brug for hjælp nu!

Kan vi arrangere et møde på MSN, hvor du kan hjælpe mig lidt, det er bare nogle småting- men de er super vigtige!

Hvis du ikke har fået hjælp, kan du sende en mail med dit ark
eller en beskrivelse af hvad problemet er
pm@madsen.tdcadsl.dk

Hej excelent, jeg har sendt filen til din mail!

Den bliver ved med at skrive, at der er fejl i nedenstående:

Sub SkjulTomme()
Application.ScreenUpdating = False
Dim a As Long  'skjul tomme rækker
    For a = 11 To 4000
    If Cells(a, 1).Value = "" Or Cells(a, 1).Value = "0" Then
        Cells(a, 1).Select
        ActiveCell.EntireRow.Hidden = True
      End If
    Next a
End Sub

Jeg forstår d simpelthen ikke, når jeg er i excel, viser den en fin oversigt over hvilke informationer der kommer med på udskrift side 1-x.... når når jeg klikker visudskridt bliver indholdet i de øverste 30 celler ens!?!

har du ikke fået en mail ?

Nej, gider du ikke skrive til mig på msn: juhl@makalay.dk jeg har et spg. til dig!

Løsning blev:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("J11:J6000")) Is Nothing Then Exit Sub
If Target.Value = "X" Or Target.Value = "x" Then
Range("A" & Target.Row & ":J" & Target.Row).Interior.ColorIndex = 15
Else
Range("A" & Target.Row & ":J" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
Sub CopyToHovedArk()
Application.ScreenUpdating = False
Set sh1 = Sheets("Niveau")
sh1.Range("A11:J2500") = ""
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Niveau" Then Sh.Select
For t = 27 To Sh.Cells(1000, 1).End(xlUp).Row
rk = sh1.Cells(5000, 1).End(xlUp).Row + 1
sh1.Cells(rk, "A") = Sh.Cells(t, "A")
sh1.Cells(rk, "D") = Sh.Cells(t, "D")
sh1.Cells(rk, "E") = Sh.Cells(t, "E")
sh1.Cells(rk, "F") = Sh.Cells(t, "F")
sh1.Cells(rk, "G") = Sh.Cells(t, "G")
sh1.Cells(rk, "H") = Sh.Cells(t, "H")
sh1.Cells(rk, "I") = Sh.Cells(t, "I")
sh1.Cells(rk, "J") = Sh.Cells(t, "J")
Next
Next
sh1.Select
Application.ScreenUpdating = True
End Sub

Hej, mange tak for svaret. Gider du sende et svar. SÅ får du points!

du har allerede givet point til lehmannfarm

Så svar her:

http://www.eksperten.dk/spm/826304