• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vertikaal zoeken mee copieren bij invoegen van rij ???

Status
Niet open voor verdere reacties.
G

grema

Gebruiker
Lid geworden
2 dec 2006
Berichten
659
Beste ,

Bij opstellen van bon of faktuur zou ik volgende code willen laten uitvoeren '' Rij toevoegen " zoals onder is aangegeven .

Kan ik dan het vertikaal zoeken mee copieren . ???

code : " =ALS(A21>0;VERT.ZOEKEN($A21;Artikelen!$A:$E;2;ONWAAR);"") "





Code: 
[Sub RijToevoegen()
    Dim Response
    Response = MsgBox("Een nieuwe rij wordt ingevoegd op de plaats van de active cel. Doorgaan ?", vbYesNo, "Rij invoegen ?")
    If Response = vbNo Then
        GoTo einde
    End If
    
    Dim nrow As Integer
    nrow = ActiveCell.Row
    
    ActiveCell.EntireRow.Insert
    
    ActiveCell.Offset(-1, 0).EntireRow.Copy
    ActiveCell.EntireRow.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Range(Cells(nrow, 2), Cells(nrow, 3)).ClearContents
    Range(Cells(nrow, 4), Cells(nrow, 5)).ClearContents
    Range(Cells(nrow, 6), Cells(nrow, 7)).ClearContents
    Cells(nrow, 10).ClearContents
    Cells(nrow, 12).ClearContents
    
    Cells(ActiveCell.Row, 2).Select
    
einde:
End Sub/CODE]


Alvast dank 

grema
 
Volgens mij werkt dit gewoon zolang de $'s goed staan. Of is er een probleem?:rolleyes:

Ron
 
bijlage

Beste Ron,

De bijvoegknop werkt perfekt maar ... De code voor vertikaal zoeken in kolom
c,dce,f en de formule voor kolom g wordt niet meegenomen .

Zie voorbeeldje in bijlage .

grema
 
Laatst bewerkt:
Zo dan waarschijnlijk:

Code: 
Sub RijToevoegen()
    
    Dim Response
    
    Response = MsgBox("Een nieuwe rij wordt ingevoegd op de plaats van de active cel. Doorgaan ?", vbYesNo, "Rij invoegen ?")
    If Response = vbYes Then
        
        With ActiveCell
        
            .Offset(-1).EntireRow.Copy
            .EntireRow.Insert xlDown
            Application.Union(Range("B" & .Row - 1), Range("E" & .Row - 1), Range("F" & .Row - 1)).ClearContents
            Range("B" & .Row).Select
        End With
    End If
    
End Sub

Code trouwens tevens verbeterd.

Wigi
 
De HTML code voor het sluiten van de code tags is [/CODE] en niet /CODE]. Dan komt het wel goed.
 
wigi,


thx for response .

nog een klein vraagje ?

Waarom gaat de prijs en de btw code niet mee ??

Als ik het goed versta copieer je de gane rij en haal je dan een aantal cellen leeg.
Range " E " en " F " moeten blijven ; of heb ik het fout voor ??

grema
 
aleen nog subtotaal in kolom G ???

wigi,


antwoord gevonden ; ledig alleen Range" B ".

Als ik nu het totaal maak van Range " G " ; dan gaat bij invoegen van een rij de " som of totaal van kolom niet mee ?


Oplosbaar ?? Hoe ??

grema
 
wigi,

Daar ik dit bestand ooit tegenkwam op het forum en zoalsje zag al aanpaste ben ik echter nog niet door alle vernuftigdheden van excell doorgeraakt ;

Vandaar m' n bijkomende vraagjes :

1 ) indien ik een lijn openlaat en dan het subtotaal maak .; dan een lijn bijvoeg; dan komt het totaal goed . Alleen snap ik niet waarom ? Kan je dit even uitleggen aub ?

2) De cel met BTW code staat nu op " hoog " --" laag" of " verlegd"
hoe kan ik deze wijzigen in " 21 % " ---"6%" " 0 % "

alvast dank

grema
 
grema zei:
wigi,

antwoord gevonden ; ledig alleen Range" B ".

Als ik nu het totaal maak van Range " G " ; dan gaat bij invoegen van een rij de " som of totaal van kolom niet mee ?

Oplosbaar ?? Hoe ??

grema
Klik om te vergroten...

Ik wis dus inderdaad B, E en G. Waarom? Dat zijn vaste gegevens van de rij erboven. Waarom zouden die moeten blijven staan in de nieuwe rij?

De nieuw ingevoegde rij doet het bereik in SUBTOTAAL wel uitbreiden, dat is een relatieve verwijzing.

Wigi
 
grema zei:
1 ) indien ik een lijn openlaat en dan het subtotaal maak .; dan een lijn bijvoeg; dan komt het totaal goed . Alleen snap ik niet waarom ? Kan je dit even uitleggen aub ?

2) De cel met BTW code staat nu op " hoog " --" laag" of " verlegd"
hoe kan ik deze wijzigen in " 21 % " ---"6%" " 0 % "
Klik om te vergroten...

1/ zie hierboven in de post

2/ Dat is in blad Artikelen te doen, kolom E. Klik daar een cel aan en kijk bij Data > Valideren > Lijst.

Wigi
 
Als ik je macro gebruik blijft in kolom A en C de gegevens staan op de nieuwe ingevoegde regel?
Is het dan niet beter de inhoud van kolom A te verwijderen dan wordt de inhoud van kolom C automatisch verwijderd in verband met VER.ZOEKEN formule.
Dus macro aangepast


Code: 
Sub RijToevoegen()
    
    Dim Response
  
    Response = MsgBox("Een nieuwe rij wordt ingevoegd op de plaats van de active cel. Doorgaan ?", vbYesNo, "Rij invoegen ?")
    If Response = vbYes Then
        
        With ActiveCell
        
            .Offset(-1).EntireRow.Copy
            .EntireRow.Insert xlDown
            Application.Union(Range("A" & .Row - 1), Range("B" & .Row - 1)).ClearContents
            Range("A" & .Row - 1).Select
        End With
    End If
End Sub



Nu krijg je een een volledige lege rij + dat de cursor naar de lege rij sprint in kolom A voor directe invoer.
+ Formules aangepast : in C21 t/m G21.



Pierre
 

Bijlagen

  • Factuur2(1).zip
    16,8 KB · Weergaven: 42
Laatst bewerkt:
wigi & pierre

bedankt voor de reacties :thumb:

Blijft dat er een lege rij moet staan om het subtotaal te kunnen maken (Pierre : in jou voorbeeld volgt het subtotaal niet) .
Tevens heb ik nu een voorwaardelijke opmaak ( bij ontbreken van aantal =kleur in cel ) ingesteld om niet te vergeten dat het aantal moet ingevuld worden.

Blijf echter op zoek om btw mits aanvinken van " 0 % " of " 6 % " of " 21% "
te verwerken op het verkregen subtotaal ( ook als de cel telkens verplaatst door een lijn in te voegen) Wie kan me hierover nog even info geven.

alvast dank voor de snelle reacties.

grema
 
Bereik cel ???

'k wil het bereil van de cel " A 21 " en volgende uitbreiden.

Deze gaat nu tot 500 lijnen.

Wil deze uitbreiden tot minimaal 30000 lijnen ( bestand artiekels)

Via DATA VALIDEREN INSTELLINGEN BRON

Likt dit me niet . Eenmaal de lijn 501 krijg ik geen reacties meer via vertikaal
zoeken .

Iemand advies ??

Alvast dank
 
grema zei:
Eenmaal de lijn 501 krijg ik geen reacties meer via vertikaal
zoeken
Klik om te vergroten...

Verticaal zoeken kan meer dan 500 rijen aan ;) maar dan zal er een fout zitten in de formule. Dat zal je eerst moeten uitzoeken.
 
Wigi,


Er zat degelijk een fout in de formule. Zag er gewoon over en wist niet meer waar te zoeken .
Fijn dat je nog eens insprong.

Heb alleen nog een probleem met de btw .

Printen ea is al opgelost ( geraak er dan toch geleidelijk door (( met wat hulp van jullie )).

grema.
 
voor de BTW kun je hier iets mee :

cel G25 =SOMPRODUCT((E21:E23="Hoog")*(G21:G23))*0,19
cel G26 =SOMPRODUCT((E21:E23="Laag")*(G21:G23))*0,06 (of 0,12)


Pierre
 
Laatst bewerkt:
selectievakje

pierre,

bedankt voor het antwoord.

In bijlage geraak ik echter niet uit het probleem van het selectie-vakje.

( nog onbekend voor mij).

De bedoeling is dat wanneer ik een vakje aanvink : het bedrag van btw zichtbaar wordt
van het desbetreffende btw- tarief.
En ik alzo de som vkan maken inclusief btw.

de rest van de selectie vakjes mag dan niet meewerken.

in bijlage m' n voorbeeldje ter verduidelijking.

Kan je helpen ???

grema
 
Laatst bewerkt:
Wat loopt er fout?

Bij het zoeken naar een oplossing voor bovenstaande vraag
tracht ik met een tussen oplossing te werken.

Code: 
Sub Selectievakje2_BijKlikken()
'
' Selectievakje2_BijKlikken Macro
' De macro is opgenomen op 20/07/2007 door Mark.
'

'
    Range("E31").Select
    Copy.Range ("E31")
    Activate.Range ("G31")
    Paste.Range ("G31")
    
   
End Sub


Ik plaats de btw code in de cel E31
wil dan de waarde copieren naar G31

Vandaar kan ik weer verder

Iemand ???
 
Wigi

Thx.

knijp er even tussen uit.

tot binnenkort

raap dit onderwerp nog even op.
Er gaat nog iets fout bij invoegen van lijn en volgen van Btw

Alvast dank voor al de hulp

grema
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan