Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: tekst automatisch invullen als een cel gevuld is.  (gelezen 7254 keer)

0 leden en 1 gast bekijken dit topic.

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
tekst automatisch invullen als een cel gevuld is.
« Gepost op: 18 september 2020, 22:39:10 »
ik ben nu al een poosje bezig maar het lukt mij niet. wie weet kunnen jullie mij verder helpen

bij totaal overzicht wil ik dat hij gegevens uit tab cake en taarten haalt.
namelijk de tekst naast Naam van het gerecht: dus wat ik kolom c staat.
en als er niets naast Naam van het gerecht: staat dan wordt er niets ingevuld

als hij dat eenmaal gedaan heeft moet hij de andere kolommen ook automatisch invuilen.

ik krijg het niet voor elkaar  :-[

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #1 Gepost op: 19 september 2020, 01:04:38 »
zoiets.
Een beetje zoekwerk, want de rijen staan niet op vaste afstanden, dus term per term apart opzoeken.
Dit veronderstelt dat alle termen exact juist geschreven zijn, zonder schrijffouten of extra spaties of ...

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #2 Gepost op: 19 september 2020, 08:24:22 »
ik kan eventueel wel alles op vaste rijen plaatsen, maar ik wil dat hij naar een woord zoekt en dan een cel er naast of 4 cellen er naast invult

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #3 Gepost op: 19 september 2020, 10:47:30 »
ik begrijp je niet.
"Cakes en taarten" is toch je werkblad en je verwacht een samenvatting op "totaal overzicht".
Zoals je het daar stelt, wil je iets anders.

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #4 Gepost op: 19 september 2020, 12:02:02 »
Als je altijd dezelfde opmaak gebruikt op het blad "cake en taarten" kan het ook zo.

dubbelklik op de groene cellen om de gegevens te verplaatsen.

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #5 Gepost op: 19 september 2020, 13:27:28 »
Hoi EMiel,

kijk dat ziet er slim uit! Dankjewel
enige is dat de cellen niet aanpassen op het moment er een prijs wijziging is, klopt dat, of doe ik iets verkeerd?

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #6 Gepost op: 19 september 2020, 13:45:23 »
nu heb ik er extra regels bij toegevoegd om zo overal 1 en de zelfde format te gebruiken.
hoe zorg ik er voor dat hij de juiste gegevens leest?  omdat er nu regels toegevoegd zijn, zijn de juiste regels naar beneden geschoven.

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #7 Gepost op: 19 september 2020, 14:52:54 »
ik heb nu de eerste veld 6 extra regels gemaakt.

deze velden wil ik straks voor elke product gebruiken, elk recept heeft dan de zelfde x aantal regels.

hoe voeg ik de nieuwe extra regels toe zodat hij in totaal overzicht de juiste cellen weer gebruikt?

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #8 Gepost op: 19 september 2020, 18:18:05 »
ik heb mijn versie iets aangepast en ook die van Emiel, maar van die klopt er nog iets niet.
In de A-kolom staat nu het rijnummer van "cake en taarten" zodat als je daar iets wijzigt, je het hier ook terugvindt.

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
|-|aije

ik gebruik Office 2016 Professional Plus

Offline VenA

  • Nieuw lid
  • Berichten: 2
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #10 Gepost op: 19 september 2020, 20:42:49 »
Lekker op twee plekken bezig.

Niet echt een handige opzet om er een macro voor te maken.
Probeer het zo maar eens.

Sub VenA()
Dim a(9)
  ar = Sheets("cake en taarten").UsedRange
  Set d = CreateObject("Scripting.Dictionary")
  For j = 1 To UBound(ar)
    If ar(j, 2) = "Naam van het gerecht:" Then
      a(0) = ar(j + 1, 3)
      a(1) = ar(j, 3)
    End If
    If ar(j, 2) = "Aantal personen:" Then a(3) = ar(j, 3)
    If ar(j, 2) = "Totale inslag" Then
      a(2) = CDbl(ar(j, 8))
      a(4) = CDbl(ar(j + 1, 8))
      a(5) = CDbl(ar(j + 5, 8))
      a(6) = CDbl(ar(j + 2, 8))
      a(7) = CDbl(ar(j + 3, 8))
      a(8) = CDbl(ar(j + 4, 8))
      a(9) = ar(j + 7, 8)
      If a(1) <> "" Then d(d.Count + 1) = a
    End If
  Next j
  Sheets("totaal overzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(d.Count, 10) = Application.Index(d.items, 0)
End Sub

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #11 Gepost op: 19 september 2020, 20:50:24 »
remco,

is dit dezelfde vraag?
https://www.helpmij.nl/forum/showthread.php/955986-criteria-zoeken-en-cellen-vullen

klopt echter kwam ik niet verder helaas, de macro die hier gegeven is, ben ik wel heel blij mee alleen weet ik niet hoe ik de extra regels er bij kan plaatsen. vba heb ik geen kaas van gegeten :-[

ik ben onwijs blij met jullie steun, dank jullie wel!!

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #12 Gepost op: 19 september 2020, 21:03:15 »
Lekker op twee plekken bezig.

Niet echt een handige opzet om er een macro voor te maken.
Probeer het zo maar eens.

Sub VenA()
Dim a(9)
  ar = Sheets("cake en taarten").UsedRange
  Set d = CreateObject("Scripting.Dictionary")
  For j = 1 To UBound(ar)
    If ar(j, 2) = "Naam van het gerecht:" Then
      a(0) = ar(j + 1, 3)
      a(1) = ar(j, 3)
    End If
    If ar(j, 2) = "Aantal personen:" Then a(3) = ar(j, 3)
    If ar(j, 2) = "Totale inslag" Then
      a(2) = CDbl(ar(j, 8))
      a(4) = CDbl(ar(j + 1, 8))
      a(5) = CDbl(ar(j + 5, 8))
      a(6) = CDbl(ar(j + 2, 8))
      a(7) = CDbl(ar(j + 3, 8))
      a(8) = CDbl(ar(j + 4, 8))
      a(9) = ar(j + 7, 8)
      If a(1) <> "" Then d(d.Count + 1) = a
    End If
  Next j
  Sheets("totaal overzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(d.Count, 10) = Application.Index(d.items, 0)
End Sub

moet ik deze code in de macro zetten van totaal overzicht?

Sorry heb hier geen verstand van  :-[

Offline VenA

  • Nieuw lid
  • Berichten: 2
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #13 Gepost op: 19 september 2020, 21:07:35 »
Er is vast wel ergens iets te vinden hoe je dat moet doen. Gaat gelijk je kennis van VBA wat omhoog.

Offline remcok

  • Nieuw lid
  • Berichten: 8
  • Oplossing.be
Re: tekst automatisch invullen als een cel gevuld is.
« Reactie #14 Gepost op: 19 september 2020, 21:12:13 »
heb je helemaal gelijk in...is niet dat ik stil zit, wist eerst heel weinig van excel moet zeggen dat dat goed bijgesteld is na het maken van wat ik nu heb gemaakt :-)

het is me nu gelukt om het ea bij te stellen.

dank jullie wel voor de moeite die jullie hebben genomen.

super vet hoe jullie dit allemaal weten en andere er mee helpen

 


www.combell.com