*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: 1 2 3 [4]   Omlaag

Auteur Topic: Montagnard Budget 2021  (gelezen 12591 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #45 Gepost op: 30 oktober 2021, 10:41:33 »
@Albert : is gelukt , gewoon de tabvolgorde veranderd ! ik wist niet dat deze mogelijkheid bestond...
nog een fijn weekend !
Mvg,
Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #46 Gepost op: 30 oktober 2021, 11:58:07 »
 :thumbsup: \o/
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #47 Gepost op: 23 december 2021, 14:56:50 »
Dag,
is een tijdje geleden i.v.m. "Budget" maar ik heb nog een vraagje : hoe sorteer ik de gegevens op het werkblad "Data" ?
eerst op de categorieën (op de kolomhoofden ) en dan op de rubrieken (de data sorteren per kolom) ?
ik krijg de raarste uitslagen als ik ga via de tab "sorteren"  :-[
en graag HOE ik het moet aanpakken , er kunnen nog zaken bijkomen of wegvallen in de toekomst , dan moet ik opnieuw kunnen "sorteren".
Mvg,
Arnold.

update : de hoofdings (kolomhoofden) moeten NIET gesorteerd worden !!! enkel graag de rubrieken per kolom  :)

Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #48 Gepost op: 23 december 2021, 16:01:15 »
probeer het eens zo, wel even testen op een copy-bestand.
Code: [Selecteer]
Sub Sorteer()
With Sheets("Data")
    i = ActiveSheet.ListObjects("tblListings").ListRows.Count + 1
    Sheets("Data").ListObjects("tblListings").Unlist

    Range("A1:A" & i).Sort Range("A1"), 1, , , , , , 1
    Range("b1:b" & i).Sort Range("b1"), 1, , , , , , 1
    Range("c1:c" & i).Sort Range("c1"), 1, , , , , , 1
    Range("d1:d" & i).Sort Range("d1"), 1, , , , , , 1
    Range("e1:e" & i).Sort Range("e1"), 1, , , , , , 1
    Range("f1:f" & i).Sort Range("f1"), 1, , , , , , 1
    Range("g1:g" & i).Sort Range("g1"), 1, , , , , , 1
    Range("h1:h" & i).Sort Range("h1"), 1, , , , , , 1
    Range("i1:i" & i).Sort Range("i1"), 1, , , , , , 1
    Range("j1:j" & i).Sort Range("j1"), 1, , , , , , 1
    Range("k1:k" & i).Sort Range("k1"), 1, , , , , , 1

 
    .Range("A1:K" & i).Select
    Application.CutCopyMode = False
    .ListObjects.Add(xlSrcRange, Range("$A$1:$K" & i), , xlYes).Name = _
        "tblListings"
End With
End Sub
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #49 Gepost op: 23 december 2021, 16:59:08 »
Dankuwel Albert , werkt perfect !
Mvg,
Arnold.
Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #50 Gepost op: 23 december 2021, 17:13:03 »
Beter.
Code: [Selecteer]
Sub Sorteer()
With Sheets("Data")
    i = ActiveSheet.ListObjects("tblListings").ListRows.Count + 1
    Sheets("Data").ListObjects("tblListings").Unlist

    Range("A1:A" & i).Sort Range("A1"), 1, , , , , , 1
    Range("b1:b" & i).Sort Range("b1"), 1, , , , , , 1
    Range("c1:c" & i).Sort Range("c1"), 1, , , , , , 1
    Range("d1:d" & i).Sort Range("d1"), 1, , , , , , 1
    Range("e1:e" & i).Sort Range("e1"), 1, , , , , , 1
    Range("f1:f" & i).Sort Range("f1"), 1, , , , , , 1
    Range("g1:g" & i).Sort Range("g1"), 1, , , , , , 1
    Range("h1:h" & i).Sort Range("h1"), 1, , , , , , 1
    Range("i1:i" & i).Sort Range("i1"), 1, , , , , , 1
    Range("j1:j" & i).Sort Range("j1"), 1, , , , , , 1
    Range("k1:k" & i).Sort Range("k1"), 1, , , , , , 1

   .ListObjects.Add(xlSrcRange, Range("$A$1:$K" & i), , xlYes).Name = "tblListings"
End With
End Sub
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #51 Gepost op: 23 december 2021, 17:22:38 »
is aangepast , thanks !
Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #52 Gepost op: 23 december 2021, 17:27:37 »
In de eerste twee coderegels staat ook nog teveel.  :(
Kun je zelf wel zien.
Gelogd
Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #53 Gepost op: 23 december 2021, 17:33:04 »
Voor als de boekhouding heel veel kolommen nodig heeft. ;D ;D
Code: [Selecteer]
Sub Sorteer1()

With Sheets("Data")
    i = .ListObjects("tblListings").ListRows.Count + 1
    .ListObjects("tblListings").Unlist
    k = .UsedRange.Columns.Count
   
    For t = 1 To k
     .Range(Cells(1, t), Cells(i, t)).Sort .Cells(1, t), 1, , , , , , 1
    Next t
   
   .ListObjects.Add(xlSrcRange, Range("$A$1:$K" & i), , xlYes).Name = "tblListings"
   .ListObjects("tblListings").TableStyle = "TableStyleMedium2"
    Range("tblListings").Interior.Pattern = xlNone
End With   
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #54 Gepost op: 24 december 2021, 08:55:11 »
dankuwel ! nogmaals aangepast , werkt uitstekend !
Mvg,
Arnold.
Gelogd
Pagina's: 1 2 3 [4]   Omhoog
 


www.combell.com