simpele vraag

[Sjaakz]

Heren/dames,

Hoe kom ik dmv een code aan het begin van de regel (kolom A).

Met de recorder neemt hij dit (home) niet op

Alvast bedankt weer voor het snelle antwoord

Groet SjaakZ

 

[OctaFish]

Met zoiets bijvoorbeeld. Maar er zijn tig meer oplossingen .

     Cells(ActiveCell.Row, 1).Select

 

[gast0660]

Hoi,
Zoiets?

Sub Dotchie()
Range("A1").Select
End Sub

Greetz

 

[Sjaakz]

Heren bedankt

Heren bedankt voor het nemen van de moeite :thumb::thumb::thumb::thumb:

De code van Octafish werkt voor mij

Bij dotchijack selecteert hij de cel a1 en dat was niet de bedoeling


Maar dat ligt waarschijnlijk meer aan mij denk ik waarschijnlijk was ik weer niet duidelijk genoeg

Wat is dit forum toch mooi!

Nogmaals bedankt
Groet SjaakZ

 

[OctaFish]

Je was duidelijk genoeg:

Hoe kom ik dmv een code aan het begin van de regel (kolom A).

Je zei nergens dat je naar A1 wilde . Kwestie van te snel lezen, denk ik

 

[Sjaakz]

het is moeilijk.......

Hoi Octafish,

Het is voor mij moeilijk om de vraag zo simpel mogelijk te formuleren heb ik wel gemerkt in het verleden.

Het gevolg is dat je wel eens op het verkeerde been wordt gezet of mensen gaan oprecht alles uit de kast halen om een oplossing te bieden.

Vaak krijg je dan een te uitgebreid antwoord maar meestal word ik in de goede richting gestuurd en hier filter ik dan weer mijn deel uit,

ALS ik begrijp waar het over gaat natuurlijk.


Mijn les is nu, dat ik stap voor stap mijn vragen stel.


Zelf heb ik veel met lotus 123 macro's gemaakt en dat ging prima met een dik boek met codes en voorbeelden erbij.
VBA is toch een niveau hoger en goed simpel boek heb ik nog niet kunnen vinden.:shocked:

De help functie werkt voor mij met beperkte basis kennis niet goed.

Maar dit forum is de oplossing voor mij. Altijd heel snel antwoord.

Groet SjaakZ

 

[gast0660]

Hoi Sjaakz,
Hier op dit forum kan je een goede cursus vinden
Klik op forum daarna tips en handleidingen
Greetz

 

[snb]

Maar een beetje cursus hier kan misschien ook geen kwaad.
Hier alvast een aantal codes om wat jij wil in VBA te realiseren.
Voert voor de meeste boeken natuurlijk te ver.

Ik nodig graag anderen uit dit aan te vullen/ te verbeteren etc.

Sub M_snb()
   ActiveCell.End(xlToLeft).Activate
   ActiveCell.End(xlToLeft).Select
   Application.Goto ActiveCell.End(xlToLeft)
   
' andere schrijfwijze
   
   ActiveCell.End(-4159).Activate
   ActiveCell.End(-4159).Select
   Application.Goto ActiveCell.End(-4159)
   
   Cells(ActiveCell.Row, 1).Activate
   Cells(ActiveCell.Row, 1).Select
   Application.Goto Cells(ActiveCell.Row, 1)
   
   ActiveCell.Offset(, -ActiveCell.Column + 1).Activate
   ActiveCell.Offset(, -ActiveCell.Column + 1).Select
   Application.Goto ActiveCell.Offset(, -ActiveCell.Column + 1)
   
' andere schrijfwijze van de laatste 3

   With ActiveCell
       .Offset(, -.Column + 1).Activate
   End With
   With ActiveCell
       .Offset(, -.Column + 1).Select
   End With
   With ActiveCell
       Application.Goto .Offset(, -.Column + 1)
   End With

   Intersect(Columns(1), ActiveCell.EntireRow).Activate
   Intersect(Columns(1), ActiveCell.EntireRow).Select
   Application.Goto Intersect(Columns(1), ActiveCell.EntireRow)

End Sub

PS. het is wel prettig als je de titel van deze draad even aanpast en in overeenstemming met de inhoud brengt.

 

[E v R]

Ik zou onderstaande er nog aan toevoegen, lijkt mij overigens ook degene welke het meest overeenkomt met de Shortcut "Home"

Cells(ActiveCell.Row, Cells.SpecialCells(xlCellTypeVisible).Column).Activate