waarom foutmelding 1004 en plakt hij niet

[Nerdje82]

[

PHP]Private Sub CommandButton1_Click()
 Dim PP As Integer, qq As Integer
    PP = Worksheets.Count
    
    For qq = 1 To PP
    
    If ActiveWorkbook.Worksheets(qq).Name = "tellers" Then
    Worksheets("tellers").Select
    End If
    
    Next q


lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow

    If Cells(i, 1) = "TOTAAL" Then
    Range(Cells(i, 2), Cells(i, 16)).Select
    Selection.Copy
    
    
    Workbooks.Open Filename:="H:\Mijn Documenten\Digital\Werkmap\afdelingshoofd.xlsm"
    
    Dim P As Integer, q As Integer
    P = Worksheets.Count
    
    For q = 1 To P
    
    If ActiveWorkbook.Worksheets(q).Name = "PB" Then
    Worksheets("PB").Select
    End If
    
    Next q
    
    erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    ActiveSheet.Cells(erow, 1).Select
    ActiveSheet.PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Application.CutCopyMode = False
    End If
    
    Next i

End Sub

[/PHP]


Ik krijg een foutmelding 1004 bij het plakken van de gekopieerde regel in het nieuwe werkboek !! help mij , wat moet ik veranderen??

 

[Deadyoullbe]

kan je het excel bestand delen? dat zal makkelijker zijn om je te helpen .

 

[HSV]

Draai onderstaande code eens.

Private Sub CommandButton1_Click()
Workbooks.Open [COLOR=#CC0000]"H:\Mijn Documenten\Digital\Werkmap\afdelingshoofd.xlsm"[/COLOR]
   With ThisWorkbook.Sheets("teller").Cells(1).CurrentRegion
     .AutoFilter 1, "totaal"
     .Offset(1, 1).Resize(, 15).Copy
      ActiveWorkbook.Sheets("PB").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
     .AutoFilter
     End With
   ActiveWorkbook.Close True
End Sub

 

[Nerdje82]

Hey harry,

Het werkt ! top ! De code die jij mij hebt gegeven is korter en het lijkt of mijn code hierdoor wat omslachtiger is.
Ik ben net begonnen met vba en begrijp niet alles dus op jou code gaat ik ook wat studeren.
bedankt voor je hulp.

 

[HSV]

Als je een nieuw werkboek opent is dat de activeworkbook.
Thisworkbook is het werkboek waar de code in staat.

Er wordt een filter geplaatst in kolom A en er wordt gefilterd op "totaal"
Alle overgebleven rijen zonder kolom A maar t/m kolom P worden gekopieerd naar je actieve werkboek met alleen de waarden.
Het filter wordt weer opgeheven en je actieve werkboek opgeslagen gesloten met de nieuwe gegevens.

Als hiermee je vraag is beantwoord mag je de vraag nog als opgelost markeren in je openingspost.

 

[Nerdje82]

Hey HSV,

Ik heb een bestandje bijgevoegd. Hierop is het blad te zien waar hij de gegevens van kopieert. De code werkt in mijn proefwerkboek omdat ik hem bovenaan plaats. Hij werkt niet in mijn echte werkblad want hij plakt geen gegevens in het geopende werkboek ???? Dus hij kopieert waarschijnlijk de verkeerde regel.
Kan jij zien wat ik moet veranderen om de juiste regel te kopieren ? Bekijk bijlage Map102.xlsm

thx

 

[HSV]

Verwijder de lege regel 5.

 With ThisWorkbook.Sheets("teller").range("a5:p" & sheets("teller").cells(rows.count, 1).end(xlup).row)