Meer regels in 1 keer toevoegen.

[appie36]

Meer regels in 1x toevoegen.

Ik heb een tabel gemaakt in excel waar ik werkzaamheden per perceel kan invoeren, dit werkt prima door middel van een keuze lijst die weer de gegevens door verticaal zoeken levert.
Nu moet het alleen steeds per perceel ingevoerd worden, soms doe je de zelfde werkzaamheden op alle percelen. Is het mogelijk om bijvoorbeeld een groep te maken van perceel 1 t/m 10, zodat meteen voor alle percelen dezelfde werkzaamheden worden toegegevoegd?

Hoop dat het een beetje duidelijk is wat de bedoeling is

 

[VenA]

Doe er even het bestandje bij.

 

[appie36]

Hierbij een klein voorbeeldje,

stel dat ik dus op alle percelen geschoffeld heb wil ik dat in een keer kunnen invoeren dat ipv voor elk perceel apart.

Groeten
Ab

 

[VenA]

Aan de tabel met percelen heb ik de optie Alle toegevoegd. Als je deze optie kiest worden de gegevens voor alle percelen ingevuld. Volgens mij is een Userform een betere optie om dit soort gegevens in te voeren maar dat was de vraag niet:d

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ListObjects(3).DataBodyRange.Columns(3)) Is Nothing Or Target.Count <> 1 Then Exit Sub
  If Target = "Alle" Then
    With Application
      .EnableEvents = False
      Target.Resize(ListObjects(2).ListRows.Count - 1) = ListObjects(2).DataBodyRange.Offset(1).SpecialCells(2).Value
      Target.Offset(1, -2).Resize(ListObjects(2).ListRows.Count - 2, 2) = Target.Offset(, -2).Resize(, 2).Value
      .Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)
      .EnableEvents = True
    End With
  End If
End Sub

 

[appie36]

VenA,

Dit is wel wat ik bedoelde ja, alleen hele toer voor mij om de vba code te ontcijferen. In ieder geval knap gedaan.
Jij hebt het over UserForms, is dat makkelijker te maken of vooral makkelijker voor de gebruiker?

mvg

Ab

 

[VenA]

Alles is geheel afhankelijk van eigen kennis en kunde. Met een Userform

 

[appie36]

Dat ziet er zeker goed uit zo, ik ga me maar is verdiepen in de userforms. Veel snap ik er nog niet van, begrijp niet hoe de gegevens op de goed plek in de tabellen komen. In iedergeval bedankt voor de voorbeelden.

 

[gast0660]

Hoi,
hier heb je er nog een met een userform
(Zip bestandje, eventjes uitpakken)

 

[appie36]

Mooi gemaakt, wel veel in een keer voor mij om de logica te snappen. Het is me wel enigszins duidelijk hoe het werkt. Voor mij is het zover opgelost, weet alleen niet hoe ik deze vraag als opgelost kan plaatsen. bedankt voor de reacties.