Kopieeractie ten behoeve van doorzoekbare dropbox

[henrvanbeek]

Ik heb een logboek. Hierin hebben we nu alle codes voor assets ingezet. Alleen dit is voor sommige afdeling best een aantal (rond de 600) Dus ik wilde de dropbox doorzoekbaar maken.
Ik heb op de site https://www.structuurmakers.nl iets gevonden wat voor mij werkt. Het enigste wat ik nog hoef te doen is de floccodes op basis van de afdeling in een andere kolom te kopieren.

Dus op basis van de verandering van de dropbox voer ik de kopieeractie uit. Ik wilde eerst alleen testen met de verandering de kopieeractie uit te voeren.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then
    Sheets("FLOCS").Select
    ActiveWindow.SmallScroll Down:=-63
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("K4").Select
    ActiveSheet.Paste
    End If
End Sub

Alleen wat ik ook probeer ik blijf rond die selecteer actie een foutmelding krijgen. Ik snap niet wat ik fout doe..

Ik heb het bestand waarin ik loop te klooien bijgevoegd.

 

[AD1957]

Zo ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
     With Sheets("FLOCS")
        i = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:A" & i).Copy Sheets("Sheet3").Range("K4")
     End With
End If

End Sub

 

[henrvanbeek]

Dit werkt prima..

Ik probeer jouw code te begrijpen. Maar is i en rows niet een variabele die je moet declareren?

Ik kan in ieder geval verder bouwen.

 

[HSV]

Zonder die variabele.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$4" Then Sheets("FLOCS").Cells(1).CurrentRegion.Offset(1).Columns(1).Copy Sheets("Sheet3").Range("K4")
End Sub

En wel zo netjes dan al die rijen met strepen.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$4" Then
   Range("k4").CurrentRegion.ClearContents
   sv = Sheets("FLOCS").Cells(1).CurrentRegion.Offset(1).Columns(1)
   Sheets("Sheet3").Range("K4").Resize(UBound(sv)) = sv
 End If

 

[snb]

Breng eerst struktuur aan in dit bestand van de 'struktuurmakers'.
Zet alle macros in 1 macormodule in plaats van 16.

Gebruik in VBA geen 'Select' of 'Activate' dat is opgenomen code uit de User Interface.