Ik heb een overzicht in tabblad 1 (zie hieronder) Nu zou ik graag de volledige rij naar tabblad 2 willen kopieren ALS de waarde van die rij uit kolom Bedrag 1 <> aan 0. Dus in dit geval zijn dat alle rijen op 2 na. De opmaak en indeling van tabblad 2 is gelijk aan tabblad 1, alleen dan zonder de rijen met een nul bedrag. (dus misschien is het volledige tabblad kopieren en daarna desbetreffende rijen eruit halen makkelijker, maar dat weet ik niet ) Ik hoop dat iemand me kan helpen. Mvg Joyce Werkgever Periode Jaar Grondslag Periodetabel Correctie volgnummer Bedrag 1 Debnr 4302001 periode 4 jaar 2010 grondslag 178 code 5 tabel 1 Bedrag 1 54,06000 4302001 4 2010 178 5 0 69,91000 4302001 5 2010 178 5 0 582,34000 4302001 6 2010 178 5 0 256,83000 4302001 4 2010 178 5 2 0,00000 4302001 4 2010 179 5 1 5,99000 4302001 4 2010 179 5 0 57,68000 4302001 5 2010 179 5 0 56,98000 4302001 6 2010 178 5 0 0,00000 Mvg Joyce

ik denk al dat ik weet wat er aan de hand is... De gegevens de analyse open ik vanuit profit en omdat mijn macro vanuit open workbook aangeroepen wordt, wordt de macro al uitgevoerd nog voor de data uit de database wordt opgehaald.... Ik heb met AFAS (leverancier van Profit) contact opgenomen en navraag gedaan, er zijn een aantal macro's die uitgevoerd worden nadat de gegevens zijn opgehaald maar nog voor de analyse daadwerkelijk getoond wordt. dus daar ga ik mee spelen... Voor mij wel een hele geruststelling, heb je me dus toch weer goed geholpen... ;-) Mijn dank is groot. Groetjs Joyce

jan, Ik heb de statement Sheets("Blad1").Range("G:G").Calculate toegevoegd in Private Sub Workbook_Open() voordat de macro rijenverplaatsen wordt gestart, maar dan nog werkt het niet. omzetten naar vaste waarde werkt niet echt aangezien de analyse opgehaald wordt vanuit een programma (Profit) . Maar goed, toch bedankt weer. gr Joyce

Joyce, Een poging nog (kan het niet testen omdat ik nog met Office XP werk), maar het zou kunnen zijn dat in jouw versie (2010/2007?) de berekening van kolom G pas wordt uitgevoerd nadat WorkBook_Open is uitgevoerd. Dat zou je wellicht kunnen opvangen door die berekening te forceren met deze regel (voordat het filter wordt geplaatst): Sheets("Blad1").Range("G:G").Calculate (aangenomen dat er op kolom G gefilterd wordt op de berekende naam-combinaties in die kolom). Overigens om te testen of het aan iets dergelijks ligt, zou je (in een test omgeving) kolom G even uit vaste waardes kunnen opbouwen: joyce;bianca / carla;wim / wim;joyce enz. en kijken wat de procedure daarmee doet. Jan

Klopt, als gewone macro (buiten de Open-procedure) werkt het prima... perfect zelfs.. Ookal krijg ik dan ook in de messagebox *joyce* te zien... Maar in This Workbook niet... is exact de zelfde statement... Is dit dan de 1e keer dat je me niet kunt helpen :-( Toch bedankt voor je hulp Groetjs Joyce

Regels kopieren naar een ander tabblad

Anoniem

Ik heb een overzicht in tabblad 1 (zie hieronder)

Nu zou ik graag de volledige rij naar tabblad 2 willen kopieren ALS de waarde van die rij uit kolom Bedrag 1 <> aan 0. Dus in dit geval zijn dat alle rijen op 2 na.

De opmaak en indeling van tabblad 2 is gelijk aan tabblad 1, alleen dan zonder de rijen met een nul bedrag. (dus misschien is het volledige tabblad kopieren en daarna desbetreffende rijen eruit halen makkelijker, maar dat weet ik niet )

Ik hoop dat iemand me kan helpen. Mvg Joyce

Werkgever	Periode	Jaar	Grondslag	Periodetabel	Correctie volgnummer	Bedrag1
Debnr<br><br><br>4302001	periode<br><br><br>4	jaar<br><br><br>2010	grondslag<br><br><br>178	code<br><br><br>5	tabel<br><br><br>1	Bedrag 1<br><br><br>54,06000
4302001	4	2010	178	5	0	69,91000
4302001	5	2010	178	5	0	582,34000
4302001	6	2010	178	5	0	256,83000
4302001	4	2010	178	5	2	0,00000
4302001	4	2010	179	5	1	5,99000
4302001	4	2010	179	5	0	57,68000
4302001	5	2010	179	5	0	56,98000
4302001	6	2010	178	5	0	0,00000

Mvg Joyce

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 opmerkingen

Answer accepted by question author

Anoniem

Joyce,

Je kunt de regel met Criteria1:=4 alsvolgt uitbreiden:

.Range("A:G").AutoFilter Field:=2, Criteria1:=4, Operator:=xlOr, Criteria2:=7

Jan

0 opmerkingen

22 extra antwoorden

Anoniem

2011-05-25T14:43:03+00:00

ik denk al dat ik weet wat er aan de hand is...

De gegevens de analyse open ik vanuit profit en omdat mijn macro vanuit open workbook aangeroepen wordt, wordt de macro al uitgevoerd nog voor de data uit de database wordt opgehaald....

Ik heb met AFAS (leverancier van Profit) contact opgenomen en navraag gedaan, er zijn een aantal macro's die uitgevoerd worden nadat de gegevens zijn opgehaald maar nog voor de analyse daadwerkelijk getoond wordt. dus daar ga ik mee spelen...

Voor mij wel een hele geruststelling, heb je me dus toch weer goed geholpen... ;-)

Mijn dank is groot.

Groetjs Joyce
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2011-05-25T12:40:51+00:00

jan,

Ik heb de statement Sheets("Blad1").Range("G:G").Calculate

toegevoegd in Private Sub Workbook_Open()

voordat de macro rijenverplaatsen wordt gestart, maar dan nog werkt het niet.

omzetten naar vaste waarde werkt niet echt aangezien de analyse opgehaald wordt vanuit een programma (Profit) .

Maar goed,

toch bedankt weer.

gr Joyce
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2011-05-25T09:32:07+00:00

Joyce,

Een poging nog (kan het niet testen omdat ik nog met Office XP werk), maar het zou kunnen zijn dat in jouw versie (2010/2007?) de berekening van kolom G pas wordt uitgevoerd nadat WorkBook_Open is uitgevoerd.

Dat zou je wellicht kunnen opvangen door die berekening te forceren met deze regel (voordat het filter wordt geplaatst):

Sheets("Blad1").Range("G:G").Calculate

(aangenomen dat er op kolom G gefilterd wordt op de berekende naam-combinaties in die kolom).

Overigens om te testen of het aan iets dergelijks ligt, zou je (in een test omgeving) kolom G even uit vaste waardes kunnen opbouwen: joyce;bianca / carla;wim / wim;joyce enz.

en kijken wat de procedure daarmee doet.

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2011-05-25T08:12:27+00:00

Klopt, als gewone macro (buiten de Open-procedure) werkt het prima... perfect zelfs..

Ookal krijg ik dan ook in de messagebox *joyce* te zien...

Maar in This Workbook niet... is exact de zelfde statement...

Is dit dan de 1e keer dat je me niet kunt helpen :-(

Toch bedankt voor je hulp

Groetjs Joyce
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen