Hei!
Löydän makrolla sarakkeen viimeisen solun jossa on tietoa, mutta miten löydän rivin viimeisen solun jossa on tietoa.
Elikä jos mulla on ajat rivillä 10 ja arvot rivillä 11 ja haluaisin aina uudet arvo jatkoksi samalle riville.
Rivin viimeinen
kavi
3
387
Vastaukset
- -Pasi-
Alla oleva koodi etsii viimeisen käytössä olevan rivin sarakkeen "A" perusteella ja sen jälkeen tältä riviltä ensimmäisen vapaan solun:
Sub VapaaSolu()
Dim ViimeinenRivi As Integer, VapaaSarake As Integer
Application.ScreenUpdating = False
ViimeinenRivi = Range("A65536").End(xlUp).Row
Cells(ViimeinenRivi, 1).Activate
While ActiveCell.Value Empty
ActiveCell.Offset(0, 1).Activate
VapaaSarake = ActiveCell.Column
Wend
Application.ScreenUpdating = True
End Sub Sub Vika()
Range("A65536").End(xlUp).End(xlToRight).Select ' vika tietoa sisältävä rivillä
'Range("A65536").End(xlUp).End(xlToRight).Offset(0, 1).Select' eka tyhjä rivillä
End Sub- kavi
Molemmille.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2725079- 514027
Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii933579- 502699
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua461853- 191777
- 971650
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘971468- 711085
PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden1461063