Rij en tabblad verwijderen.

[DANIEL162]

Hallo,

De nummers onderaan te beginnen wissen door erop te dubbelkikken werkt heel goed
Als er tussenin (dus niet onderaan) dubbelklik krijg een foutmelding?????? . En krijg een tabblad HD Register (2) die men telkens handmatig moet verwijderen
Hoe kan dat opgelost worden worden?
De bijlage is er om u wegwijs te maken van het gebeuren.Bekijk bijlage FaStIep.rar

Groetjes,
Daniel

 

[zapatr]

In de bijlage zijn je macro's werkend gemaakt, d.w.z.: ik heb beide samengevoegd en die macro kun je verder aan je wensen aanpassen. Er valt aan de code nog wel meer te verbeteren, maar gelet op je onjuiste mening hier dat ik niet kan lezen, laat ik het hierbij.

 

[DANIEL162]

Bedankt voor je reactie.
Nu kan ik zonder probleem eender welke rij verwijderen.
Maar er zijn twee dingen die niet meer gaan:
1. Dubbelklik op een nummer, diezelfde tabbladnummer verwijderd niet.
2. Als ik een nieuw nummer invoer kan nu ook geen nieuw tabblad aanmaken, daar ik het in eerste instantie het wel kon.

 

[Thankyou]

Misschien ben je ook geholpen met een topic die toevallig op een andere site gaande is, ook hier wordt al (via vba) antwoord gegeven.

Succes,

 

[zapatr]

Probeer deze bijlage en als er nog iets niet juist is, meld het dan.
Aangenomen is dat in kolom A nieuwe invoer steeds na de laatste rij met gegevens wordt ingevoerd.

 

[Warme bakkertje]

En zo zijn ze wat opgekuist

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr As Integer
If Target.Count = 1 Then
    lr = Range("A" & Rows.Count).End(xlUp).Row
    If Target = Range("A" & lr) And Target.Value <> "" Then
        With Sheets("HD Register")
            .Visible = True
            .Copy Sheets(Sheets.Count)
            .Visible = xlVeryHidden
        End With
        Sheets(Sheets.Count).Name = Target.Value
        Range("A" & lr).Interior.Color = vbYellow
    End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  'Rij verwijderen
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
Cancel = True
If Target.Value = "" Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("A9:A100")) Is Nothing Then
    If MsgBox("In deze cel (" & ActiveCell.Address & ") staat de volgende waarde: " & ActiveCell.Value & ". Wil je deze verwijderen?", vbYesNo, "Vraagje") = vbNo Then
        Application.Goto Range("A1"), True
        Exit Sub
    End If
    Sheets(CStr(Target.Value)).Delete
    Target.EntireRow.Delete xlUp
End If
With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub

 

[DANIEL162]

Zapatr
Het werkt inorm heel goed.
Het is geen probleem dat in kolom A nieuwe invoer steeds na de laatste rij met gegevens wordt ingevoerd.
Als het te rommelig wordt kan het nog gesorteerd worden.
Sorry van de vorige keer. Mijn excuses.

Dank u dank u, iedereen die hier op dat forum zit is geweldig. Bedankt mannen.

Met vriendelijke groet,
Daniel

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.