Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Macro's op verschillende bladeren  (gelezen 8664 keer)

0 leden en 1 gast bekijken dit topic.

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Macro's op verschillende bladeren
« Gepost op: 01 juli 2021, 12:58:36 »
Dag allen,

Ik heb nog eens een vraagje. In bijlage heb ik mijn document met wat uitleg gestoken en ik heb hier al een macro aan toegevoegd. Die macro werkt zoals ik het zou willen, maar ik zit nog met enkele problemen omdat ik op 2 verschillende bladen bepaalde zelfde handelingen wil doen.
In bijlage alvast het document met beschrijving van wat ik graag zou willen.

Kan iemand mij hier verder in helpen aub?

Alvast bedankt,
Jamnesia

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro's op verschillende bladeren
« Reactie #1 Gepost op: 01 juli 2021, 14:54:25 »
In cel G4 van blad "Telling:

=C4-E4
In cel D4 van blad "Productie"

=Telling!G4
Achter werkblad "Telling":

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
   If Target.Address(0, 0) = "A4" Then
      [C4] = [C4] + Target.Value
      Target = 0
   End If
 Application.EnableEvents = True
End Sub

Achter werkblad productie:

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
   If Target.Address(0, 0) = "F4" Then
      Sheets("Telling").[E4] = Target.Value
      Target = 0
   End If
 Application.EnableEvents = True
End Sub



Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #2 Gepost op: 01 juli 2021, 15:10:05 »
Hartelijk dank, ik ga dit eens proberen.

Mvgr,
Jamnesia

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro's op verschillende bladeren
« Reactie #3 Gepost op: 01 juli 2021, 15:30:36 »
Veerj,

Citaat
Cel E4 is een opstelsom van "blad productie" Cel F4. Dus daar geef ik in wat ik verbruikt heb en dit moet aangepast worden op "blad Telling" in cel E

Sheets("Telling").[E4] = Target.Value
Sheets("Telling").[E4] = Sheets("Telling").[E4] + Target.Value
Sorry als ik het mis begrepen heb...

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro's op verschillende bladeren
« Reactie #4 Gepost op: 01 juli 2021, 15:34:45 »
Dat moet het zijn inderdaad ;D Thanks!

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #5 Gepost op: 01 juli 2021, 15:44:12 »
Ik heb net even alles aangepast en het werkt toch nog niet zoals ik het zou willen.
In bijlage alvast het document met de aanpassing.

Wat er nog niet werkt is:
1. als ik bij A4 bv 1000 type, dan past C4 en G4 dit aan.
2. als ik dan op blad productie in F4 bv 500 type, dan moet er bij blad Telling E4 500 komen te staan en zo ook de stock veranderen naar 500 zowel op blad productie als telling. En ook moet dan na deze actie F4 op blad productie terug 0 worden zonder dat dit gevolg heeft voor E4 van blad telling.

Kan zijn dat ik iets fout heb gedaan.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro's op verschillende bladeren
« Reactie #6 Gepost op: 01 juli 2021, 16:07:19 »
Jamnesia,

ik laat de code aan Veerj over, want ik ben daar echt maar een beginner in.

toch dacht ik dat je in:
If Target.Address(0, 0) = "F4" Thenof ..... =("F4")  .... of ....  [F4] ... moet gebruiken.
"F4" zou duiden op tekst Denk ik...  :-X

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #7 Gepost op: 01 juli 2021, 16:23:35 »
Jamnesia,

ik laat de code aan Veerj over, want ik ben daar echt maar een beginner in.

toch dacht ik dat je in:
If Target.Address(0, 0) = "F4" Thenof ..... =("F4")  .... of ....  [F4] ... moet gebruiken.
"F4" zou duiden op tekst Denk ik...  :-X

:) SoftAid :)             

Geen enkel probleem hoor. Ikzelf ben ook maar een amateur en stilletjes aan leer ik bij dankzij mensen zoals jullie.
Ik ben al enorm blij dat ik een mogelijke oplossing hier kan vinden.

Heel hartelijk dank al voor jullie inzet.

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro's op verschillende bladeren
« Reactie #8 Gepost op: 01 juli 2021, 16:32:37 »
Je had 2x application.enableevents op FALSE. Die moet onderin ook weer op TRUE

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Macro's op verschillende bladeren
« Reactie #9 Gepost op: 01 juli 2021, 16:34:42 »
@SoftAid, als je deze runt wordt het misschien wat duidelijker :)

Sub jvr()
MsgBox Range("F4").Address(0, 0)
End Sub

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #10 Gepost op: 01 juli 2021, 17:08:51 »
Super hartelijk dank Veerj. Dit werkt zoals ik zou willen.

Van mij mag deze topic gesloten worden, tenzij dat er nog andere ideeën hier gevonden worden.  ;D ;D ;D

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #11 Gepost op: 02 juli 2021, 09:38:34 »
Beste Veerj,

Ik heb toch nog een vraag. In bijlage alvast het document.

Hetgeen ik zou willen maken is als volgt:

De pagina TELLING daar ga ik alle type profielen invoegen. Dus per rij zou er een ander type profiel staan. Dit document zou dan gaan dienen voor de stocktelling.
De pagina Productie daar ga ik dezelfde profielen plaatsen, met daarachter een vak waar ik het aantal dat we gebruikt hebben kan invoegen.

Met hetgeen we vorige keer gemaakt hebben gaat dit perfect al dit over 1 type profiel gaat. Maar als ik nu meerder profielen heb, dan loop ik vast.

Vb.:
Als ik op blad "Productie" in cel F4 1000type, dan moet dit hetzelfde doen als vorige keer en dit resultaat komen in cel F4 van blad "Telling"
Als ik dan op blad "Productie" in cel F6 1000 zou typen, dan moet dit hetzelfde doen als vorige keer, maar dan wel het resultaat in cel F6 van blad "Telling" komen.

En zou zou ik dus al onze type profielen onder elkaar willen zetten en zo invoegen.
Als ik alles op 1 blad zou houden, dan krijg ik dit opgelost, maar aangezien ik op 2 bladen werk lukt me dit niet. En ik zou 2 afzonderlijke bladeren moeten hebben.

Hopelijk vind je hier ook weer de oplossing voor.

Alvast bedankt.

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #12 Gepost op: 02 juli 2021, 10:47:45 »
Ik heb onderstaande al gevonden, maar dan moet ik dus voor elk type profiel een code invoeren. Is er er geen code dat dit voor heel de kolom hetzelfde maakt? Zo moet ik niet rij per rij alles invoeren.  ;D

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
  If Target.Address(0, 0) = "F4" Then
     Sheets("Telling").[F4] = Sheets("Telling").[F4] + Target.Value
    Target = 0
  End If
    If Target.Address(0, 0) = "F6" Then
     Sheets("Telling").[F6] = Sheets("Telling").[F6] + Target.Value
    Target = 0
    End If
Application.EnableEvents = True
End Sub

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro's op verschillende bladeren
« Reactie #13 Gepost op: 02 juli 2021, 12:37:31 »
Jamnesia,

Probeer eens op deze manier:

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 rij = Target.Row   
 If Target.Columns= "F" Then
     Sheets("Telling").Range("F" & rij) = Sheets("Telling").Range("F" & rij] + Target.Value
    Target = 0
 End If
Application.EnableEvents = True
End Sub

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Jamnesia

  • Volledig lid
  • **
  • Berichten: 136
  • Oplossing.be
Re: Macro's op verschillende bladeren
« Reactie #14 Gepost op: 02 juli 2021, 12:46:58 »
Helaas werkt dit niet SoftAid.

Ik zag dat je een ] had gebruikt ipv ), maar heb dit al eens aangepast en werkt nog steeds niet helaas.

 


www.combell.com