Rijen selecteren in een tabel en verwijderen

Status
Niet open voor verdere reacties.
Wat gaat er fout in het bestand in #8.

Op welke regel en wat voor foutmelding?
 
Beste HSV,
Dank voor je reactie.
Ik hoop dat je mij niet kwalijk neemt, maar ik stop er eerst mee. Ik wil verdere teleurstellingen voorkomen en ga me eerst verdiepen in de regels van dit forum.

Mvg,
 
Laatst bewerkt door een moderator:
Prima hoor @hdrenth,

Maakt niet uit, als ik er flauw van ben dan reageer ik niet meer.
 
Beste HSV en anderen,

Dat ik niet eerder heb opgemerkt dat er een tag aan de rechterzijde staat is niet zo slim van mij.
EdMoor heeft mij daar al eerder op gewezen, ik keek wel naar rechts, maar in de bovenhoek.

Ik heb een bericht aan de moderator gestuurd omdat ik het xlsb bestand niet kan uploaden.

mvg,
 
Laatst bewerkt door een moderator:
Beste HSV,

Ik heb nog geen bericht van de moderator ontvangen.
Ik laat het dus eerst maar zo.

mvg,
 
Laatst bewerkt door een moderator:
Moet je het wel goed doen natuurlijjk.
 

Bijlagen

  • Forum analyse.xlsb
    15 KB · Weergaven: 47
Beste snb,

Ik heb je bericht gelezen en het bestand bekeken. Dank voor de inspanning!
Neem me aub niet kwalijk dat ik je zeg dat ik het niet begrijp.
Links zie ik allerlei paden.
Bovenaan een knop met daaronder een macro.
Daar houd het bij mij op.

Iets anders:
Mijn xlsb bestand kan nog steeds niet worden geupload, terwijl ik vandaag al wel een ander bestand (een kalender) heb geupload.
Ik controleer nog even of er een macro in zit, misschien is dat het probleem?

mvg,
 
Laatst bewerkt door een moderator:
Het bestand zal te groot zijn (daar krijg je dan ook een melding bij).
Haal eruit wat niet van toepassing is.
 
Beste HSV,

Dank voor je reactie. Ik kreeg geen melding. Althans die heb ik niet gezien.

Ik ga kijken of ik het bestand kan verkleinen.

mv,
 
Laatst bewerkt door een moderator:
Beste HSV,

Nog een poging gedaan om het bestand te uploaden.
Behoorlijk uitgekleed.

mvg,
 

Bijlagen

  • boekingen-test.xlsx.xlsb
    8,4 KB · Weergaven: 41
Laatst bewerkt door een moderator:
Ik blijf erbij dat dit werkt.
Code: 
Sub hsv()
Application.DisplayAlerts = False
With Cells(1).CurrentRegion
  .AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
  .Offset(1).Delete
  .AutoFilter
End With
End Sub
 
Beste HSV,

Dank voor je inzet.
Ik heb de code in de andere code van dit werkblad verwerkt. Deze code is ook de laatste handeling in het werkblad, waardoor er een End Sub is opgenomen.
Zie hierna.
Maar het geeft niet het gewenste resultaat.
Ik doe vast iets fout, maar weet niet wat.

Code: 
Blad5.Select
ActiveSheet.Unprotect
Application.DisplayAlerts = False
With Cells(1).CurrentRegion
  .AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
  .Offset(1).Delete
  .AutoFilter
End With
End Sub
 
Plaats een bestand met de gegevens, en zet op het tweede blad eens het resultaat wat jij wenst.
 
Beste HSV,

Het uploaden ging nu perfect.
Begrijp niet wat ik eerder heb fout gedaan.

Bij het aanmaken van een nieuw boekjaar kunnen de boekingen van "ABNA bank", "Kas" en eventueel "Memoriaal" er uit.
De boekingen in het dagboek "Verkoop" gaan over naar het nieuwe jaar omdat die nog niet zijn voldaan.

mvg,
 

Bijlagen

  • boekingen-test.xlsb.xlsx
    19 KB · Weergaven: 30
Laatst bewerkt door een moderator:
Klik op de zwarte knop met gele tekst die op de cellen E1:F1 staat en zie dat ze eruit zijn.
 

Bijlagen

  • boekingen-test.xlsb
    21,7 KB · Weergaven: 40
Beste HSV,

Het lukt me toch niet. Natuurlijk heb ik bepaalde code niet juist, of jouw code op een verkeerde plaats gezet.
Wil je de totale code eens bekijken?

De macro struikelt op de regel "With Cells(1).CurrentRegion"

Code: 
Sub BestandOpslaan()
'Huidig bestand opslaan
Dim ws As Worksheet
Dim ps As String

'Huidig bestand opslaan als xlsm
Blad11.Select
ps = InputBox("Huidige bestand wordt beveiligd opgeslagen. Voer aub een wachtwoord in", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=ps
Next ws
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Range("J2") & "\" & Range("F1") & "\" & Range("J3") & "-" & Range("F1")

'Bestand opslaan onder een nieuw boekjaar
ActiveWorkbook.SaveAs Range("J2") & "\" & Range("J4") & "\" & Range("J3") & "-" & Range("J4")
ActiveSheet.Unprotect

'Kalender verplaatsen en aanpassen voor nieuwe jaar
Blad8.Select
Range("G5:J369").ClearContents
hsv
End Sub

'Tabel Boekingen filteren en rijen verwijderen
Sub hsv()
Blad5.Select
Application.DisplayAlerts = False
With Cells(1).CurrentRegion
  .AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
  .Offset(1).Delete
  .AutoFilter
End With
End Sub
 
Misschien is het beter om te reageren of het bestand wat ik plaatste werkt of niet.
 
Test dit maar eens.
Het rode gedeelte ook zo overnemen.

Code: 
[COLOR=#ff0000]Option Explicit[/COLOR]
[COLOR=#ff0000]Dim ps As String[/COLOR]

Sub BestandOpslaan()
'Huidig bestand opslaan
Dim ws As Worksheet





'Huidig bestand opslaan als xlsm
With Blad11
ps = InputBox("Huidige bestand wordt beveiligd opgeslagen. Voer aub een wachtwoord in", vbOKCancel)
For Each ws In sheets
ws.Protect ps
Next ws


thisWorkbook.SaveAs .Range("J2") & "\" & .Range("F1") & "\" & .Range("J3") & "-" & .Range("F1") ,52


'Bestand opslaan onder een nieuw boekjaar
thisWorkbook.SaveAs .Range("J2") & "\" & .Range("J4") & "\" & .Range("J3") & "-" & .Range("J4") , 52
 .Unprotect


'Kalender verplaatsen en aanpassen voor nieuwe jaar
Blad8.Range("G5:J369").ClearContents
hsv
end with
End Sub


'Tabel Boekingen filteren en rijen verwijderen



Sub hsv()
With Blad5
  .Unprotect ps
Application.DisplayAlerts = False
     With .Cells(1).CurrentRegion
        .AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
        .Offset(1).Delete
        .AutoFilter
    End With
  .Protect ps
 end with
End Sub

Of je doet het zo; filteren in alle bladen mogelijk.

Code: 
[COLOR=#FF0000]Option Explicit[/COLOR]
[COLOR=#FF0000]Dim ps As String[/COLOR]

Sub BestandOpslaan()
'Huidig bestand opslaan
Dim ws As Worksheet





'Huidig bestand opslaan als xlsm
With Blad11
ps = InputBox("Huidige bestand wordt beveiligd opgeslagen. Voer aub een wachtwoord in", vbOKCancel)
For Each ws In sheets
sh.Protect ps, , , , true, , , , , , , , , , true
Next ws


thisWorkbook.SaveAs .Range("J2") & "\" & .Range("F1") & "\" & .Range("J3") & "-" & .Range("F1") ,52


'Bestand opslaan onder een nieuw boekjaar
thisWorkbook.SaveAs .Range("J2") & "\" & .Range("J4") & "\" & .Range("J3") & "-" & .Range("J4") , 52
 .Unprotect


'Kalender verplaatsen en aanpassen voor nieuwe jaar
Blad8.Range("G5:J369").ClearContents
hsv
end with
End Sub



Sub hsv()
Application.DisplayAlerts = False
With Blad1.Cells(1).CurrentRegion
  .AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
  .Offset(1).Delete
  .AutoFilter
End With
End Sub
 
Beste HSV,

Dank voor je inzet.
De macro werkt naar wens.
Bedankt!

mvg,
 
Laatst bewerkt door een moderator:
Beste HSV,

Helaas werkt het laatste deel van de macro niet. Ik hoop dat ik niet te lastig ben.
De boekingen worden niet verwijderd, maar de macro opent blad 7 van het werkblad.

Code: 
Sub hsv()
Application.DisplayAlerts = False
With Blad1.Cells(1).CurrentRegion
  .AutoFilter 7, Array("ABNA Bank", "Kas", "Memoriaal"), 7
  .Offset(1).Delete
  .AutoFilter
End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan