Consulting

Results 1 to 9 of 9

Thread: oplaan van aangepaste data terug in de tabel

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1

    oplaan van aangepaste data terug in de tabel

    Beste forum gebruikers ik heb een probleem met een calculatie file
    ik heb een tabblad Artikel_db met een tabel voor mijn artikelen.
    Via een tabblad artikelen invoeren kan ik artikelen toevoegen aan het tabel vanhet tabblad artikel_DB.
    Daarnaast heb ik een tabblad artikel edit voor artikelen te kunnen editen hierbij haal ik de data uit de tabel van de artikel_DB terug om te editen en via een knop save weer terug te schrijven in de tabel (ook hier zitten foute in maar werkt meestal).
    Dan heb ik een tabblad voor recepten in te voeren daar kan ik
    recepten invoeren met artikelen vanuit de artDB en daar bereken hij van alles mee dit werkt goed.
    dit slaat hij via een knop save op in een tabel op het tabblad recept_DB dit werkt ook prima
    maar nu moet een recept ook aangepast kunnen worden daar heb ik een tabblad voor aangemaakt recept edit en het inladen van het recept werkt prima het aanpassen ook maar als ik het wil saven dus weer terug schrijven naar de tabel in recept db dan wil hij dit niet doen hij loopt de select velden netjes na maar schrijft niets weg de oude waarde worden weer terug gehaald


    ik loop hierop vast voor ik weer verder kan gaan

    heeft iemand hier een oplossing of antwoord op
    het gaat dus om het stuk code in vb
    Sub Edit_Recept_Save()  'Een gewijzigt recept opslaan en
    Dim SelRow As Long
    
    If Blad8.ComboBox1.Value = Empty Then 'controleer of er een recept geselecteerd is
           MsgBox "Selecteer een Recept"
            Exit Sub
    Else
    
    With Blad3
        Set RowNr = .Range("A4:A2000").Find(What:=Blad8.Range("G3").Value, LookIn:=xlValues) 'rij nr opzoeken
       
    End With
    
    SelRow = RowNr.Row 'rij nr setting
    With Blad3
    Blad8.Range("C9", "G9").Select
    Blad3.Range("B" & SelRow).Value = Blad8.Range("C9") 'Recept naam.
    Blad3.Range("C" & SelRow).Value = Blad8.Range("G9") 'Artikelnr.
    Blad8.Range("J9", "C11").Select
    Blad3.Range("D" & SelRow).Value = Blad8.Range("J9") 'Volume
    Blad3.Range("E" & SelRow).Value = Blad8.Range("C11") 'Aantal stuks uit recept
    Blad8.Range("A13", "B13").Select
    Blad3.Range("F" & SelRow).Value = Blad8.Range("A13").Value 'Ingrediënt 1 Naam
    Blad3.Range("G" & SelRow).Value = Blad8.Range("B13").Value 'Ingrediënt 1 Hoeveelheid
    Blad8.Range("A14", "B14").Select
    Blad3.Range("H" & SelRow).Value = Blad8.Range("A14").Value 'Ingrediënt 2 Naam
    Blad3.Range("I" & SelRow).Value = Blad8.Range("B14").Value 'Ingrediënt 2 Hoeveelheid
    Blad8.Range("A15", "B15").Select
    Blad3.Range("J" & SelRow).Value = Blad8.Range("A15").Value 'Ingrediënt 3 Naam
    Blad3.Range("K" & SelRow).Value = Blad8.Range("B15").Value 'Ingrediënt 3 Hoeveelheid
    Blad8.Range("A16", "B16").Select
    Blad3.Range("L" & SelRow).Value = Blad8.Range("A16").Value 'Ingrediënt 4 Naam
    Blad3.Range("M" & SelRow).Value = Blad8.Range("B16").Value 'Ingrediënt 4 Hoeveelheid
    Blad8.Range("A17", "B17").Select
    Blad3.Range("N" & SelRow).Value = Blad8.Range("A17").Value 'Ingrediënt 5 Naam
    Blad3.Range("O" & SelRow).Value = Blad8.Range("B17").Value 'Ingrediënt 5 Hoeveelheid
    Blad8.Range("A18", "B18").Select
    Blad3.Range("P" & SelRow).Value = Blad8.Range("A18").Value 'Ingrediënt 6 Naam
    Blad3.Range("Q" & SelRow).Value = Blad8.Range("B18").Value 'Ingrediënt 6 Hoeveelheid
    Blad8.Range("A19", "B19").Select
    Blad3.Range("R" & SelRow).Value = Blad8.Range("A19").Value 'Ingrediënt 7 Naam
    Blad3.Range("S" & SelRow).Value = Blad8.Range("B19").Value 'Ingrediënt 7 Hoeveelheid
    Blad8.Range("A20", "B20").Select
    Blad3.Range("T" & SelRow).Value = Blad8.Range("A20").Value 'Ingrediënt 8 Naam
    Blad3.Range("U" & SelRow).Value = Blad8.Range("B20").Value  'Ingrediënt 8 Hoeveelheid
    Blad8.Range("A21", "B21").Select
    Blad3.Range("V" & SelRow).Value = Blad8.Range("A21").Value 'Ingrediënt 9 Naam
    Blad3.Range("W" & SelRow).Value = Blad8.Range("B21").Value 'Ingrediënt 9 Hoeveelheid
    Blad8.Range("A22", "B22").Select
    Blad3.Range("X" & SelRow).Value = Blad8.Range("A22").Value 'Ingrediënt 10 Naam
    Blad3.Range("Y" & SelRow).Value = Blad8.Range("B22").Value  'Ingrediënt 10 Hoeveelheid
    Blad8.Range("A23", "B23").Select
    Blad3.Range("Z" & SelRow).Value = Blad8.Range("A23").Value 'Ingrediënt 11 Naam
    Blad3.Range("AA" & SelRow).Value = Blad8.Range("B23").Value 'Ingrediënt 11 Hoeveelheid
    Blad8.Range("A24", "B24").Select
    Blad3.Range("AB" & SelRow).Value = Blad8.Range("A24").Value 'Ingrediënt 12 Naam
    Blad3.Range("AC" & SelRow).Value = Blad8.Range("B24").Value 'Ingrediënt 12 Hoeveelheid
    Blad8.Range("A25", "B25").Select
    Blad3.Range("AD" & SelRow).Value = Blad8.Range("A25").Value 'Ingrediënt 13 Naam
    Blad3.Range("AE" & SelRow).Value = Blad8.Range("B25").Value 'Ingrediënt 13 Hoeveelheid
    Blad8.Range("A26", "B26").Select
    Blad3.Range("AF" & SelRow).Value = Blad8.Range("A26").Value 'Ingrediënt 14 Naam
    Blad3.Range("AG" & SelRow).Value = Blad8.Range("B26").Value 'Ingrediënt 14 Hoeveelheid
    Blad8.Range("A27", "B27").Select
    Blad3.Range("AH" & SelRow).Value = Blad8.Range("A27").Value 'Ingrediënt 15 Naam
    Blad3.Range("AI" & SelRow).Value = Blad8.Range("B27").Value 'Ingrediënt 15 Hoeveelheid
    Blad8.Range("A28", "B28").Select
    Blad3.Range("AJ" & SelRow).Value = Blad8.Range("A28").Value 'Ingrediënt 16 Naam
    Blad3.Range("AK" & SelRow).Value = Blad8.Range("B28").Value 'Ingrediënt 16 Hoeveelheid
    Blad8.Range("A29", "B29").Select
    Blad3.Range("AL" & SelRow).Value = Blad8.Range("A29").Value 'Ingrediënt 17 Naam
    Blad3.Range("AM" & SelRow).Value = Blad8.Range("B29").Value 'Ingrediënt 17 Hoeveelheid
    Blad8.Range("A30", "B30").Select
    Blad3.Range("AN" & SelRow).Value = Blad8.Range("A30").Value 'Ingrediënt 18 Naam
    Blad3.Range("AO" & SelRow).Value = Blad8.Range("B30").Value 'Ingrediënt 18 Hoeveelheid
    
    
    End With
    End If
    'Dashboard
     End Sub

    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •