#N/B verbergen

[11221122]

Dit ook gelukt erg bedankt. Maar nu moet ik al mijn producten optellen naar een totaal.

=SOM(I19+I20+I21+I22+I23+I24+I25+I26+I27+I28+I29+I30+I31+I32+I33+I34+I35+I36+I37+I38+I39+I40+I41)

Dat zijn al de regels/producten die ik bij elkaar optel. Wat is de makkelijkste formule? Want anders moet ik bij elke. (I19="";I20="";I21="";enz) gaan doen en dat duur wel erg lang.

Mvg

 

[trucker10]

Zet gewoon =SOM(I19:I41)

 

[11221122]

Bedankt, dat is ook gelukt.

Maar ik vraag me af of er iets bestaat in excel dat je een knop maakt en als je daar op klikt kopieert hij bijv de tekst uit A1 naar D1. Zegmaar een soort schakelaar. Ik heb al iets dat D1 automatisch de tekst kopieert van A1. Maar kan je iets maken dat dat alleen maar op commando, door op die knop te klikken, gebeurt??

Mvg.

 

[trucker10]

Met VBA gaat dit .

 

[11221122]

Oke, En waar kan ik dit zelf maken?

Mvg.

 

[trucker10]

Dan komt de vraag , hoe ver sta je met VBA ? ik sta op de onderste sport ( leren ) .Als je op Alt F11 drukt of een rechtermuisklik op een tabblad dan kom je in de VB Editor en daar achter het tabblad staat de code ( macro ) .

 

[11221122]

Ik heb eerlijk gezegt nog nooit iets met VBA gedaan. Maar ik heb jouw code aangepast naar de kolommen van waar naar waar ik door wil sturen.

PrivateSub CommandButton1_Click()
[P42].Value = [Z6].Value
[M42].Value = [Y6].Value
[I42].Value = [X6].Value
[L12].Value = [W6].Value
[L11].Value = [T6].Value
[L10].Value = [U6].Value
End Sub

Als ik dan op de button klik. Staat er iets dat de macro in dit tabblad of deze werk map niet beschikbaar is. Kan jij mij helpen?

Mvg.

 

[trucker10]

IK heb de commandbutton een andere naam gegeven hoe kan je dit wijzigen , excel 2007 , klik op het lint op " ontwikkelaars " daar klik je op " ontwerpmodus " dan klik je op je cdmbutton en dan op " eigenschappen " verander daar de " caption " dit moet overeenkomen met de PrivateSub CommandButton1_Click()
.Bekijk jpg

 

[11221122]

Dat begrijp ik. Maar mijn vraag was dat die code niet klopte en of iemand mij misschien kon vertellen wat er fout aan was?

Mvg.

 

[11221122]

Hallo,
Het lukt voor geen meter. Ik heb alles al geprobeert. Dit is wat ik voor elkaar wil krijgen.

Staat in kolom - moet naar kolom
P42 - Z6
M42 - Y6
I42 - X6
L12 - W6
L11 - T6
L10 - U6

Dat is wat ik in de macro wil verwerken. Maar dat lukt niet. Kan iemand mij helpen.?

Mvg.

 

[Thankyou]

Een voorbeeld bestand zegt meer dan 1000 woorden.

Private Sub CommandButton1_Click()
[Z6].Value = [P42].Value
[Y6].Value = [M42].Value
[X6].Value = [I42].Value
[W6].Value = [L12].Value
[T6].Value = [L11].Value
[U6].Value = [L10].Value

End Sub

Succes,

 

[11221122]

Moet die D1 A1 boven in? Die is toch niet nodig?

Mvg.

 

[11221122]

Het is gelukt. Is er bij die macro's ook een mogelijkheid om die door te terekken. Want nu is de formule:

Private Sub Knop14_Klikken()
[Z6].Value = [P42].Value
[Y6].Value = [M42].Value
[X6].Value = [I42].Value
[W6].Value = [I12].Value
[T6].Value = [I11].Value
[U6].Value = [I10].Value

End Sub

Maar als ik die knop 1x heb ingeklikt moet alle 6jes, 7 worden:

Private Sub Knop14_Klikken()
[Z7].Value = [P42].Value
[Y7].Value = [M42].Value
[X7].Value = [I42].Value
[W7].Value = [I12].Value
[T7].Value = [I11].Value
[U7].Value = [I10].Value

End Sub

Mvg.

 

[oeldere]

je hebt je vraag nu op opgelost gezet.

waarschijnlijk krijg je nu geen reacties meer (behalve van mij ).

zet je status terug en je zult meer reacties krijgen.

ik heb dit topic wel gevolgt en het valt me op hoe vaak er naar een voorbeeldbestandje wordt gevraagd.

trucker 10 en thank you vragen diverse malen naar een voorbeeldbestandje.

Jij wilt graag geholpen worden, help je medeforumleden dan ook even (in de toekomst) met een voorbeeldbestandje.

 

[11221122]

Dat begrijp ik. Maar bij die code is er geen voorbeeld bestandje. Want het is een foute code. Dus in een voorbeeld bestandje zal je een error zien. Mijn enige vraag was, is er netzo als bij formules doortrekken ook iets dat je macro's door kan trekken?

Mvg.

 

[trucker10]

ff vanaf de smartphone ( daar kan ik geen macroos draaien ) NEE vba is typewerk !
En de heklpers vragen een worksheet waar de range al instaat nu moeten ze zelf terug alles opzetten . Vandaar een voorbeeldje werkblad waar alles instaat .

 

[popipipo]

NEE vba is typewerk

Met: Kopieeren, plakken, zoeken en vervangen kom je ook een heel eind

 

[trucker10]

De rest mag je zelf doen , leer je een beetje bij

@Willem , gelijk heb je "Kopieeren, plakken, zoeken en vervangen"

Private Sub CommandButton1_Click()

Cells(6, 26).Value = Cells(42, 16).Value '[P42].Value = [Z6].Value

Cells(6, 24).Value = Cells(42, 13).Value '[M42].Value = [Y6].Value

End Sub

 

[11221122]

Ik bedoelde niet dat 1 knop naar alle kolom verwijst. Maar dat knop 1 naar bijv. A6 - B6 - C6 - D6 verwijst. En knop 2 naar A7 - B7 - C7 - D7. De kolom waarvandaan hij komt blijft hetzelfde maar de kolom waar hij naartoe gaat wordt steeds +1.

Mvg.

Dit heb ik met de hand tot nu toe gedaan:
[SQL]Private Sub Knop14_Klikken()
[Z3].Value = [P42].Value
[Y3].Value = [M42].Value
[X3].Value = [I42].Value
[W3].Value = [I12].Value
[T3].Value = [I11].Value
[U3].Value = [I10].Value

End Sub
Private Sub Knop15_Klikken()
[Z4].Value = [P42].Value
[Y4].Value = [M42].Value
[X4].Value = [I42].Value
[W4].Value = [I12].Value
[T4].Value = [I11].Value
[U4].Value = [I10].Value

End Sub
Private Sub Knop16_Klikken()
[Z5].Value = [P42].Value
[Y5].Value = [M42].Value
[X5].Value = [I42].Value
[W5].Value = [I12].Value
[T5].Value = [I11].Value
[U5].Value = [I10].Value

End Sub
Private Sub Knop17_Klikken()
[Z6].Value = [P42].Value
[Y6].Value = [M42].Value
[X6].Value = [I42].Value
[W6].Value = [I12].Value
[T6].Value = [I11].Value
[U6].Value = [I10].Value

End Sub
Private Sub Knop18_Klikken()
[Z7].Value = [P42].Value
[Y7].Value = [M42].Value
[X7].Value = [I42].Value
[W7].Value = [I12].Value
[T7].Value = [I11].Value
[U7].Value = [I10].Value

End Sub
Private Sub Knop19_Klikken()
[Z8].Value = [P42].Value
[Y8].Value = [M42].Value
[X8].Value = [I42].Value
[W8].Value = [I12].Value
[T8].Value = [I11].Value
[U8].Value = [I10].Value

End Sub
Private Sub Knop20_Klikken()
[Z9].Value = [P42].Value
[Y9].Value = [M42].Value
[X9].Value = [I42].Value
[W9].Value = [I12].Value
[T9].Value = [I11].Value
[U9].Value = [I10].Value

End Sub
Private Sub Knop21_Klikken()
[Z10].Value = [P42].Value
[Y10].Value = [M42].Value
[X10].Value = [I42].Value
[W10].Value = [I12].Value
[T10].Value = [I11].Value
[U10].Value = [I10].Value
[/SQL]

 

[oeldere]

Ik bedoelde niet dat 1 knop naar alle kolom verwijst. Maar dat knop 1 naar bijv. A6 - B6 - C6 - D6 verwijst. En knop 2 naar A7 - B7 - C7 - D7. De kolom waarvandaan hij komt blijft hetzelfde maar de kolom waar hij naartoe gaat wordt steeds +1.

Mvg.

Dit heb ik met de hand tot nu toe gedaan:

en werkt het?