cellen naar links verplaatsen

[don42]

hallo allemaal,

wie weet een oplossing voor het volgende
ik zoek de eerste lege cel in een kolom met
Application.Goto Sheets("Invoer Geldteller").Cells(Rows.Count, 3).End(xlUp).Offset(1)
dat werkt prima
maar kan het dan ook om vanuit die positie een aantal cellen naar links te gaan
bijvoorbeeld van G28 naar B28

hoop dat zoiets mogelijk is

Don

 

[wampier]

De range opslaan in plaats van application.goto gebruiken en vervolgens offset gebruiken.

 

[don42]

zou je dat misschien iets ruimer kunnen uitleggen, als beginner is dit even een stapje te ver
na heel wat zoeken was application.Goto de oplossing omdat ik verwijs naar een ander tabblad
moet ik dat nu vervangen voor Range bedoel je ?

 

[Cobbe]

Eerst het adres van de eerste lege cel in een variabele zetten bv =cel
dan dit adres gebruiken om de rest te doen:

Sub cobbe()
 cel = Sheets("Invoer Geldteller").Cells(Rows.Count, 3).End(xlUp).Offset(1).Address
  Application.Goto Range(cel).Offset(2,5)
End Sub

 

[don42]

En maar weer eens bedankt
supper