• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Op een leeg tabblad toch lijnen en kolommen in gebruik?

Status
Niet open voor verdere reacties.
E

EfBe

Gebruiker
Lid geworden
15 dec 2008
Berichten
43
Beste forumleden,
Zowel in excel omgeving als in vba heb ik een niet te verklaren verschijnsel:
'F5' & 'speciaal laatste cel', gaat naar de cel 'O 74'
Vervelend probleem, zowel regels als kolommen verwijdert die je niet verwacht.
Heb alles geprobeerd, alle gegevens verwijder, manueel lijnen en kolommen verwijderd. Het resultaat is een volledig leeg werkblad. Tocht blijft de laatste kolom "O" en de laatste lijn "74"
Ik heb hier in bijlage, zowel XLSX als XLSM.
Code: 
    Kolom = .UsedRange.Columns.Count 'Resultaat 15
    K = Split(Cells(1, Kolom).Address, "$")(1) 'Resultaat "O"
    R = .UsedRange.Rows.Count 'Resultaat 74
Hopelijk heeft iemand hier een verklaring voor dit fenomeen.
 

Bijlagen

  • Test HelpMij.xlsx
    12,7 KB · Weergaven: 25
  • Test HelpMij.xlsm
    12,7 KB · Weergaven: 26
Met een klein stukje code zijn we niet veel, ook is niet te begrijpen wat die code moet doen
 
Die .UsedRange zegt al dat er meer code in staat.
 
Code: 
Sub m_snb()
    MsgBox UsedRange.Address
    Cells.clear
    MsgBox UsedRange.Address
End Sub
 
Laatst bewerkt:
Beste helpers
De bedoeling is om kolommen te verwijderen tussen kolom 4 en de 3 laatste
Code: 
Sub Helpmij()
With ActiveSheet
    Kolom = .UsedRange.Columns.Count - 3
    K = Split(Cells(1, Kolom).Address, "$")(1)
    EindeRij = .UsedRange.Rows.Count
    .Columns("D:" & K).EntireColumn.Delete
End With
End Sub
Enkel kolommen A tot C bleven over en dan ben ik beginnen zoeken vanwaar het probleem komt. Rijen verwijderen, kolommen verwijderen tot een leeg tabblad.
Deze code werkt perfect alleen niet met de bestanden die ik als bijlage stuurde.

@ snb Heb dit zonder vba gedaan. Met uw code vóór 'Clear' adres=$A$1:$O$74 na 'Clear' adres=$A$1:$A$73. En dat blijft zo
Met een ander bestand werkt uw code en die van mij perfect.
 
Voeg er columns.delete aan toe.
 
Bedankt voor uw reactie,
Dat klopt, dan is dat tabblad helemaal leeg, maar dat was niet de bedoeling.

Dit wil ik graag als resultaat:
Als de laatste kolom in gebruik kolom 9 is, en ik wil kolom 4 tot 6 verwijderen dan zijn alle kolommen weg vanaf kolom 4
Code: 
Sub Helpmij()
With ActiveSheet
    Kolom = .UsedRange.Columns.Count - 3 'de laatste 3 moeten blijven 
    K = Split(Cells(1, Kolom).Address, "$")(1)
    .Columns("D:" & K).EntireColumn.Delete 'de eerste 3 moeten blijven
End With
End Sub
Deze code zit nu in mijn bestand in bijlage
 

Bijlagen

  • Test HelpMij.xlsm
    19,7 KB · Weergaven: 21
moeilijker als dit kan het toch niet zijn?
 

Bijlagen

  • Test Help efbe.xlsm
    26,1 KB · Weergaven: 17
Code: 
Sub VenA()
  Columns(4).Resize(, Cells(1, Columns.Count).End(xlToLeft).Column - 6).Delete
End Sub
 
@emields
Bedankt voor uw oplossing
Code: 
With ActiveSheet
     K = .UsedRange.Columns.Count - 3
     .Range(Cells(1, 4), .Cells(1, K)).EntireColumn.Delete
End With

@ VenA
Eveneens bedankt voor uw oplossing
Code: 
With ActiveSheet
    K = .Cells(, .Columns.Count).End(xlToLeft).Column - 6
    .Columns(4).Resize(1, K).Delete
End With
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan