Auteur Topic: Gegevens kopieren zonder formule (gelezen 18967 keer)

johnneke886 · « **Gepost op:** 18 juni 2015, 23:39:57 »

Ik gebruik 2 tabbladen met formules. Als ik in tab1 gegevens invoer komen die automatisch in tab2.
Het probleem is als ik de gegevens wis in tab1 verdwijnen die in tab2 ook. Is er een manier om deze te laten staan in tab2
of een macro om enkel de laatste wijzigingen bij te houden in een andere tab of file eventueel?

Alvast bedankt

SoftAid · « **Reactie #1 Gepost op:** 19 juni 2015, 11:24:15 »

Hallo johnneke886,

Welkom op Oplossing.be.

Ik los het probleem van verwijzingen die afhankelijk zijn van, en dus verdwijnen als de opdracht verdwijnt, op door "Kopiëren en Plakken (speciaal/WAARDE)" te gebruiken. Dat kan dus handmatig, of je kan dit in een macro zetten.

inhoud van een macro die je zou kunnen uitvoeren vanaf een knop in werkblad 2:

Code: [Selecteer]

    Sub Knop1()
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False
End Sub

Zie je hier iets in?

Citaat van: johnneke886 op 18 juni 2015, 23:39:57

....of een macro om enkel de laatste wijzigingen bij te houden in een andere tab of file eventueel?

Dan hang je best een voorbeeldbestandje aan als bijlage aan je volgend bericht.

SoftAid

RedHead · « **Reactie #2 Gepost op:** 19 juni 2015, 12:45:30 »

Of een variant zonder copy en paste...

Code: [Selecteer]

Sub ff()

    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

End Sub

SoftAid · « **Reactie #3 Gepost op:** 19 juni 2015, 13:16:30 »

Nog iets korter en er staat enkel nog

Code: [Selecteer]

Sub ' ()
?
End Sub

SoftAid

RedHead · « **Reactie #4 Gepost op:** 19 juni 2015, 14:40:56 »

[Vind-ik-leuk]

Citaat van: SoftAid op 19 juni 2015, 13:16:30

Nog iets korter en er staat enkel nog

Hahahaha...

johnneke886 · « **Reactie #5 Gepost op:** 19 juni 2015, 15:36:54 »

als ik de macro
Sub ff()

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

End Sub
gebruik dan kopieert en plakt hij alles dus zijn mijn formules in tab2 weg

SoftAid · « **Reactie #6 Gepost op:** 19 juni 2015, 16:01:23 »

Citaat van: johnneke886 op 19 juni 2015, 15:36:54

als ik de macro
Sub ff()

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

End Sub
gebruik dan kopieert en plakt hij alles dus zijn mijn formules in tab2 weg

Dat was toch ook de bedoeling, of anders moet je je doelstelling beter omschrijven.

SoftAid

johnneke886 · « **Reactie #7 Gepost op:** 19 juni 2015, 16:44:59 »

Nevermind, heb het uiteindelijk anders gedaan

Weet je soms een macro voor de kleur te veranderen van een drukknop (groen-rood-groen-rood-enz)
Telkens je klikt dat de kleur verandert van groen naar rood en omgekeerd
Ter info: Achter de drukknop zit een hyperlink

SoftAid · « **Reactie #8 Gepost op:** 19 juni 2015, 18:31:11 »

Ik dacht niet dat je de kleur van een drukknop kon veranderen.
Een active-x-element kan je wel via de Eigenschappen (BackColor) aanpassen, maar of dit via een macro ook kan weet ik niet.

Mogelijk 2 knoppen boven elkaar?
Iets in de aard van:

KnopRood bij klikken = KnopRood.Invisible '+andere opdrachten
Dan is knop KnopGroen zichtbaar en kan je daar op klikken
KnopGroen bij klikken = KnopRood.Visible '+andere opdrachten
en de groene knop zit weer verborgen achter de rode

SoftAid

RedHead · « **Reactie #9 Gepost op:** 19 juni 2015, 21:31:34 »

Citaat van: johnneke886 op 19 juni 2015, 16:44:59

Nevermind, heb het uiteindelijk anders gedaan

Da's mooi... Maar hoe dan? Als iemand anders eenzelfde vraag heeft, dan heeft die nu geen antwoord kunnen vinden.

Wat betreft de van kleur veranderende knop... Dat kan inderdaad alléén maar met een knop uit de ActiveX toolbar. De formulierknoppen kunnen dit niet.
Een voorbeeldcode voor een ActiveX knop zou dit kunnen zijn...

Code: [Selecteer]

Private Sub CommandButton1_Click()
    
    If CommandButton1.BackColor = vbBlue Then
        CommandButton1.BackColor = vbRed
    Else
        CommandButton1.BackColor = vbBlue
    End If
    
End Sub

johnneke886 · « **Reactie #10 Gepost op:** 21 juni 2015, 00:04:36 »

ik krijg het niet voor mekaar. hij geeft een fout en weet niet welke

SoftAid · « **Reactie #11 Gepost op:** 21 juni 2015, 00:47:26 »

Enkele foutjes, maar wat juist, daar zal ik morgen naar kijken.

- Je hebt een formulierbesturingselement gekozen in plaats van een active-x-besturingselement, bij het invoegen, en daar werkt het niet mee.
- Bovendien moet je de macro definiëren als een OnClick event, dus niet Sub Knop_1() maar Sub Knop_1_Click()
Sub Knop_1_Click() wil zoveel zeggen als: voer de macro uit als er op Knop_1 geklikt wordt.
- Of de naam Knop_1 kan/mag gebruikt worden...

met die Underscore (_) in de naam, ik weet het niet

.
- Ook dat werkt nu nog niet, dus zet je macro in werkblad Blad1 in VBA, niet in een module in VBA.
Dat werkt dan wel: zie bijlage
Slaap wel.

SoftAid

johnneke886 · « **Reactie #12 Gepost op:** 21 juni 2015, 07:26:05 »

Citaat van: SoftAid op 21 juni 2015, 00:47:26

Enkele foutjes, maar wat juist, daar zal ik morgen naar kijken.

- Je hebt een formulierbesturingselement gekozen in plaats van een active-x-besturingselement, bij het invoegen, en daar werkt het niet mee.
- Bovendien moet je de macro definiëren als een OnClick event, dus niet Sub Knop_1() maar Sub Knop_1_Click()
Sub Knop_1_Click() wil zoveel zeggen als: voer de macro uit als er op Knop_1 geklikt wordt.
- Of de naam Knop_1 kan/mag gebruikt worden... met die Underscore (_) in de naam, ik weet het niet .
- Ook dat werkt nu nog niet, dus zet je macro in werkblad Blad1 in VBA, niet in een module in VBA.
Dat werkt dan wel: zie bijlage
Slaap wel.

SoftAid

ok moet nog veel leren blijkbaar

Alvast bedankt voor de grote hulp

johnneke886 · « **Reactie #13 Gepost op:** 21 juni 2015, 08:17:41 »

Kan je ook meerdere knoppen op deze wijze macro's toewijzen
dus knop 1, knop2, knop3, enz?
Zou er zo'n 70 moeten hebben :-)

In mijn geval moet het eigenlijk wit/rood zijn

RedHead · « **Reactie #14 Gepost op:** 21 juni 2015, 12:03:41 »

70 knoppen??? Dat lijkt me erg onwenselijk! Het is de bedoeling dat je een gebruiker ondersteund en niet irriteert. Laat 'ns weten waar je mee bezig bent. Wellicht kan je dan geholpen worden om de opzet van je programma aan te passen.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics