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.
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.
Vastaukset 3
Vanhimmat
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
Molemmille.