Miten saadaan Textboxiin syötetty lukuarvo tallennettua soluihin A1:A10 siten, että lukuarvo tallentuu seuraavaan tyhjään soluun?
Esim.
Dim Temp As String Temp= WorksheetFunction.Substitute(TextBox1.Text,",",".") Range??????
Columns("A:A").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate ActiveCell.FormulaR1C1 = Temp
Tai no toi siis ottaa koko A -sarakkeen, ei pääty A10:iin. Mutta säätänet tarpeen mukaan.
Kiitos, täytyy kokeilla
Aihe on jo aika vanha, joten et voi enää vastata siihen.