*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: bestand wegschrijven naar een ander tabblad.  (gelezen 5219 keer)

0 leden en 1 gast bekijken dit topic.

Offline kobe

  • Lid
  • *
  • Berichten: 30
  • Oplossing.be
bestand wegschrijven naar een ander tabblad.
« Gepost op: 08 juli 2010, 15:36:52 »
IK ben op zoek naar het volgende in Excel 2007.

Ik hou een bestand bij waarbij leden iets moeten doen een formulier opsturen of iets betalen. Als men dat heeft ontvangen wil ik dat tabblad "todo" opkuizen door de zaken die afgehandeld zijn te verplaatsen naar een tweede tabblad "done" zodat ik enkel nog oog heb voor degene die moeten gerapelleerd worden.
Na verloop van tijd wil ik dit herhalen.

zie voorbeeld
Gelogd
0A00h Hewlett-Packard, FireGL V3100 (0x5B64)FireGL V3100 (0x5B64), Windows XP, Prof, SP2, NL, Intel(R) Pentium(R) D CPU 3.20GHz, 1024 MB RAM, HDD:156 GB, NTFS, Norton AntiVirus, Internet Explorer 6.0, Microsoft Outlook

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: bestand wegschrijven naar een ander tabblad.
« Reactie #1 Gepost op: 09 juli 2010, 01:11:54 »
Beste kobe  ;)
 
Zie aangepast bestandje.

In kolom H "OK" plaatsen en op knop klikken.
Gegevens worden naar ander tabblad overgebracht en verwijderd op het eerste tabblad.

Omgekeerd gaat het ook.
Dan in kolom H "NOK" plaatsen en op knop klikken.

Groetjes Danny.  :)
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: bestand wegschrijven naar een ander tabblad.
« Reactie #2 Gepost op: 11 juli 2010, 08:01:22 »
Code: [Selecteer]
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 8 Then
        If Target = "OK" Then
            [Done!A65536].End(xlUp).Offset(1).Resize(, 8) = Cells(Target.Row, 1).Resize(, 8).Value
            Target.EntireRow.Delete
        End If
    End If
End Sub
Gelogd
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline kobe

  • Lid
  • *
  • Berichten: 30
  • Oplossing.be
Re: bestand wegschrijven naar een ander tabblad.
« Reactie #3 Gepost op: 13 juli 2010, 09:17:28 »
Jullie zijn echte experten in VBA en bedankt hiervoor.

Maar is warm bakkertje een apparte oplossing of is dit een aanpassing aan het werk van Danny en waar moet ik dat dan vervangen.

VBA geeft wel een fout bij het openen van het bestand van Danny.

Kan iemand me helpen thx.
Gelogd
0A00h Hewlett-Packard, FireGL V3100 (0x5B64)FireGL V3100 (0x5B64), Windows XP, Prof, SP2, NL, Intel(R) Pentium(R) D CPU 3.20GHz, 1024 MB RAM, HDD:156 GB, NTFS, Norton AntiVirus, Internet Explorer 6.0, Microsoft Outlook

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: bestand wegschrijven naar een ander tabblad.
« Reactie #4 Gepost op: 14 juli 2010, 16:09:48 »
Beste kobe  ;)

Warme bakkertje heeft een andere versie geschreven, maar de mijne werkt ook omgekeerd.

Wat krijg je als foutmelding bij VBA ?

Groetjes Danny.   :)
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline kobe

  • Lid
  • *
  • Berichten: 30
  • Oplossing.be
Re: bestand wegschrijven naar een ander tabblad.
« Reactie #5 Gepost op: 15 juli 2010, 17:15:47 »
Sorry Danny,

Het werkt perfect

weeral allemaal bedankt

Gelogd
0A00h Hewlett-Packard, FireGL V3100 (0x5B64)FireGL V3100 (0x5B64), Windows XP, Prof, SP2, NL, Intel(R) Pentium(R) D CPU 3.20GHz, 1024 MB RAM, HDD:156 GB, NTFS, Norton AntiVirus, Internet Explorer 6.0, Microsoft Outlook

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: bestand wegschrijven naar een ander tabblad.
« Reactie #6 Gepost op: 19 juli 2010, 21:56:47 »
Enkele voordelen van mijn code
1. Het wegschrijven van de regel gebeurt automatisch bij wijziging in kolom 8 (Geen knop nodig)
2. het wegschrijven en verwijderen gebeurt in 1 beweging, zonder dat er tweemaal het volledige bereik in kolom 8 doorlopen wordt (geen lussen in de code)
3. Slechts 1 shrijfbewerking (bij gebruik van Copy heb je een lees-en schrijfbewerking)
4. Geen ScreenUpdating nodig

Punten 2,3 en 4 leveren je tijdswinst op in uitvoering v/d code
Gelogd
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US
Pagina's: [1]   Omhoog
 


www.combell.com