Leeg is niet leeg

[snb]

Probeer eens te begrijpen wat code doet

Beschrijf eens in gewoon Nederlands:

sheets("dagomzetten").Cells(Rows.Count, 2).End(xlUp).Offset(1)

Dan weet je daarna de oplossing.

Gegroet van een oude docent.

 

[Oude leerling]

Ik denk dat ik het wel weet. Het betekend:

Blad "Dagomzetten" , cellen in rij 2 , vanaf einde omhoog naar laatste gevulde cel , dan 1 naar beneden.

Het rare is snb , dat het wel goed werkt in de laatste meegestuurde bijlage , tag 33 , maar niet in m'n hoofdprogramma. Een Exel 97-2003 werkblad .xls bestand
Daar komt het niet bovenaan maar helemaal onderaan , aansluitend aan de totaalformule.
Ik snap het niet meer. dit word te ingewikkeld voor mij

 

[snb]

Kijk

1- in werkblad dagomzetten ' sheets("dagomzetten")
2- vanaf de laatste cel in kolom 2 (vertikaal dus) ' cells(rows.count,2)
3- naar 'boven' tot de eerste gevulde cel ' end(xlup)
4- en vanaf daar 1 cel naar beneden ' offset(1)

Het enige dat je wil/hoeft te wijzigen is de tweede regel en de code die daarbij hoort.

 

[Oude leerling]

Ik heb dit gedaan.

sheets("dagomzetten").Range("B20").End(xlUp).Offset(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)

maar in het hoofdprogramma werkt het niet. De gegevens worden dan helemaal nergens neergezet.
Het werkt wel in die van tag 33

Het zal wel niet aan de code liggen denk ik , maar waar dan wel aan?

snb , ik stop er even mee want ik word er hoorndol van .
Jij en het hele forum bedankt voor de genomen moeite en hele fijne Paasdagen gewenst.

Jaap

 

[snb]

Je kunt het effekt van de code altijd testen met

msgbox sheets("dagomzetten").Range("B20").End(xlUp).Offset(1).address

 

[Oude leerling]

snb,

Ik wil het toch even melden.
Soms is het wel eens goed wat afstand te nemen van een probleem en het een tijdje te laten rusten.

Jouw adviezen en codes waren prima en functioneren nu ook in het hoofdprogramma.
Ik had ze verkeerd ingepast .
Nogmaals mijn dank , ik heb van deze sessie heel wat opgestoken.
Ik zal de topic als opgelost zetten
Vriendelijke groet, Jaap :thumb::thumb:

 

[snb]

Dat heet in vakjargon 'latent leren'.