EXCEL probleem met doorlinken van

[Verwijderd]

In excel probeer ik een offerte invulsheet te maken. Op het eerste invulsheet blad heb ik een aantal produkten staan zoals bijvoorbeeld


vaste benodigheden

1 statafel € 14,50 € 14,50 >1
0 statatel rokken en over linnen € 13,50 € -
3 buffettafel smal € 14,50 € 43,50
8 buffettaffel rok met linnen € 27,50 € 220,00
0 tafel linnen € 4,75 € -

in de eerste kolom is het aantal deze worden ingevult naar behoefte in de tweede kolom produkt 3e de prijs, 4e totaal prijs en in de 5e kolom de volgende formule =ALS(A32;">1";0).

=als er in kolom 1 >dan 1 is ingevult is de stelling waar.

MIJN PROBLEEM

Nu is er in kolom 1 een waarde ingevult hoger dan 1 dan zou de hele regel geplaatst moeten worden in blad twee offertesheet.

Hoe kan ik dan deze regel transporteren naar het volgende blad welke functie is hiervoor nodig.

Alvast bedankt voor het meedenken

[sanfranjake]

abracadabra jr,

Welkom op GoT
Op dit forum gelden een aantal regels die het voor iedereen aangenaam maken het forum te bezoeken. De eerste en meest belangrijke is dat we verwachten dat je zelf in je berichten laat zien dat je moeite doet om je probleem op te lossen. Hierover staat in de Registratievoorwaarden / korte FAQ die je net bij het registreren hebt gelezen het een en ander vermeld.

Excel kent sinds jaar en dag een legio aan verschillende formules voor de meest uiteenlopende doeleinden. De helpfunctie (die je onder de F1 knop kan vinden in de meeste applicaties) is ook zeer uitgebreid, en zou je ook al een eind op weg kunnen helpen.
Verder zijn er nog de Office-supportsite van Microsoft, en diverse zoekmachines die vele andere sites kennen waar over Excel gesproken wordt.

We willen graag dat je eerst zelf aan de slag gaat voor je een topic opent, en dat je in je startbericht vermeldt wat je al hebt ondernomen. Helaas zie ik dat in jouw bericht niet terugkomen. Ik heb je andere topic, waarin je een deelvraag stelt over ditzelfde onderwerp, net gesloten. Alles bij elkaar houden is wel zo overzichtelijk, als je je verhaal maar duidelijk vertelt

[Verwijderd]

Ik heb zelf al diverse pogingen gewaagd met formulles onder de fx knop oa via database doorverwijzen, en functies zoals zoeken en verwijzen maar ben nu al alles bij elkaar 8 uur aan het proberen maar kom er niet uit en had gehoopt dat iemand mij via dit forum kon helpen omdat ik heb begrepen dat er veel knappe mensen met kennis op deze site zijn te vinden. Via Google waar ik mijn vraag ook had gesteld kwam ik op uw site uit.

De vraagstelling was in eerste instantie niet duidelijk dacht ik omdat er niet bij vermeld was dat het om excel zou gaan en te sumier in vraagstelling vandaar mijn tweede invoer.

Ik hoop echt dat iemand mij kan helpen met dit probleem.

[skate master]

Dit kan door op blad 2 (of hoe je 2e blad ook heet) de volgende formule op te nemen.
=ALS(Blad1!A1>1;Blad1!A1&Blad1!B1&Blad1!C1;"")
Deze formule voegt in dit geval cel A,B en C samen indien A1 > 1

[Verwijderd]

dit is inderdaad bijna de oplossing alleen nu komt alles in Blad 2 in kolom A maar ik zou graag dat het kolom voor kolom wordt overgenomen zodat er op blad twee ook weer een formule gemaakt kan worden met ingevoerde gegevens. bijvoorbeeld

blad 1

vaste benodigheden
A1 A2 A3 A4
1 statafel € 14,50 € 14,50
0 statatel rokken en over linnen € 13,50 € -
3 buffettafel smal € 14,50 € 43,50
8 buffettaffel rok met linnen € 27,50 € 220,00
0 tafel linnen € 4,75 € -

rijen met begin 0 blijven in blad 1 rijen met invoer >0 gaan naar blad 2 in A1 A2 A3 A4

zodat er het volgende ontstaat in blad 2

vaste benodigheden
A1 A2 A3 A4
1 statafel € 14,50 € 14,50
3 buffettafel smal € 14,50 € 43,50
8 buffettaffel rok met linnen € 27,50 € 220,00
totaal benodigdheden € 278,00

[skate master]

Dat wat jij wilt, kan niet zomaar met een forumule.
Hiervoor zul je een VBA scriptje moeten schrijven.
Momenteel heb ik geen Excel bij de hand, maar zal binnenkort ff kijken hoe het een en ander gaat.

[Verwijderd]

dat zou ik wel heel erg kunnen waarderen als je dit voor mij zou willen doen.

[skate master]

Wat jij wilt is te bereiken door het plaatsen van een knop op je werkblad.
Vervolgens zet je onderstaande code achter de knop.

Visual Basic:

Sub Knop1_BijKlikken()
Dim i, j As Integer
j = 2 'op blad 2 beginnen op regel 2 ivm kolomkoppen
'eerst blad2 schoon maken
With Blad2
    For i = 2 To 99
        If Range("Blad2!A" & i) <> vbNullString Then
            Range("Blad2!A" & i) = ""
            Range("Blad2!B" & i) = ""
            Range("Blad2!C" & i) = ""
            Range("Blad2!D" & i) = ""
        ElseIf Range("Blad2!A" & i) = vbNullString Then
            Exit For
        End If
    Next i
End With
'blad1 uitlezen en waarnodig gegeven naar blad2 kopieren
With Blad1
    For i = 2 To 99
        If Range("A" & i) > 0 Then
            Range("Blad2!A" & j) = Range("A" & i)
            Range("Blad2!B" & j) = Range("B" & i)
            Range("Blad2!C" & j) = Range("C" & i)
            Range("Blad2!D" & j) = "=C" & j & "*A" & j
            j = j + 1
        End If
        If Range("A" & i) = "" Then
            Exit For
        End If
    Next i
End With
'eind optellen bij de factuur
Range("Blad2!B" & j) = "Totaal benodigd:"
Range("Blad2!D" & j) = "=SUM(D2:D" & j - 1 & ")"
End Sub

In de code zul je eventueel Blad1 en Blad2 moeten vervangen door de door jou gebruikte namen.
Bovenstaande code kan maximaal 99 producten aan, mocht je er meer nodig hebben, dan
zul je dus het getal 99 moeten vervangen voor een eigen aantal.
Het is geen super stukje code, maar het werkt.

Succes ermee.