Fairwinds! Hjälp med att fylla celler i en filtrerad lista

[Loranga]

Hej!

Jag kan med hjälp av en userform styra vilka värden jag vill ha med i en filtrerad lista.

<code>ActiveSheet.Range("$A$6:$S$1000").AutoFilter Field:=7, Criteria1:=Array(Verifikat1, _
Verifikat2, Verifikat3), Operator:=xlFilterValues</code>

Vad jag vill åstakomma nu är att i Q kolumnen för varje filtrerad rad som då kommer fram (3st) ska anta ett värde från en textbox (txtFaktura) som jag anger i min userform.

Jag har varit föräldraledig en längre tid och är därför ringrostig dels vad gäller excel och dels på att förklara mig antar jag...

 

[Loranga]

Hej igen.

Jag "löste" det med hjälp av
<code>Set rngSelect = Range("Q6:Q55")
For Each Cell In rngSelect.SpecialCells(xlCellTypeVisible)
Cell.Value = txtFaktura.Value
Next Cell</code>
men om det är rätt sätt att göra det på vet jag inte.

 

[Loranga]

hmm nu var jag nog lite snabb med att ropa hej.