Data bijvoegen in bepaalde regel van een tabel

[ExcelTonnie]

Tot nu toe is het mij gelukt om in een VBAformulier een selectie te maken uit een tabel.

Voorbeeld

ActiveSheet.ListObjects("Tabel2").Range.AutoFilter Field:=1, Criteria1:=Range("Q1")

Hij maakt nu de selectie wat ik op Q1 heb staan.
Nu moet er iets geplaatst worden in die regel op kolom AB
De kolom AB is altijd goed maar het regelnummer veranderd a.d.v.h. de selectie.
Hoe kan ik nu data toevoegen in Kolom AB op de desbetreffende regel.

 

[HSV]

with ActiveSheet.ListObjects("Tabel2")
  .Range.AutoFilter 1, Range("Q1")
  .listcolumns("de naam van de kolom hier").databodyrange.specialcells(12)= "deze tekst"
  .range.autofilter
end with

 

[ExcelTonnie]

Harry
Heb het getest maar het werkt niet, stopt bij de regel
.listcolumns("de naam van de kolom hier").databodyrange.specialcells(12)= "deze tekst"

Bij naam van de kolom heb ik AB geprobeerd maar ook de Titelnaam en geen van beiden werkt.
Doe ik iets verkeerd.

 

[HSV]

Om te beginnen je bestand te plaatsen.
Ik ben er van uitgegaan dat kolom AB binnen de tabel valt zoals jij hebt omschreven.

 

[ExcelTonnie]

Harry

Ga via menu naar bestaande koppels bewerken/bekijken
bij de zoekfunctie kies je bijv Nr 100 en klik op zoeken.
Nu jou code onder de knop Makro van Harry.

Hoop dat je er wat wijs uit wordt.

 

[HSV]

Ben er al uit.

Het sluit gelijk mijn Excel. :shocked:

 

[ExcelTonnie]

Wanneer, bij het starten van het progje.

Ben maar een beginner dus indien mogelijk graag iets meer uitleg wat je precies bedoelt.

 

[HSV]

Bij het sluiten van het formulier.

Ik zie het al:

Tabel2 loopt niet door tot kolom AB.
Die valt in Tabel3.

 

[ExcelTonnie]

Begrijp nog niet wat je bedoelt.

Als je start dan worden tabbladen verborgen en kom je in een gebruikersformulier.
Daar kies je Bestaand Koppel bewerken/bekijken.
Dan kies je onderaan op de pijl bijv. Nr 100 en klik op de button zoeken op kweeknr.
Dan wordt de bijbehorende data uit tabellen opgehaald
Onder de knop Makro Harry staat een deel van Jou code.
Duidelijk?

Waar gaat het bij jou verkeerd?

 

[ExcelTonnie]

Via Alt F11 kun je dit form weer oproepen "GevormdeKoppels"
Neem aan dat je dit beter weet dan mij.

 

[HSV]

Als ik het bestand open komt het Userform tevoorschijn, sluit ik die, dan gaat mijn applicatie op False.

 

[ExcelTonnie]

Ook kun je op het begin form op login drukken en er opent een tabel data.
Van daar uit Alt F11 kun je dit form weer oproepen "GevormdeKoppels"

 

[ExcelTonnie]

Als ik het bestand open komt het Userform tevoorschijn, sluit ik die, dan gaat mijn applicatie op False.

Die moet je niet sluiten maar een keuze maken in dat form.
"Bestaande koppels bewerken/bekijken"

 

[ExcelTonnie]

Sorry mijn fout, ik wil zoveel mogelijk de tabellen verbergen.

 

[HSV]

Ik niet.

Het formulier kan me niet zoveel schelen.
Het gaat mij om de code en de opzet van je tabellen.

Zoals ik al schreef; je tabel2 loopt niet door tot kolom AB.
AB valt in Tabel3.

Dan werkt de code inderdaad niet.

 

[ExcelTonnie]

Ok ik had het zelf niets eens door, kun je de code daarvoor aanpassen of moet ik de tabelopbouw anders maken

 

[HSV]

Wat moet er gebeuren?

Je filtert op waarde van Q1 en dan moet er wat komen in Tabel3.

 

[ExcelTonnie]

Ik had nog wat kolommen als reserve in tabel 2 staan en heb even jou code getest in het werkt.

Maar om niet alles om te gooien wil ik iets in een TxtBox zetten in dit in een bepaalde kolom in Tabel 3 plaatsen.

Moet namelijk telkens iets toevoegen bijv, datum 1e ei, dan weer datum 1e vogel enz.

 

[emields]

Als je naar de garage gaat haal je dan ook eerst de motor uit uw auto?

Exel doen afsluiten kan voor sommige helpers heel nare gevolgen hebben als ze nog met andere dingen bezig zijn.

 

[ExcelTonnie]

Sorry, dat komt als je de code niet goed begrijpt zoals ik en lerende bent.
Daarbij is dit iets wat ik later bedacht heb om extra eraan toe te voegen.
Ben echt blij met de helpers op dit forum en hoop dat jullie ook een beetje begrip hebben voor mensen met minder kennis van VBA.
Op deze manier wordt de drempel hoger om iets te vragen bij zo'n reactie emields.
Natuurlijk ben ik er achteraf van bewust dat het gevolgen heeft als excel afsluit als een helper zelf nog met iets bezig is zonder het opgeslagen te hebben, excuses daarvoor.