[VBA] Rijen selecteren in excel

Pagina: 1
Acties:
  • 649 views sinds 30-01-2008
  • Reageer

Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
Hoi mensen,

ik heb het volgende probleem:

Ik wil in excel een aantal rijen de nullen weghalen.
Echter is x steeds een variabel getal.
Om een cel te selecteren lukt me wel > VB: cells(x,12)
Maar dit lukt me echt niet
Met de helpfunctie word ik helaas ook niets wijzer.

In het volgende voorbeeld heb ik voor het gemak x als 12 gedefinieerd, maar hier krijg ik fout 1004

x = 12
Rows(5, x).Select
Selection.Sort Key1:=Range("D12"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal


Iemand een hint hoe ik dit het best kan doen? :?

Acties:
  • 0 Henk 'm!

  • gorgi_19
  • Registratie: Mei 2002
  • Laatst online: 12-08 22:23

gorgi_19

Kruimeltjes zijn weer op :9

Neem eens een makro op en kijk hoe de gegenereerde makro er uit ziet? :)

Digitaal onderwijsmateriaal, leermateriaal voor hbo


Acties:
  • 0 Henk 'm!

  • Tukk
  • Registratie: Januari 2002
  • Laatst online: 13:47

Tukk

De α-man met het ẞ-brein

Verwijderd schreef op donderdag 05 mei 2005 @ 11:33:
Hoi mensen,

ik heb het volgende probleem:

Ik wil in excel een aantal rijen de nullen weghalen.
Echter is x steeds een variabel getal.
Om een cel te selecteren lukt me wel > VB: cells(x,12)
Maar dit lukt me echt niet
Met de helpfunctie word ik helaas ook niets wijzer.

In het volgende voorbeeld heb ik voor het gemak x als 12 gedefinieerd, maar hier krijg ik fout 1004

x = 12
Rows(5, x).Select
Selection.Sort Key1:=Range("D12"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal


Iemand een hint hoe ik dit het best kan doen? :?
toon volledige bericht
Als mij iets niet lukt, of ik weet de commando's niet dan neem ik een macro op, waar ik het handmati g in doe. Daarna bekijk ik de code. Meestal kom je dan wel achter de oplossing.

edit:
^^ With Gorgi

[ Voor 3% gewijzigd door Tukk op 05-05-2005 11:36 ]

Q: How many geeks does it take to ruin a joke? A: You mean nerd, not geek. And not joke, but riddle. Proceed.


Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
Ja, dat het ik al gedaan, maar dan pakt hij de waarden en daar heb ik niet veel aan.
De ene keer is x 12, dan weer 16 enz.

Met de macro krijg ik het volgende:
Rows("5:12").Select

Acties:
  • 0 Henk 'm!

  • DipStick
  • Registratie: Juni 2001
  • Laatst online: 19:08

DipStick

HHmmm, nice ;)

en van waaruit wordt de waarde van x dan bepaald ?

Ik geloof niet in bijgeloof, dat brengt ongeluk
Vroeger was ik een twijfelaar. Ik ben daar nu niet meer zo zeker van.


Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
x wordt in een formule daarvoor bepaald.
Die formule is echter niet van belang voor de formule die ik nu nodig heb.
De x gaat wel goed en is ook variabel

Acties:
  • 0 Henk 'm!

Verwijderd

Sorry hoor, maar dit is gewoon simpel debuggen...

Geef 1 tip:

Rows("5:12").Select

Rows(5, x).Select

Zoek de verschillen. Lees de help

Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
beste King George,

ik heb het met aanhalingstekens geprobeerd, alleen de x zonder aanhalingstekens, allebei met aanhalingstekens, de komma vervangen door dubbel punt. Anyway, ik heb echt elke mogelijke manier die ik ken geprobeerd.
(5,x)
(5:x)
("5,x")
("5:x")
("5","x")
("5":"x")
("5,(x)")
("5",x)
("5,[x]")

Kom er niet uit, ook met help niet. Vandaar dat ik me tot jullie richt...

Edit:
Ben ff een half uurtje weg. Dus alvast sorry als ik niet snel genoeg reageer...

[ Voor 23% gewijzigd door Verwijderd op 05-05-2005 11:57 ]


Acties:
  • 0 Henk 'm!

Verwijderd

Rows("5:" & x).Select
Pagina: 1