dubbele waarden verwijderen en opslaan in pdf

[starchaser]

goedemiddag iedereen,

in het vb heb ik 3 naamlijsten (DB1,2,3) en een totale naamlijst (DBTot).

Dmv een formulier, selecteer ik uit een datalijst de naam en voeg hem toe aan het gewenste tabblad (DB1,2,3).
De selectie moet eveneens worden toegevoegd aan DBTot.

Indien de naam reeds voorkomt in de geselecteerde naamlijst, mag deze niet worden toegevoegd én ook niet aan DBTot.
Een naam kan dus slechts eenmaal voorkomen per naamlijst, maar kan wel aan de 3 lijsten toegevoegd worden én mag slechts 1x op de totale lijst (DBTot) voorkomen.

Ik had tijdens het opzoekwerk op het internet al iets gevonden :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountIf(Range("b2:b16"), Target) > 1 Then
Target.Value = ""
On Error GoTo 0
End If
End Sub

Dan wordt de naam niet toegevoegd, maar de "Club" en "Land" wel.
Moet ik hier nog iets aan toevoegen of ben ik op het verkeerde spoor?

Tevens zou elke naamlijst apart moeten opgeslagen worden in excel én pdf

Voor een ander project heb ik dit met volgende code kunnen oplossen :

Private Sub CmdSave_Click()
' Opslaan bestanden in xls en pdf
Dim AName As String
AName = Cmb1.Value
'Naam aanmaken voor de benaming van je bestand
c00 = ThisWorkbook.Path & "\" & "Naamlijsten"
If Dir(c00, 16) = "" Then MkDir c00
Sheets AName.Select
Sheets AName.Copy
    ActiveWindow.SmallScroll Down:=-3
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 'Copieren en plakken in "waarden"
    Application.CutCopyMode = False
    'Opslaan onder map Naamlijsten en daarna naam aanmaken voor xlsx file
    ActiveWorkbook.SaveAs Filename:= _
        c00 & "\" & AName & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    'Opslaan onder map Naamlijsten in PDF formaat
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=c00 & "\" & AName, quality:=xlQualityStandard, includedocproperties:=True
    ActiveWindow.Close 'Gekopieerd bestand terug afsluiten

End Sub

Maar in het nieuwe project loopt deze code niet. Tevens moet ik nu meerdere bladen opslaan ipv slecht 1.

Kunnen jullie mij nog eens op weg helpen?
Bedankt en grtn
Star

 

[VenA]

Waarom wil je dit? Als je alles in DBTot hebt staan dan heb je toch voldoende? Stel per voorkeur 1 vraag en laat geen 2 projecten door elkaar lopen als je er toch niets van VBA begrijpt.

 

[starchaser]

VenA,

1. Waarom wil ik dit?
Omdat de eindgebruikers bijna geen computerkennis hebben en het eindresultaat dus zoveel mogelijk automatisering moet zijn.
Anders moet je ook geen vba gebruiken en kan je alles manueel verwerken.
2. 1 vraag ipv 2 :
Aangezien beide vragen tot hetzelfde project behoren, ging ik ervan uit dat het beter was om ze samen te bundelen. Indien ik dit verkeerd heb gezien, mijn excuses dan en zal ik dit vermijden.
3. … als je toch niets van VBA begrijpt...
Ik ben al meerdere malen in dit forum geholpen door mensen die veel meer kennis hebben van VBA dan ik (ook door jou VenA) waarvoor mijn dank.
Ik dacht dat een van de doelstellingen van dit forum zou zijn dat de "specialisten" hun kennis konden delen met mensen die zeker niet zover staan, maar toch de wil hebben om de basis aan te leren (met vallen en opstaan).
Moest dit een foute gedachte zijn, laat het me dan gerust weten...
grtn

 

[VenA]

Ad1. Als je de eindgebruikers zo min mogelijk wil belasten zorg je eerst voor een goed ontwerp. En dan zet je niet van alles in verschillende tabjes zonder uit te leggen wat hiervan het nut is.
Ad2 en Ad3. Het doel van dit forum is om als je een specifieke vraag hebt over iets waar je tegen aanloopt dat je verder geholpen wordt. Hoe concreter de vraag hoe beter je op weg geholpen wordt. Dat de helpers graag hun kennis delen klopt. Maar het is niet de bedoeling/doel van dit forum om applicaties te gaan maken.

Om je tegemoet te komen een voorbeeldje met controle op de tabjes Db 1 t/m 3. Voor de tab 'DBTot' mag je het zelf even proberen.