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
385
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
Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!1342366Näetkö feminismin uhkana
Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?1911125Tykkäätkö halaamisesta?
Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo1041001Hinduilu on suurta eksytystä
tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa388922Malmin tapaus on järkyttävä
Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi296844- 64827
- 53821
- 46799
- 84783
- 51723