sorteren dmv een knop

[alphen]

Bekijk bijlage registratie v 8-2-2011.xlsHallo,

Zie bijlagen. In kollom A t/m F wordt info in gekopieerd. Kolom H en T zijn voorzien van formules en worden straks ook beveiligd.

Het geen ik zoek is een knop boven aan de sheet welke alle info sorteert op de tijd en datum in kolom I en J

Tevens zou het zo moeten zijn dat als er info vermeld wordt in kolom K dat deze de info overschrijft in kolom I. Het zelfde geld voor info in kolom L en deze moet dan info overschrijven in kolom J

Hoe kan ik dit maken.

Gr Henjo

 

[popipipo]

Kun je hier verder mee?

 

[HSV]

Of:

Sub sorteren()
 Dim c As Variant, cl As Variant
 On Error Resume Next
 With Sheets("Uitgaaande truck registratie")
  For Each c In .Range("K3:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
  If c > 0 Then
  .Range("I" & c.Row) = c
       End If
    Next c
 For Each cl In .Range("L3:L" & .Cells(Rows.Count, 12).End(xlUp).Row)
        If cl > 0 Then
   .Range("J" & cl.Row) = cl
           End If
         Next cl
     .Range("A3:L100").Sort Key1:=[i2], Key2:=[j2]
   End With
End Sub

 

[alphen]

Beste Popippipo ik krijg een fout melding als ik op de knop druk. Tevens heb ik het idee dat er gesorteerd word op kolom G . Dit is niet de juiste infoo

Gr henjo

 

[alphen]

Beste HSV

Ik ben niet bekend met dergelijke codes. zou je deze voor mij in de sheet willen zetten.

BVD

Gr Henjo

 

[Warme bakkertje]

Druk op ALT-F11 >> Invoegen >> Module en plak daar de code. Ga terug naar je werkblad en dan naar Beeld >> Werkbalken >> Formulieren. Selecteer de knop en teken deze dan op je werkblad. Verbind nu de knop aan de zojuist geplakte code.

 

[alphen]

Allen,

Ik heb het werkend. Waarvoor mijn dank

Maar heb nu nog 2 nieuwe vragen.

Als er gesorteerd is zijn de formules weg uit de verplaatste cellen. Dit zou niet moeten mogen
Ik wil het werkblad beveilgen. Echter als ik dit doe kan ik niet meer via de knop sorteren

graag u hulp.

Ik ben er bijna

Gr Henjo

 

[HSV]

Allen,

Als er gesorteerd is zijn de formules weg uit de verplaatste cellen. Dit zou niet moeten mogen.

Gr Henjo

Het is het één of het ander.

Je plaatst een nieuwe waarde die de oude waarde moet overschrijven (is dus een waarde die de =VERT.ZOEKEN natuurlijk niet vindt).

 

[alphen]

oke helder

Hoe kan ik het werkblad beveilgen zodat er nog wel gesorteerd kan worden

Gr Henjo

 

[Warme bakkertje]

Onder de regel met With ... zet je .Unprotect
Boven de regel End With zet je .Protect

 

[alphen]

beste Rudi

bedeol je dit?

Gr ehnjo

Sub sorteren()
Dim c As Variant, cl As Variant
On Error Resume Next
With Sheets("Uitgaaande truck registratie")
Unprotect
For Each c In .Range("K3:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
If c > 0 Then
.Range("I" & c.Row) = c
End If
Next c
For Each cl In .Range("L3:L" & .Cells(Rows.Count, 12).End(xlUp).Row)
If cl > 0 Then
.Range("J" & cl.Row) = cl
End If
Next cl
.Range("A3:L100").Sort Key1:=[i2], Key2:=[j2]
Protect
End With
End Sub

 

[oeldere]

Beste Alphen,

je kunt je code het beste tussen tags zetten.

dit doe je door de code te copieren en dan vervolgens te kiezen voor het # boven in de taakbalk. Er verschijnt dan de tekst

.

[CODE]Sub sorteren()
Dim c As Variant, cl As Variant
On Error Resume Next
With Sheets("Uitgaaande truck registratie")
[B][COLOR="darkred"][COLOR="darkred"][B].[/B][/COLOR]Unprotect[/COLOR][/B]
For Each c In .Range("K3:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
If c > 0 Then
.Range("I" & c.Row) = c
End If
Next c
For Each cl In .Range("L3:L" & .Cells(Rows.Count, 12).End(xlUp).Row)
If cl > 0 Then
.Range("J" & cl.Row) = cl
End If
Next cl
.Range("A3:L100").Sort Key1:=[i2], Key2:=[j2]
[COLOR="darkred"][B][COLOR="darkred"].[/COLOR][/B]Protect[/COLOR]
End With
End Sub

Ik kan je onvoldoende met VBA helpen, maar er is aangegeven dat je .protect moet gebuiken. ik heb dit injouw code aangepast, met rood.

 

[Warme bakkertje]

Zoals Oeldere het al mooi aangaf:thumb: moet je vooral letten het puntje ' . ' voor het woord.