Vraag : Vind laatste rij en ga dan uit MAAR Gebruikend geen USEDRANGE

Ik heb een gebied van werkboek uitblinken dat altijd bij A1 begint: D??.  namelijk begint het met Cel A1, uitbreidt zich tot D maar de rijaantallen kunnen veranderen.  Er is een totaal in de kolom van D, maar ik moet van dit gebied uitgaan.  I de cijfers ik bij cellen D9 kan beginnen, doen een Eind (xlDown) en toen omhoog.  Maar hoe te vertel ik de code om van de laatste rij uit te gaan?  Dit gamma A1: D?? dyanmcially mijn genoemd gamma zal worden.  Het aantal rijen verandert elke month.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Public SubCountryRange ()
'Begin bij A1: D?? en toen omhoog één rij
Schemerige intLastRow als Geheel, rngRow als Waaier
Schemerige rngAddress als Waaier, rngStart

    Waaier („D9“). Selecteer
    Selection.End (xlDown). Selecteer
   
    Waaier („D31“). Selecteer


Plaats rngStart = Waaier („D9“)
    Met rngStart.Select
        Selection.End (xlDown). Selecteer
    Eind met
    
Debug.Print

Sub van het eind

Antwoord : Vind laatste rij en ga dan uit MAAR Gebruikend geen USEDRANGE

schemerige rng als waaier

reeks rng=range (cellen (9, „D“), cellen (rows.count, „D“) .end (xlup) .offset (- 1.0))

het zou moeten doen
Andere oplossingen  
 
programming4us programming4us