Listplockning

Listplockning

I detta tips demonstreras hur vi kan plocka poster från ett arbetsblad och automatiskt få dessa överförda till ett annat arbetsblad.

I arbetsbladet "Lista" finns följande uppställning:

Sub Plocka_Poster()
'© 2002 Alla rättigheter XL-Dennis
Dim vaIndata As Variant
Dim wsKalla As Worksheet, wsMal As Worksheet
Dim rnKalla As Range, rnMal As Range, rnData As Range
Dim lnAktivRad As Long, lnNastarad As Long

Set wsKalla = ThisWorkbook.Worksheets("Lista")
Set wsMal = ThisWorkbook.Worksheets("Sammanställning")
Set rnKalla = wsKalla.Range("A2", Range("C65536").End(xlUp))

'Kontroll att aktiv cell finns inom listområdet
If Intersect(ActiveCell, rnKalla) Is Nothing Then
                MsgBox "Du måste markera en post i lagerlistan.", _
                vbInformation, "För din information"
                Exit Sub
End If

'Hämtar in den aktiva cellens radnummer
lnAktivRad = ActiveCell.Row
Set rnData = wsKalla.Range("A" & lnAktivRad & ":C" & lnAktivRad)

'Tilldelar variant-matrisen postens värden
vaIndata = rnData.Value

'Identifierar nästa tomma rad i mottagningsområdet
lnNastarad = wsMal.Range("B65536").End(xlUp).Row + 1

'Överför önskad data
wsMal.Range("B" & lnNastarad & ":D" & lnNastarad) = vaIndata
End Sub

När ovanstående procedur har körts har en önskad post överförts till sammanställningen i arbetsbladet "Sammanställning":