Van nul naar 1

[vliet1001]

Goeden avond

In bijgaand voorbeeld heb ik een namenlijst geimporteerd.
De lijst kan varieren in lengte, maar is max 100 regels.
De lege velden worden gevuld met "0"
De eerste 5 "nullen" wil ik vervagen voor een 1 en de overige velden hidden maken.

Je kunt dit natuurlijk op je beeldscherm doen, maar dat is niet de bedoeling.

Hoe programmeer ik dit in een makro ?:thumb:

Groet,
Jan

 

[Wigi]

Dus:

- 5 cellen selecteren
- een 1 typen
- Ctrl-Enter drukken
- een 80-tal rijen selecteren
- die verbergen

vindt u teveel werk om manueel te doen?

 

[vliet1001]

Van 0 naar 1

Dus:

- 5 cellen selecteren
- een 1 typen
- Ctrl-Enter drukken
- een 80-tal rijen selecteren
- die verbergen

vindt u teveel werk om manueel te doen?

Natuurlijk is dit onderdeel van een groter geheel wat geautomatiseerd moet verlopen.
Als je een oplossing voor code weet dan hou ik me aanbevolen.

 

[Wigi]

Om welke 5 cellen gaat het dan?

 

[Spiderman]

Hoi,

Is dit iets wat je bedoeld?

Sub nul()
Dim LaatsteRij As Long: LaatsteRij = Sheets(1).UsedRange.Rows.Count
Dim NulTeller As Integer: NulTeller = 0

For x = 4 To LaatsteRij
    If Cells(x, 1).Value = "0" Then
        If NulTeller < 5 Then
            Cells(x, 1).Value = "1"
            NulTeller = NulTeller + 1
        Else
            Cells(x, 1).EntireRow.Hidden = True
        End If
    End If
Next x
End Sub

 

[Wigi]

Of zoiets misschien?

Sub fff()

    With Columns(1).SpecialCells(2, 1).Cells(1)
        .Resize(5).Value = 1
        Range(.Offset(5), Range("A" & Rows.Count).End(xlUp)).EntireRow.Hidden = True
    End With

End Sub

 

[vliet1001]

Hoi,

Is dit iets wat je bedoeld?

Sub nul()
Dim LaatsteRij As Long: LaatsteRij = Sheets(1).UsedRange.Rows.Count
Dim NulTeller As Integer: NulTeller = 0

For x = 4 To LaatsteRij
    If Cells(x, 1).Value = "0" Then
        If NulTeller < 5 Then
            Cells(x, 1).Value = "1"
            NulTeller = NulTeller + 1
        Else
            Cells(x, 1).EntireRow.Hidden = True
        End If
    End If
Next x
End Sub

 

[vliet1001]

Jij kunt programmeren ! prima bedankt.

Groet,
Jan