Vba hulp nodig

erwin87 · 24 dec 2018

Beste,

ik heb een file gemaakt voor het leven wat makkelijker te maken voor medewerkers op het werk.
ik heb 4 Knoppen gemaak in de file
Copy from: Doet wat moet maar zou volgens mij wel beter kunnen.
Create new item: doet ook wat het moet doen maar kan misschien ook beter.
Get Data: Doet ook wat moet maar kan misschien ook beter.
Confirm EWM data completed: hier zet ik nu enkel een yes in en andere sheet.
Wat ik hier graag zou willen doen:
als ik de data heb opgehaald via Get Data en ik zou wijzigingen aanbrengen dan zou ik deze willen dat de Confirm EWM data completed het item gaat opzoeken in tabblad Total item overview en alle velden overschrijft.
ook de yes zou hij moeten blijven zetten.

ik heb helemaal geen kennis van VBA en heb mij al zoveg geholden door vanalles op te zoeken.
ik hoop dat iemand mij kan helpen.
in bijlage ook even het bestand bijgevoegd.

Alvast bedankt.

cow18 · 24 dec 2018

net voor Kerstdagavond, nog een kleine ingeving, ik heb enkel de 1e 2 cellen aangepast.
De rest op analoge manier en dan hoeft die Copy en Paste op het einde niet meer.
Let wel dat er een puntje staat voor de range van iedere rij

Code:

Sub Copy_From()
'
' Copy_From Macro
'

'
    Dim Rij, TIO As Worksheet

    Set TIO = Sheets("Total_Item_Overview")

    With Sheets("create New item")                                   'dat werkblad
        If Len(.Range("D8")) = 0 Then Exit Sub                       ' er staat niets in D8 = stoppen
        Rij = Application.Match(.Range("D8").Value, TIO.Range("A1:A" & TIO.Range("A" & Rows.Count).End(xlUp).Row), 0)    ' zoek rijnummer van dat
        If Not (IsNumeric(Rij)) Then MsgBox " onbekend SAP nummer " & .Range("D8").Value, vbCritical: End    'onbekend SAP-nummer

        .Range("D9").Value = TIO.Cells(Rij, 3).Value                 'staat in TIO in die rij, de 3e kolom
        .Range("H8").Value = TIO.Cells(Rij, 14).Value

        'op deze manier alle cellen aanpassen met de juiste kolom
        Range("H9").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-1]C4,Total_item_overview!R2C[-7]:R100000C[70],15,FALSE))"
        Range("H10").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-2]C4,Total_item_overview!R2C[-7]:R100000C[70],16,FALSE))"
        Range("H11").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-3]C4,Total_item_overview!R2C[-7]:R100000C[70],17,FALSE))"
        Range("H12").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-4]C4,Total_item_overview!R2C[-7]:R100000C[70],36,FALSE))"
        Range("H13").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-5]C4,Total_item_overview!R2C[-7]:R100000C[70],37,FALSE))"
        Range("H14").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-6]C4,Total_item_overview!R2C[-7]:R100000C[70],38,FALSE))"
        Range("H15").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-7]C4,Total_item_overview!R2C[-7]:R100000C[70],39,FALSE))"
        Range("H16").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-8]C4,Total_item_overview!R2C[-7]:R100000C[70],40,FALSE))"
        Range("H17").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-9]C4,Total_item_overview!R2C[-7]:R100000C[70],41,FALSE))"
        Range("H18").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-10]C4,Total_item_overview!R2C[-7]:R100000C[70],42,FALSE))"
        Range("L7").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[1]C4,Total_item_overview!R2C[-11]:R100000C[66],18,FALSE))"
        Range("L8").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(RC4,Total_item_overview!R2C[-11]:R100000C[66],19,FALSE))"
        Range("L9").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-1]C4,Total_item_overview!R2C[-11]:R100000C[66],20,FALSE))"
        Range("L10").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-2]C4,Total_item_overview!R2C[-11]:R100000C[66],21,FALSE))"
        Range("L11").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-3]C4,Total_item_overview!R2C[-11]:R100000C[66],22,FALSE))"
        Range("L12").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-4]C4,Total_item_overview!R2C[-11]:R100000C[66],26,FALSE))"
        Range("L13").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-5]C4,Total_item_overview!R2C[-11]:R100000C[66],29,FALSE))"
        Range("L14").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-6]C4,Total_item_overview!R2C[-11]:R100000C[66],43,FALSE))"
        Range("L15").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-7]C4,Total_item_overview!R2C[-11]:R100000C[66],44,FALSE))"
        Range("L16").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-8]C4,Total_item_overview!R2C[-11]:R100000C[66],55,FALSE))"
        Range("D21").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-13]C4,Total_item_overview!R2C[-3]:R100000C[51],4,FALSE))"
        Range("D22").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-14]C4,Total_item_overview!R2C[-3]:R100000C[51],5,FALSE))"
        Range("D23").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-15]C4,Total_item_overview!R2C[-3]:R100000C[51],6,FALSE))"
        Range("D24").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-16]C4,Total_item_overview!R2C[-3]:R100000C[51],7,FALSE))"
        Range("D25").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-17]C4,Total_item_overview!R2C[-3]:R100000C[51],8,FALSE))"
        Range("D26").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-18]C4,Total_item_overview!R2C[-3]:R100000C[51],9,FALSE))"
        Range("D27").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-19]C4,Total_item_overview!R2C[-3]:R100000C[51],10,FALSE))"
        Range("D28").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-20]C4,Total_item_overview!R2C[-3]:R100000C[51],11,FALSE))"
        Range("D29").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-21]C4,Total_item_overview!R2C[-3]:R100000C[51],12,FALSE))"
        Range("D30").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-22]C4,Total_item_overview!R2C[-3]:R100000C[51],13,FALSE))"
        Range("L22").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-14]C4,Total_item_overview!R2C[-11]:R100000C[66],45,FALSE))"
        Range("L25").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",IFERROR(((((R12C12*R51C4)/100)-R50C4)/R11C12),""N.A.""))"
        Range("L27").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-19]C4,Total_item_overview!R2C[-11]:R100000C[66],56,FALSE))"
        Range("L28").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-20]C4,Total_item_overview!R2C[-11]:R100000C[66],16,FALSE))"
        Range("L29").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C12='Masterdata info'!R2C25,""0070"",IF(R43C12='Masterdata info'!R3C25,""0105"",IF(R43C12='Masterdata info'!R4C25,""0106"",IF(R43C12='Masterdata info'!R5C25,""0070"",""""))))"
        Range("L30").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-22]C4,Total_item_overview!R2C[-11]:R100000C[66],47,FALSE))"
        Range("L31").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",IF(R12C12="""","""",IF(R29C12=106,VLOOKUP(MATCH(R12C12,LIJST_LIFO,1),Tabel0106,3,FALSE),VLOOKUP(MATCH(R12C12,LIJST_FIFO,1),Tabel0105,3,FALSE))))"
        Range("N31").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",IF(R31C12=""N.A"",""N.A"",IF(R31C12="""","""",IF(R29C12=106,VLOOKUP(R31C12,'Masterdata info'!R3C3:R11C4,2,FALSE),VLOOKUP(R31C12,'Masterdata info'!R3C8:R11C9,2,FALSE)))))"
        Range("L32").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-24]C4,Total_item_overview!R2C[-11]:R100000C[66],48,FALSE))"
        Range("L33").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-25]C4,Total_item_overview!R2C[-11]:R100000C[66],49,FALSE))"
        Range("L34").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-26]C4,Total_item_overview!R2C[-11]:R100000C[66],60,FALSE))"
        Range("L35").Select
        ActiveWindow.SmallScroll Down:=18
        Range("E37").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-29]C4,Total_item_overview!R2C[-4]:R100000C[73],52,FALSE))"
        Range("E38").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-30]C4,Total_item_overview!R2C[-4]:R100000C[73],53,FALSE))"
        Range("E39").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-31]C4,Total_item_overview!R2C[-4]:R100000C[73],54,FALSE))"
        Range("L37").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-29]C4,Total_item_overview!R2C[-11]:R100000C[66],57,FALSE))"
        Range("L38").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-30]C4,Total_item_overview!R2C[-11]:R100000C[66],58,FALSE))"
        Range("L39").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-31]C4,Total_item_overview!R2C[-11]:R100000C[66],59,FALSE))"
        Range("D43").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-35]C4,Total_item_overview!R2C[-3]:R100000C[74],50,FALSE))"
        Range("D44").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-36]C4,Total_item_overview!R2C[-3]:R100000C[74],23,FALSE)),"""")"
        Range("D45").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-37]C4,Total_item_overview!R2C[-3]:R100000C[74],24,FALSE)),"""")"
        Range("D46").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-38]C4,Total_item_overview!R2C[-3]:R100000C[74],25,FALSE)),"""")"
        Range("D47").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-39]C4,Total_item_overview!R2C[-3]:R100000C[74],33,FALSE)),"""")"
        Range("D48").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-40]C4,Total_item_overview!R2C[-3]:R100000C[74],34,FALSE)),"""")"
        Range("D49").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-41]C4,Total_item_overview!R2C[-3]:R100000C[74],35,FALSE)),"""")"
        Range("D50").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-42]C4,Total_item_overview!R2C[-3]:R100000C[74],32,FALSE)),"""")"
        Range("D51").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-43]C4,Total_item_overview!R2C[-3]:R100000C[74],31,FALSE)),"""")"
        Range("L43").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",IFERROR(VLOOKUP(R8C4,Interspec!C[-11]:C[-1],6,0),""N.A.""))"
        Range("L51").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-43]C4,Total_item_overview!R2C[-11]:R100000C[66],61,FALSE))"

    End With
    
    
    Range("A6:N53").Select                                           'deze regels mogen weg, er zijn geen formules meer, dus moet er niet meer gekopieerd en geplakt worden.
    Range("N53").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-51
    Range("A6").Select
    Application.CutCopyMode = False

End Sub

Jack Nouws · 24 dec 2018

Je zou al je cellen in een array kunnen zetten.

Code:

Sub Macro1()
  With Sheets("Create New Item")
    arr = Array(.Range("D10"), .Range("D11"), .Range("D8"), .Range("D21"), .Range("D22"), .Range("D23"), .Range("D24"), _
        .Range("D25"), .Range("D26"), .Range("D27"), .Range("D28"), .Range("D29"), .Range("D30"), .Range("H8"), _
        .Range("H9"), .Range("H10"), .Range("H11"), .Range("L7"), .Range("L8"), .Range("L9"), .Range("L10"), _
        .Range("L11"), .Range("D44"), .Range("D45"), .Range("D46"), .Range("L12"), .Range("L31"), .Range("N31"), _
        .Range("L13"), .Range("L25"), .Range("D51"), .Range("D50"), .Range("D47"), .Range("D48"), .Range("D49"), _
        .Range("H12"), .Range("H13"), .Range("H14"), .Range("H15"), .Range("H16"), .Range("H17"), .Range("H18"), _
        .Range("L14"), .Range("L15"), .Range("L22"), .Range("L29"), .Range("L30"), .Range("L32"), .Range("L33"), _
        .Range("D43"), .Range("L43"), .Range("E37"), .Range("E38"), .Range("E39"), .Range("L16"), .Range("L27"), _
        .Range("L37"), .Range("L38"), .Range("L39"), .Range("L34"), .Range("L51"))
  End With
            
    Sheets("Total_item_overview").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 61) = arr
    Sheets("Create New Item").Range("D8:D11,H8:H18,L7:L16,D21:D30,E37:E39,L22:L39,D43:D51,L43:L51").ClearContents
    Application.Goto Sheets("Create New Item").Range("A2")
End Sub

erwin87 · 27 dec 2018

Hoi Cow18,
Vol goede moed aan begonnen maar tijdens het aanpassen kwam ik natuurlijk wat uitzonderingen tegen.
deze kan ik niet op dezeelfde manier aanmaken neem ik aan?

ik heb nu dit al

maar dan komen de uitzonderingen.

Code:

Sub Copy_From()
'
' Copy_From Macro
'

'
    Dim Rij, TIO As Worksheet

    Set TIO = Sheets("Total_Item_Overview")

    With Sheets("create New item")                                   'dat werkblad
        If Len(.Range("D8")) = 0 Then Exit Sub                       ' er staat niets in D8 = stoppen
        Rij = Application.Match(.Range("D8").Value, TIO.Range("A1:A" & TIO.Range("A" & Rows.Count).End(xlUp).Row), 0)    ' zoek rijnummer van dat
        If Not (IsNumeric(Rij)) Then MsgBox " onbekend SAP nummer " & .Range("D8").Value, vbCritical: End    'onbekend SAP-nummer

        .Range("D9").Value = TIO.Cells(Rij, 3).Value                 'staat in TIO in die rij, de 3e kolom
        .Range("H8").Value = TIO.Cells(Rij, 14).Value
        .Range("H9").Value = TIO.Cells(Rij, 15).Value
        .Range("H10").Value = TIO.Cells(Rij, 16).Value
        .Range("H11").Value = TIO.Cells(Rij, 17).Value
        .Range("H12").Value = TIO.Cells(Rij, 36).Value
        .Range("H13").Value = TIO.Cells(Rij, 37).Value
        .Range("H14").Value = TIO.Cells(Rij, 38).Value
        .Range("H15").Value = TIO.Cells(Rij, 39).Value
        .Range("H16").Value = TIO.Cells(Rij, 40).Value
        .Range("H17").Value = TIO.Cells(Rij, 41).Value
        .Range("H18").Value = TIO.Cells(Rij, 42).Value
        .Range("L7").Value = TIO.Cells(Rij, 18).Value
        .Range("L8").Value = TIO.Cells(Rij, 19).Value
        .Range("L9").Value = TIO.Cells(Rij, 20).Value
        .Range("L10").Value = TIO.Cells(Rij, 21).Value
        .Range("L11").Value = TIO.Cells(Rij, 22).Value
        .Range("L12").Value = TIO.Cells(Rij, 26).Value
        .Range("L13").Value = TIO.Cells(Rij, 29).Value
        .Range("L14").Value = TIO.Cells(Rij, 43).Value
        .Range("L15").Value = TIO.Cells(Rij, 44).Value
        .Range("L16").Value = TIO.Cells(Rij, 55).Value
        .Range("D21").Value = TIO.Cells(Rij, 4).Value
        .Range("D22").Value = TIO.Cells(Rij, 5).Value
        .Range("D23").Value = TIO.Cells(Rij, 6).Value
        .Range("D24").Value = TIO.Cells(Rij, 7).Value
        .Range("D25").Value = TIO.Cells(Rij, 8).Value
        .Range("D26").Value = TIO.Cells(Rij, 9).Value
        .Range("D27").Value = TIO.Cells(Rij, 10).Value
        .Range("D28").Value = TIO.Cells(Rij, 11).Value
        .Range("D29").Value = TIO.Cells(Rij, 12).Value
        .Range("D30").Value = TIO.Cells(Rij, 13).Value
        .Range("L22").Value = TIO.Cells(Rij, 45).Value

        'op deze manier alle cellen aanpassen met de juiste kolom
       
        Range("L25").Select
        ActiveCell.FormulaR1C1 = _
       [B] "=IF(R8C4="""","""",IFERROR(((((R12C12*R51C4)/100)-R50C4)/R11C12),""N.A.""))"[/B]
        Range("L27").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-19]C4,Total_item_overview!R2C[-11]:R100000C[66],56,FALSE))"
        Range("L28").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-20]C4,Total_item_overview!R2C[-11]:R100000C[66],16,FALSE))"
        Range("L29").Select
        ActiveCell.FormulaR1C1 = _
       [B] "=IF(R43C12='Masterdata info'!R2C25,""0070"",IF(R43C12='Masterdata info'!R3C25,""0105"",IF(R43C12='Masterdata info'!R4C25,""0106"",IF(R43C12='Masterdata info'!R5C25,""0070"",""""))))"[/B]
        Range("L30").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-22]C4,Total_item_overview!R2C[-11]:R100000C[66],47,FALSE))"
        Range("L31").Select
        ActiveCell.FormulaR1C1 = _
       [B] "=IF(R8C4="""","""",IF(R12C12="""","""",IF(R29C12=106,VLOOKUP(MATCH(R12C12,LIJST_LIFO,1),Tabel0106,3,FALSE),VLOOKUP(MATCH(R12C12,LIJST_FIFO,1),Tabel0105,3,FALSE))))"[/B]
        Range("N31").Select
        ActiveCell.FormulaR1C1 = _
  [B]      "=IF(R8C4="""","""",IF(R31C12=""N.A"",""N.A"",IF(R31C12="""","""",IF(R29C12=106,VLOOKUP(R31C12,'Masterdata info'!R3C3:R11C4,2,FALSE),VLOOKUP(R31C12,'Masterdata info'!R3C8:R11C9,2,FALSE)))))"[/B]
        Range("L32").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-24]C4,Total_item_overview!R2C[-11]:R100000C[66],48,FALSE))"
        Range("L33").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-25]C4,Total_item_overview!R2C[-11]:R100000C[66],49,FALSE))"
        Range("L34").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-26]C4,Total_item_overview!R2C[-11]:R100000C[66],60,FALSE))"
        Range("L35").Select
        ActiveWindow.SmallScroll Down:=18
        Range("E37").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-29]C4,Total_item_overview!R2C[-4]:R100000C[73],52,FALSE))"
        Range("E38").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-30]C4,Total_item_overview!R2C[-4]:R100000C[73],53,FALSE))"
        Range("E39").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-31]C4,Total_item_overview!R2C[-4]:R100000C[73],54,FALSE))"
        Range("L37").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-29]C4,Total_item_overview!R2C[-11]:R100000C[66],57,FALSE))"
        Range("L38").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-30]C4,Total_item_overview!R2C[-11]:R100000C[66],58,FALSE))"
        Range("L39").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-31]C4,Total_item_overview!R2C[-11]:R100000C[66],59,FALSE))"
        Range("D43").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-35]C4,Total_item_overview!R2C[-3]:R100000C[74],50,FALSE))"
        Range("D44").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-36]C4,Total_item_overview!R2C[-3]:R100000C[74],23,FALSE)),"""")"
        Range("D45").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-37]C4,Total_item_overview!R2C[-3]:R100000C[74],24,FALSE)),"""")"
        Range("D46").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-38]C4,Total_item_overview!R2C[-3]:R100000C[74],25,FALSE)),"""")"
        Range("D47").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-39]C4,Total_item_overview!R2C[-3]:R100000C[74],33,FALSE)),"""")"
        Range("D48").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-40]C4,Total_item_overview!R2C[-3]:R100000C[74],34,FALSE)),"""")"
        Range("D49").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-41]C4,Total_item_overview!R2C[-3]:R100000C[74],35,FALSE)),"""")"
        Range("D50").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-42]C4,Total_item_overview!R2C[-3]:R100000C[74],32,FALSE)),"""")"
        Range("D51").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R43C4=""Yes"",(VLOOKUP(R[-43]C4,Total_item_overview!R2C[-3]:R100000C[74],31,FALSE)),"""")"
        Range("L43").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",IFERROR(VLOOKUP(R8C4,Interspec!C[-11]:C[-1],6,0),""N.A.""))"
        Range("L51").Select
        ActiveCell.FormulaR1C1 = _
        "=IF(R8C4="""","""",VLOOKUP(R[-43]C4,Total_item_overview!R2C[-11]:R100000C[66],61,FALSE))"

    End With
    
    
    Range("A6:N53").Select                                           'deze regels mogen weg, er zijn geen formules meer, dus moet er niet meer gekopieerd en geplakt worden.
    Range("N53").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-51
    Range("A6").Select
    Application.CutCopyMode = False

