Hoi allemaal,
Ik wil de selectie - filter op "V12" in kolom E van sheet "DATABASE 1" - automatisch copy-pasten m.b.v. VBA.
Op dit moment heb ik een script gevonden die mij de range aangeeft: eerste- en laatste rij, eerste- en laatste kolom. Echter, ik heb geen idee hoe ik deze cijfers kan krijgen in een bepaalde cel van een willekeurige sheet.
Dit is de code:
Deze werkt prima, maar wat ik zou willen doen is het volgende: deze 4 cijfers in een sheet krijgen zodat ik hiernaar kan verwijzen m.b.v. (4x) Name Manager. Hierdoor zou de VBA script de exacte range moeten weten na te hebben gefilterd. De script verwijst naar de sheet "DATABASE 1".
Voor het achterhalen van iedere EERSTE RIJ na te hebben gefilterd heb ik al (thanks to Edmoor) dit:
Kan iemand van jullie mij verder helpen?
Hieronder het voorbeeldbestand, houdt er wel rekening mee dat het een .xlsx is, anders was het bestand te groot om te uploaden. De macro's zitten er wel gewoon in:
Bekijk bijlage Book1.xlsx
Alvast ontzettend bedankt!
Ik wil de selectie - filter op "V12" in kolom E van sheet "DATABASE 1" - automatisch copy-pasten m.b.v. VBA.
Op dit moment heb ik een script gevonden die mij de range aangeeft: eerste- en laatste rij, eerste- en laatste kolom. Echter, ik heb geen idee hoe ik deze cijfers kan krijgen in een bepaalde cel van een willekeurige sheet.
Dit is de code:
Code:
Sub FindLastFirstUsedRowColumn()
Dim UsedRng As Range
Dim FirstRow As Long, LastRow As Long, FirstCol As Long, LastCol As Long
Dim x As Integer
x = Worksheets("Variable").Range("Rownumber")
Set UsedRng = Sheets("DATABASE 1").UsedRange
FirstRow = x
FirstCol = UsedRng(1).Column
LastRow = UsedRng(UsedRng.Cells.Count).Row
LastCol = UsedRng(UsedRng.Cells.Count).Column
MsgBox "First used row is: " & FirstRow
MsgBox "First used column is: " & FirstCol
MsgBox "Last used row is: " & LastRow
MsgBox "Last used column is: " & LastCol
End Sub
Deze werkt prima, maar wat ik zou willen doen is het volgende: deze 4 cijfers in een sheet krijgen zodat ik hiernaar kan verwijzen m.b.v. (4x) Name Manager. Hierdoor zou de VBA script de exacte range moeten weten na te hebben gefilterd. De script verwijst naar de sheet "DATABASE 1".
Voor het achterhalen van iedere EERSTE RIJ na te hebben gefilterd heb ik al (thanks to Edmoor) dit:
Code:
Sub FirstRow()
Sheets("Variable").Range("A1") = Sheets("DATABASE 1").AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 1).Row
End Sub
Kan iemand van jullie mij verder helpen?
Hieronder het voorbeeldbestand, houdt er wel rekening mee dat het een .xlsx is, anders was het bestand te groot om te uploaden. De macro's zitten er wel gewoon in:
Bekijk bijlage Book1.xlsx
Alvast ontzettend bedankt!