leggen cellen niet copieeren, en datum met zelfde plaats 1x weer geven.

[markwat]

leggen cellen kopiëren naar ander werkblad in een tabel
Waar dan de lege cellen niet mee gekopieerd mogen worden.
En wanneer de datum en de plaats het zelfde zijn dan maar 1x de datum weergeven.

 

[VenA]

Moet er steeds vanaf A2 geplakt worden of is het de bedoeling dat de tabel aangevuld wordt? Ik ga er maar vanuit dat je de tabel wil aanvullen.

Sub VenA()
  ar = Sheets("Work Order").Cells(21, 1).CurrentRegion.Offset(2).Resize(, 2).SpecialCells(2)
  With Sheets("kilometer vergoeding").ListObjects(2)
    If .ListRows.Count = 0 Then
      .Range.Cells(2, 1).Resize(UBound(ar), 2) = ar
    Else
      .Parent.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(ar), 2) = ar
    End If
    .Range.RemoveDuplicates Array(1, 2), xlYes
  End With
End Sub

 

[HSV]

Geschikt voor een totaalrij.

Sub hsv()
Dim sv, c As Range
sv = Sheets("Work Order").Cells(21, 1).CurrentRegion.Offset(2).Resize(, 2).SpecialCells(2)
  With Sheets("kilometer vergoeding").ListObjects(2)
    Set c = .Range.Cells(.ListRows.Count + 1, 1)
      .Resize .Range.Resize(.ListRows.Count + UBound(sv) + 2)
     c.Offset(1).Resize(UBound(sv), UBound(sv, 2)) = sv
      .Range.RemoveDuplicates Array(1, 2), xlYes
  End With
End Sub

 

[markwat]

Beste harry,

Ben een beetje laat met reageren maar enorm bedankt!!
Dit werkt goed, maar... ik had een formule in C en D gezet zodat deze de km stand uit de tabel haalt, maar wanneer de marco sorteert komt er een regel bij waar direct de formule in wordt gezet waardoor de volgende keer er een lege regel komt.
is het ook mogelijk om in de macro te verwerken, dat in C en D de km stand word gezet?
Ik heb het zelf geprobeerd maar komt er niet uit.
alvast bedankt.

Gr paul

 

[HSV]

Ik zie helaas nergens in de tabel een formule, laat staan kilometers.

 

[markwat]

Beste Harry,

Dat klopt.
ik heb het in een ander bestand soort gelijk gemaakt.
het klopt ook dat de omschrijving geen km is maar afstand zoals in de tabel Kolom L.
De afstand die overeen komt met de woonplaats, zou dan in Kolom C, D ook moeten worden weer gegeven.

mvg,
Paul

 

[HSV]

Plaats een bestand met hoe het is en hoe het moet worden Paul.
Ik begrijp er niet veel van zo.

 

[markwat]

Beste Harry,


hierbij het bestand.

 

[VenA]

't is wat of niet Mark? Als er maar 1 mag reageren dan moet je wel een beetje geluk hebben dat diegene er en zin in heeft of in de gelegenheid is.

 

[markwat]

O nee, sorry Meneer VenA,
Dat was absoluut niet mijn bedoeling.
Ik zal voortaan hier opletten.

 

[VenA]

In het bestand staan geen formules. Probeer de code uit #2 eens. Je krijgt niet voor niets meerdere suggesties aangereikt. Wel even ar declareren of Option Explicit weghalen.

 

[markwat]

Beste VenA en Harry... :d

Uw Formule is ook perfect.
ik durfde het eigenlijk niet te zeggen dat uw formule het niet deed, maar ik had Option Explicit nog boven aan staan.
Het is nu geheel compleet.
ik wil jullie Beide heel hartelijk danken.
De vraag zal ik markeren als opgelost.

 

[HSV]

Het resultaat was inderdaad een rij teveel, maar de vraag ging over formules.

Om in de tabelvorm te blijven.
Met of zonder een totaalrij.

Sub hsv()
Dim sv, rij As Long
Application.ScreenUpdating = False
sv = Sheets("Work Order").Cells(23, 1).CurrentRegion.Offset(2).Resize(, 2).SpecialCells(2)
  With Sheets("kilometer vergoeding").ListObjects(1)
    rij = .Range.Cells(1, 1).Offset(.ListRows.Count).Row
       .Resize .Range.Resize(.Range.Rows.Count + UBound(sv), 5)
       .Range.Cells(rij + 1, 1).Resize(UBound(sv), 2) = sv
       .Range.RemoveDuplicates Array(1, 2), xlYes
  End With
End Sub

 

[markwat]

Beste Harry,

Uw formule is nu ook goed.
de Rij C,D, heb ik nu gevuld met de formule =(VERT.ZOEKEN([@Adres];Tabel1;2;0)) en werk correct.
Nogmaals alle bij heel hartelijk dank..

hartelijke groet
Paul.

 

[HSV]

Voor de duidelijkheid Mark.

Het is geen formule maar code.

 

[markwat]

Sorry....
ik hou helemaal niet van vloeken....