Automatisch grafiek maken

[spaarie]

Kanonnen! Wat een lap...

Ik snap ook niet waarom je niet gewoon .UsedRange gebruikt...
Het enige wat er gebeurd is dat de cel in de juiste format wordt gezet, meer niet. Dus de bereiken die je wilt overslaan kun je ook gewoon Trimmen, daar gebeurt verder niks mee...
(tenzij het een datum/tijd ofzo is die niet in de juiste format staat)

 

[HJ25]

Hahahaha ja sorry

Maar ik moet dus gewoon de volgende code gebruiken? Klopt hij zo?

lRij = .UsedRange.Rows.Count
For Each cel In .UsedRange
If cel <> "" Then cel.Value = Trim(cel.Value)
Next

 

[spaarie]

Ja, alleen lRij = etc, is overbodig nu

 

[HJ25]

Ja het werkt! Helemaal super! Bedankt voor alle moeite spaarie!!

 

[HJ25]

Nog even een vraagje wat met het hiervoor opgeloste probleem te maken heeft:
Ik heb een macro gemaakt die de formule typt om te kijken op welke tijden deel A bezet is, alleen heb ik in deze macro aangegeven dat de formule t/m V20 moet komen. Kan dit ook zo geregeld worden zodat de formule alleen in H3:V20 komt te staan in de rijen waar in A3 t/m E20 iets staat?

    Range("H3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(AND(R2C>=RC2,R2C<=RC3),AND(R2C>=RC4,R2C<=RC5)),1,"""")"
    Range("H4").Select
    
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:V3"), Type:=xlFillDefault
    Range("H3:V3").Select
    Selection.AutoFill Destination:=Range("H3:V20"), Type:=xlFillDefault
    Range("H3:V20").Select
    ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=Blad1!R3C8:R20C22"

 

[spaarie]

Je moet zelf maar even kijken hoe je hem inpast in je module..

Sub Spaarie()
    For Each v In Sheets(2).Range("A2:E20")
        If v <> "" Then
        verschuiving = Sheets(2).Range("H:H").Column - v.Column
        v.Offset(, verschuiving).FormulaR1C1 = "=IF(OR(AND(R2C>=RC2,R2C<=RC3),AND(R2C>=RC4,R2C<=RC5)),1,"""")"
        End If
    Next
    Sheets(2).Range("H1:H20").AutoFill Range("H1:V20"), xlFillDefault
End Sub

 

[HJ25]

Bedankt, maar het wil nog niet echt lukken. Ik krijg allemaal foutmeldingen wanneer ik het deel dat ik er in heb staan vervang door jouw deel. Daarnaast krijg ik het niet voor elkaar om, wanneer ik op knop6 klik zodat alles verwijderd wordt en klaar is voor het volgende overzicht, dat de knoppen netjes ter hoogte van rij 21 komen te staan. Als laatste: ik krijg ook steeds allemaal foutmeldingen in de cellen wanneer excel automatisch de lege rijen weghaalt. Zou je hierbij kunnen helpen?

Ik kan helaas het bestand niet volledig plaatsen, omdat deze te groot is. Ik heb daarom alleen een bestandje met de tekst van de macro's die ik heb. Kan je hier iets mee?

 

[spaarie]

Heb je wel in mijn code 'Sheets(2)' vervangen voor je werkbladnaam dus bijv: Sheets("Data"), want ik weet niet op welke bladen het toegepast moet worden.
Eerlijk gezegd kan ik helemaal niks met je bestandje...

Kopieer anders de tabbladen waar het om gaat naar een nieuw Excel bestandje en sla het op (vervang eventueel gevoelige info) of load up naar www.mijnbestand.nl en plaats de link.

 

[HJ25]

Ik heb hem nu zoals ik hem tot nu toe heb. Bij deze de link naar het bestand:
http://www.mijnbestand.nl/Bestand-MEEHHAPUXZW7.xlsm