Bereik aanpassen met d.m.v. een userform

[mike564]

Beste helpers,

Ik wil door middel van een userform aan kunnen geven met hoeveel merken er rekening moet worden gehouden.
Zo kan ik het informatieblad compact houden, of indien nodig juist uitbreiden wanneer hier door het grote aantal niet alle merken worden getoond.

Voor de duidelijkheid een bestandje:
Bekijk bijlage VBA Bereik merken.xlsb

Voor het manueel plussen en minnen heb ik de onderstaande code.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Columns.Count > 1 Then Exit Sub
    If Target.Column = 2 And Target.Value = "Dubbelklik hier +1" Then
       With Target.Offset(-3, 0)
        .EntireRow.Copy
        .EntireRow.Offset(1, 0).Insert Shift:=xlDown
        End With
        Application.CutCopyMode = False
    Cancel = True
    End If
If Target.Columns.Count > 1 Then Exit Sub
    If Target.Column = 2 And Target.Value = "Dubbelklik hier -1" Then
       With Target.Offset(-3, 0)
        .EntireRow.Delete
        End With
        Application.CutCopyMode = False
    Cancel = True
    End If
End Sub
End Sub

Ik heb deze geprobeerd deze aan te passen zodat deze ook werkt door te klikken op het plus- of minteken, maar dit is me tot nu toe nog niet gelukt.

Iemand die mij hier verder kan helpen?

Alvast dank!

Mike

 

[edmoor]

Ik kom er niet uit wat nu precies je bedoeling is en je code maakt het er niet duidelijker op.
Daarnaast kan dat veel eenvoudiger maar zal je eerst wat meer uitleg moeten geven.

 

[Jack Nouws]

Voldoet dit?

Sub RijToevoegen()
  With Blad2.Rows(Blad2.Cells(5, 2).End(xlDown).Row)
    .Copy
    .Offset(1).Insert
    Application.CutCopyMode = False
  End With
End Sub

 

[mike564]

Ik heb er nog even over nagedacht en heb het eenvoudiger opgelost door het bereik op voorhand al wat overdreven uit te breiden en met een knop te verbergen / te tonen op basis van waarden.
Toch bedankt! Dankzij Edmoor ben ik toch buiten mijn tunnelvisie gaan denken en heb ik het probleem zelf op kunnen lossen :thumb: