Alle gevulde cellen selecteren en omzetten naar waarden

[toverkamp]

Ik heb ondertussen al een aardig groot bestand gemaakt in excel. Ik ben nu bezig om het allemaal wat kleiner te maken.
Ik heb een werkblad "reactietijden" daarin staan allerlei formules en gegevens. Een deel van deze gegevens zijn nog niet compleet en moeten nog worden aangevuld. Maar een groot gedeelte is al helemaal compleet en staan er als het ware nog als archief tussen. Om gegevens later terug te kijken. Deze gegevens kan ik handmatig wel instellen als waarden via kopieren > plakken speciaal > waarden. Maar ik zou dit graat automatisch zien d.m.v. een vba-code/macro. Dus dat alle gevulde cellen worden geselecteerd en omgezet worden naar waarden.

Ik heb een voorbeeldbestandje bijgevoegd, let niet op de gegevens want die slaan nergens op.

 

[Wigi]

Ik heb ondertussen al een aardig groot bestand gemaakt in excel. Ik ben nu bezig om het allemaal wat kleiner te maken.
Ik heb een werkblad "reactietijden" daarin staan allerlei formules en gegevens. Een deel van deze gegevens zijn nog niet compleet en moeten nog worden aangevuld. Maar een groot gedeelte is al helemaal compleet en staan er als het ware nog als archief tussen. Om gegevens later terug te kijken. Deze gegevens kan ik handmatig wel instellen als waarden via kopieren > plakken speciaal > waarden. Maar ik zou dit graat automatisch zien d.m.v. een vba-code/macro. Dus dat alle gevulde cellen worden geselecteerd en omgezet worden naar waarden.

Ik heb een voorbeeldbestandje bijgevoegd, let niet op de gegevens want die slaan nergens op.

Je weet toch dat je voor "nieuwe" code de macro recorder kan gebruiken, en nadien die gegenereerde code opkuisen.

 

[toverkamp]

het lukt me ook wel met de hand:

Sub Macro1()
    Range("A2:E4").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Maar ik kom dan een probleem tegen bij Rang("A2:E4").Select, want dit moeten alleen de cellen zijn die helemaal gevuld zijn.

 

[Wigi]

Doe eens F5, dan speciaal: daar heb je een aantal mogelijkheden. Neem de code op en kuis ze op (wat je niet nodig hebt delete je).

 

[toverkamp]

Wigi, bedankt voor die handige functie! Maar ik kon niet vinden wat ik zoch, het probleem is dat of de hele kolom geselecteerd word, of àlle gevulde cellen worden geselecteerd.

Ik heb misschien wat anders bedacht, maar ik weet niet of iemand daar een juiste code van maken

Ik heb het volgende gedaan:
Met formule =AANTAL(E2:E30)+1 worden het aantal gevulde cellen geteld. Dit is in het voorbeeldbestand 5.Het antwoord 5 staat in cel H13.
Nu zou je dus misschien een code kunnen maken:
range("A2:E(value."H13")").select
die dit gebied selecteerd. Als dat lukt, dan kom ik er waarschijnlijk zelf wel verder uit. Zie bijlage.

 

[Wigi]

range("A2:E" & Range("H13"))

geen Select gebruiken als het niet hoeft!

 

[toverkamp]

Wigi,

het is me gelukt, maar het moest wel met .select

Sub Macro4()
    Range("A2:E" & Range("H13")).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Thnx:thumb:

 

[Wigi]

Wigi,

het is me gelukt, maar het moest wel met .select

Neen, het moet niet met Select:

Sub Macro4()
    Range("A2:E" & Range("H13")).Copy
    Range("A2:E" & Range("H13")).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Wigi

 

[toverkamp]

Hallo wigi,

ik heb de macro in m'n eigen bestand toegepast. En heb hem achter een commandbutton gezet de storing wordt opgelost. De macro staat achter de volgende commandbutton:

Private Sub storinggereedopslaan_Click()
    storinggereed_module
    RemoveOnCondition "Openstaande storingen", storinggereedordernummer.Text, "r" 
    FillListboxes
[B]    Run "reactietijd_omzetten_waarde"[/B]
End Sub

De macro ziet er nu als volgt uit:

Sub reactietijd_omzetten_waarde()
    Range("B5:BD" & Range("BL2")).Copy
    Range("B5:BD" & Range("BL2")).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Als ik dan een storing gereed meld dan worden een aantal gegevens weggeschreven in het werkblad "reactietijden". Cel BL2 telt het aantal rijen wat geselecteerd moet worden.

Ik krijg echter een foutmelding als ik een storing gereed meldt. Zie bijlage.

 

[Wigi]

Je moet de referentie naar werkbladen ook correct maken.

 

[toverkamp]

ik was er al achter:

Sheets("reactietijden").Select
Range("B5:BD" & Range("BL2")).Copy
Range("B5:BD" & Range("BL2")).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A1").Select

is nu de juiste code.

 

[Wigi]

ik was er al achter:

Denk dan in het vervolg aub eerst wat langer na voor je iets post.

 

[Wigi]

Vermijd selecteren! Het laat je code langer duren en je scherm flikkeren (al is dat wel te verhelpen):

With Sheets("reactietijden").Range("B5:BD" & Sheets("reactietijden").Range("BL2"))
.Copy
.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

Wigi