End Sub

VenA · 27 dec 2018

Blijkbaar mag alleen @cow18 reageren? De bijdrage van @Jack Nouws heb je niet gezien? Waarom gebruik je geen userform? Alle selects en vlookups zijn nergens voor nodig. Als er uitzonderingen zijn benoem ze dan. Of verwacht je van de helpers dat ze jouw spaghetti aan code eerst gaan doorgronden?

erwin87 · 27 dec 2018

@Vena
het is niet dat Jack Nouws zijn bijdrage niet goed is maar dat is voor een VBA code indezelfde file dan die van waarCOW18 op had gerageerd. en daar ben ik nog niet aan toe gekomen.
het kan zijn dat mijn code spagetti is maar zoals aangegeven heb ik van VBA zo goed als geen kennis.
ik dacht dat het hier de bedoeling was om hulp te vragen maar met die reactie van jou kom ik ook helemaal nergens.

VenA · 27 dec 2018

Het is inderaad de bedoeling van dit forum dat je er terecht kan met vragen.

Als je de verschillende suggesties niet probeert en het verschil niet kan begrijpen kom je inderdaad nergens. Maak er maar tijd voor vrij om het te begrijpen, ipv te schrijven 'daar ben ik nog niet aan toegekomen' Mijn bijdrage vind je blijkbaar niet constructief maar er staat wel meer in:

Waarom gebruik je geen userform?

gemist?

Als er uitzonderingen zijn benoem ze dan

ook gemist?

Net als velen maak je de denkfout om vanaf met een mooi opgemaakt werkblad iets 'slims' te doen dmv macro-opnames en formules. Dit is prima te programmeren maar kost veel tijd en wordt dan erg statisch.

cow18 · 28 dec 2018

in module 7 staan wat macros
* een 1e had je vroegere formules naar een tabblad "formules" gestuurd.
1e kolom = adres van cel
2e kolom= overeenkomstige kolom in TIO
3e kolom = idem maar na checken van cel D43
4e kolom = je huidige formule

* een macro die dat tabblad beveiligt en verbergt (gewoon, nog niet veryhidden)
je kan dus dat tabblad zelf weer zichtbaar maken en eventueel de beveiliging er af halen, er zit geen paswoord op.

* een macro die nadat je een artikelnr in D8 getikt hebt, alle gegevens ervan bij elkaar sprokkelt.

* een voorlopige macro die de zaakjes terugkopieert naar TIO, maar er missen nog gegevens, dus straks aanpassen

Op dezelfde manier kan er straks met de gegevens van dit tabblad "formules" alle andere zaken ook heen en terug gekopieerd worden.
Kijk er eens naar en als je iets niet begrijpt, meld je dan

erwin87 · 4 jan 2019

Hoi,

Al even geleden eer ik reageerde op het bericht.
Ik heb ondertussen eens gekeken wat een Userform is.
Dat lijkt me idd wel iets.
Als ik nu in textbox 1 een itemnummer zou ingeven dan zou ik dmv cmd button in sheet total_item_overview data willen ophalen.
Zo zou ik dan bv de gegevens uit kolom 40 in texbox 2 zetten en de gegevens uit kolom 4 in textbox 3
Kunnen jullie mij hier mee helpen?

Alvast bedankt.

SjonR · 4 jan 2019

uiteraard, heb je al iets met een userform in elkaar gezet wat je kunt delen?

erwin87 · 13 jan 2019

heb het in orde gekregen.

snb · 13 jan 2019

Hoe ben je van plan de helpers en andere bezoekers te laten delen (de bestaansreden van een forum) in wat jij in orde hebt gekregen ?

Vba hulp nodig

erwin87

Gebruiker

Bijlagen

cow18

Terugkerende gebruiker

Jack Nouws

Terugkerende gebruiker

erwin87

Gebruiker

VenA

Inventaris

erwin87

Gebruiker

VenA

Inventaris

cow18

Terugkerende gebruiker

Bijlagen

erwin87

Gebruiker

SjonR

Verenigingslid

erwin87

Gebruiker

snb

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy