Ontdubbeling

[PJurriaans Sr]

Gewaardeerde forumleden,Ik weet dat dit onderwerp al vele malen is behandeld maar ik
ben toch zo vrij hier nog een vraag over te stellen Mea culpa maxima of iets in die geest.

Een lijst met met gegevens van 1 jaar heb ik van de ING gedownload daar is een kolom met
tegenrekeningen bij + - 45 van de 500 zijn verschillend.

Ik voeg hierbij een program die door ontdubbelen die 45 rekeningen er uit haalt.

maar hij doet het maar met die ene kolom en hij moet het over de hele regel doen
want ik wil aan die rekening een grootboek nummer koppelen kan iemand mij zeggen
hoe ik onderstaand program zo ver krijg dat hij alle kolommen mee neemt.Public Sub

OntdubbelenKiesPlaats()
Dim PlakPlaats
On Error Resume Next
Set PlakPlaats = Application.InputBox _
(Prompt:="Geef een cel op,waar u de lijst wilt plakken.", Type:=8)
If PlakPlaats Is Nothing Then Exit Sub

Range("F:F").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=PlakPlaats.Cells(1, 1), Unique:=True

If MsgBox("Zal ik de nieuwe lijst ook meteen sorteren?", _
vbYesNo + vbDefaultButton1 + vbQuestion, "Sorteren?") = vbYes Then
PlakPlaats.Range("A1:A6000").Sort _
Keyl:=PlakPlaats.Cells(1, 1), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If

If MsgBox("Mag ik de oorspronkelijke gegevens verwijderen?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Opschonen") = vbYes Then
Columns("A:A").ClearContents
End If

PlakPlaats.Cells(1, 1).Select
End Sub

Mvg Peter.

 

[Hoornvan]

Ik dacht dat ik je al eens uitgelgd had hoe de code tussen de Tags te zetten.

 

[PJurriaans Sr]

WIM ,DAT HEB IK OOK GEDAAN ER KWAM OOK METEEN "CODE OM TE STAAN
IK BEGRIJP HIER NIETS VAN NOTA BENE HET IS IN MIJN IJGEN BELANG.


VOOR DE ZEKERHEID

Public Sub xxxx()

Dim s As Object
Set s = CreateObject("SAPI.SpVoice")
s.Speak Range("D2").Value

Set s = CreateObject("SAPI.SpVoice")
s.Speak "Modder,how where you today"


End Sub

 

[PJurriaans Sr]

WIM DAT HEB JE ZEKER EN NATUURLIJK HEB IK DAAR OOK IN MIJN EIGEN
BELANG IK BEGRIJP ER ZO LANGZAMERHAND NIET VEEL MEER VAN

EEN VOORBEELDJE.MVG PETER

Public Sub xxxx()
Dim s As Object
Set s = CreateObject("SAPI.SpVoice")
s.Speak Range("D2").Value

Set s = CreateObject("SAPI.SpVoice")
s.Speak "Modder,how where you today"


End Sub

 

[Hoornvan]

Je moet de code selecteren en dan pas op het # symbool klikken.

Public Sub xxxx()
Dim s As Object
  Set s = CreateObject("SAPI.SpVoice")
  s.Speak Range("D2").Value

  Set s = CreateObject("SAPI.SpVoice")
  s.Speak "Modder,how where you today"
End Sub

 

[PJurriaans Sr]

Wim dat doe ik voor de zekerheid even dank PeterPublic Sub xxxx()

Dim s As Object
  Set s = CreateObject("SAPI.SpVoice")
  s.Speak Range("D2").Value

  Set s = CreateObject("SAPI.SpVoice")
  s.Speak "Modder,how where you today"
End Sub

Hopelijk is dat hem

 

[Hoornvan]

Wim dat doe ik voor de zekerheid even dank PeterPublic Sub xxxx()

Je kan het wel :thumb: