Plakken speciaal in macro onder data

[maartenmars]

Ik heb een probleem:shocked:.

Ik heb al een macro om de goede informatie te kopieëren die ik wil. Nu wil ik deze alleen in een ander blad onder de andere data zetten. Nu zet hij deze telkens over de vorige data heen. Ik werk namelijk met een database waardoor ik de volgende keer weet dat deze factuur al is verstuurd.

Dus hoe kan ik in een macro aangeven dat hij de gekopieërde data moet plakken onder de andere data in een ander blad.

Alvast bedankt !!!

Maarten

 

[Wigi]

Zet die code hier dan eens, tussen code tags aub (het # symbooltje).

 

[maartenmars]

#

Sub Macro5()
'
' Macro5 Macro
' De macro is opgenomen op 5-8-2008 door mbweijermars.
'
Selection.AutoFilter Field:=13, Criteria1:="6"
Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
Worksheets("Blad2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Blad2").Range("A1")
End If
Selection.AutoFilter Field:=13

' Sneltoets: CTRL+z
'
End Sub

#

 

[Warme bakkertje]

Beste Maarten,
Volgende code selecteert de eerstvolgende lege regel in kolom A

Sub NieuweRegel()
Sheets("Naam van je blad").Select
Dim iRij As Integer
    iRij = Range("A65536").End(xlUp).Row
    Range("A" & iRij + 1).Select
End Sub

Mvg

Rudi

 

[maartenmars]

Ik krijg het nog niet voor elkaar omdat ik niet weet waar ik die tekst moet plakken in mijn macro. Hij weet telkens niet wat hij moet doen. Liefst de waarden plakken speciaal, zodat ik straks ook met formules kan werken in het blad.

 

[Warme bakkertje]

Maarten, kijk of je hier mee verder kunt

Mvg

Rudi

 

[maartenmars]

Rudi bedankt!!!!!!!!! hij werkt precies zoals ik wil.

 

[Wigi]

#

...

#

Je moet je code met de muis selecteren en dan op # icoontje klikken in de balk met pictogrammen. Gelijkaardige manier van werken als zou je iets bvb. in het bold zetten.