Marco na filteren laatste gevulde Cel Kolom A, kolom A B en C kopiëren

[Johan09]

Goedemiddag,

Ik loop vast bij het volgende.
Ik wil na mijn storing in kolom D op Yes (testblad1)
Kolom A B en C kopiëren naar het werkblad Form, cel B3.
Nu kan ik in kolom A de laatst gevulde cel vinden en dan deze kolom koppieren, maar ik wil ook de andere twee kolommen mee kopiëren op basis van mijn selectie en kolom A.
Het kan zijn dat er in de rijen van kolom A niet altijd data staat (lege cellen), B en C hoeven niet gevuld te zijn.
Ongeacht dat B en C leeg kunnen zijn moet wel de gehele data na filtering uit kolom A, B en C gekopieerd worden.

Kunnen jullie mij helpen?

gr Johan

 

[snb]

Wat is een Testbald ?

Zie ook:https://www.bol.com/nl/f/microsoft-excel-vba-voor-dummies/9200000102248815/

 

[Johan09]

reactie

mag ik vragen waarom deze reactie?
ik vraag om hulp, nee is ook een antwoord
daarnaast gaan er een hoop dingen prima (in de originele file, niet de test file) alleen loop ik nu hier op vast

 

[SjonR]

Ik weet gelukkig wat een testbald is, ik maak die tikfout ook zeker eens per week

Hier mijn poging, heb er even tabellen van gemaakt.

 

[huijb]

Twee misbruikmeldingen om een gebbetje. Het nieuw jaar is net begonnen maar vele staan nu al zo strak als een rietje. SNB maakt gewoon een geintje. Get over it. Of zoals je de laatste tijd veel hoort op de radio "en door"

 

[Johan09]

Ik weet gelukkig wat een testbald is, ik maak die tikfout ook zeker eens per week

Hier mijn poging, heb er even tabellen van gemaakt.

Kan ik dit ook zonder er tabbellen van te maken gebruiken? wil dit als een gedeelde file gebruiken en mijn ervaring is dat tabellen dan nog wel eens in de weg willen zitten.

gr

 

[Johan09]

ik heb het op een andere manier opgelost.

Sheets("testblad1").Select
ActiveSheet.Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Sheets("Form").Range("A2").PasteSpecial Paste:=xlPasteValues

ik ga er nog even mee verder en als het goed gaat zet ik de topic op opgelost

gr Johan

 

[JEC.]

Dan zou ik het eerder zo doen

Sub j()
 With Sheets("testblad1").Range("A1:D" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
  Sheets(1).ListObjects.Add 1, .Offset, , 1
  .AutoFilter 4, "Yes"
  .Offset(1).Copy Sheets("Form").Range("A2")
  .AutoFilter
  Sheets(1).ListObjects(1).Unlist
 End With
End Sub

Misschien voor de netheid nog 2 regeltjes extra

Sub j()
 With Sheets("testblad1").Range("A1:D" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
   Sheets(1).ListObjects.Add 1, .Offset, , 1
  .AutoFilter 4, "Yes"
  .Offset(1).Copy Sheets("Form").Range("A2")
  .AutoFilter
   Sheets(1).ListObjects(1).Unlist
 [COLOR="#FF0000"] .Offset(1).Borders.LineStyle = xlNone
  .Offset(1).Interior.Color = xlNone[/COLOR]
 End With
End Sub

 

[snb]

Wat is er tegen:

With Sheets("testblad1").cells(1).currentregion.resize(,4)

 

[JEC.]

Bekijk het bestand en de vraag maar eens. Dan zie je dat het misgaat

 

[HSV]

Weet dat het rode gedeelte een actieve blad kan zijn vanwaar je de code uitvoert.

With Sheets("testblad1").Range("A1:D" & [COLOR=#ff0000]Cells(Rows.Count, 1).End(xlUp)[/COLOR].Row)

En zo maakt het niet uit waar je de code in start.

Sub tst()
  With Sheets("testblad1").Range("A1", Sheets("testblad1").Cells(Rows.Count, 1).End(xlUp)).Resize(, 4)
  .AutoFilter 4, "Yes"
  .Offset(1).Resize(, 3).Copy Sheets("Form").Range("b3")
  .AutoFilter
 End With
End Sub

Kan in dit geval ook.

With Sheets("testblad1").UsedRange.Resize(, 4)

 

[JEC.]

Zonder de resize krijg je hetzelfde resultaat.

With Sheets("testblad1").UsedRange[COLOR="#FF0000"].Resize(, 4)[/COLOR]

 

[snb]

Dat is onvoorspelbaar bij usedrange.

 

[JEC.]

Daarbij weten we ook niet hoe de rest van TS zijn bestand er uitziet.

 

[Johan09]

Thanks voor de reacties. fijne werkweek