Advokaat beheer

[Marky76]

In bijlage in lijst met in het Tabblad lijst alle gegevens.
De laaste 3 kolommen bepalen of we alles ontvangen hebben, gedeeltelijk of verlies.
Nu ga je zeggen werk met access, maar dit gaat niet daar er niemand mee kan werken en het ook niet beschikbaar is op het werk.

Dus waneer ik dan bijvoorbeeld lijn 1 aanvink dan zou hij die lijn moeten kopiëren naar het tabblad Gerecupereerd, Verlies of Gedeeltelijk al naargelang wat is aangvinkt, zodanig
dat we snel een overzicht hebben van de zaken die we gewonnen of verloren hebben of gedeeltelijk geïnd hebben.

Is dit mogelijk in Excell?

Groeten,

 

[Wigi]

Dit kan, maar er komt enig kunst- en vliegwerk bij kijken.

Vraagje: kan een zaak meerdere vakjes aangevinkt hebben? Of slechts 1?

 

[Marky76]

Hey Wigi,

Neen, iedere lijn kan maar 1 vakje aangevinkt hebben, het is dus steeds 1 van de 3.

Groeten,

 

[Wigi]

Gebruik Data > Validatie in plaats van de 3 checkboxes.

Neem een lijst met daarin

Gerecupereerd;Verlies;Gedeeltelijk

als keuzemogelijkheden.

Vervang telkens kolom H tem J door nieuwe kolom H, met als titel bijv. status.

Plak onderstaande code in de VBE.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Column = 8 And Target.Row > 1 Then
    Select Case Target.Value
        Case "Gerecupereerd"
            Set ws = Worksheets("Recup")
        Case "Verlies"
            Set ws = Worksheets("Verlies")
        Case "Gedeeltelijk"
            Set ws = Worksheets("Gedeeltelijk")
    End Select
    Range("A" & Target.Row, "G" & Target.Row).Copy ws.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
End Sub

Als je de naam van het tabblad Recup vervangt in Gerecupereerd, dan kan de code veel korter. Maar dat is nu dus nog niet het geval. Laat het weten indien je dat wenst (of probeer het zelf)

Bij moeilijkheden, vraag gerust.

Wigi

 

[Marky76]

Ik heb het net geprobeerd, maar krijg volgende foutmelding:

"Fout 91

Objectvariabele of blokvariabele with is niet ingesteld"

Groeten,

ps ik heb in bijlage het bestandje gezet, met uw vb code erin.

 

[Wigi]

Bij mij werkt uw bestand.

Je hebt trouwens maar 1 kolom nodig met Gerecup., verlies, Gedeelt.

Kolommen I en J mogen in elk blad gedeleted worden.

Als je dan nog dezelfde foutmelding krijgt, laat het weten.

Wigi

 

[Marky76]

Bij mij werkt het nu ook, ik heb in mijn lijst met gegevens die ik nodig heb voor de validatie Recup gezet en dit was fout, heb dit veranderd in gerecupereerd want zo staat het in de VB code en nu werkt het.

Thanks,

 

[Wigi]

Nog een opmerking:

Als je de naam van het tabblad Recup vervangt in Gerecupereerd, dan kan de code veel korter.

De code kan dan veel simepler zoals hieronder (dus sneller, efficiënter):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Target.Row > 1 Then
Range("A" & Target.Row, "G" & Target.Row).Copy Worksheets(Target).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
End Sub

FYI, ik heb deze code niet getest.

Wigi