waardes uit gefilterde lijst kopieren

[mmilo]

Hallo,

Ik heb hier onlangs om hulp gevraagd voor een macro die het niet deed. Nu doet de macro het alleen wil ik nog een ding toevoegen maar weet ik niet hoe dit moet.
Wat deze macro doet is facturen maken, de facturen die gemaakt moeten worden selecteert die in het tabblad ledenbestand en deze facturen worden uitgeprint (staat nu niet in de code) en verder op twee tabbladen opgeslagen.

Wat ik dus wil is dat de macro alleen facturen print die geselecteerd zijn adhv een filter. Normaal print ik de hele lijst met namen maar af en toe komt het voor dat ik alleen bepaalde namen moet factureren en dan gebruik ik een filter maar als ik een filter gebruik dan print de macro niet de gefilterde regels.

Elke "i" is dus een gefilterde regel.

Hopelijk is dit duidelijk genoeg

Sub factuur_maken()

Application.ScreenUpdating = False

  Dim LR As Long, i As Long, j As Long, k As Long

With Sheets("Ledenbestand")
   LR = Range("A" & Rows.Count).End(xlUp).Row
   For i = 35 To LR

    
      'deel 1 --> factuur invullen adhv ledenbestand
    
      .Range("A" & i).Copy
      Sheets("Factuur").Range("F14").PasteSpecial Paste:=xlPasteValues 'Lidnummer
      Sheets("Factuur").Range("F15") = Sheets("Factuur").Range("F15") + 1
        
      .Range("E" & i).Copy
      Sheets("Factuur").Range("J8").PasteSpecial Paste:=xlPasteValues  'aanhef
        
      .Range("D" & i).Copy
      Sheets("Factuur").Range("K8").PasteSpecial Paste:=xlPasteValues  'Voorletters
        
      .Range("C" & i).Copy
      Sheets("Factuur").Range("L8").PasteSpecial Paste:=xlPasteValues  'Tussenvoegsel
        
      .Range("B" & i).Copy
      Sheets("Factuur").Range("M8").PasteSpecial Paste:=xlPasteValues  'Achternaam
        
      .Range("G" & i).Copy
      Sheets("Factuur").Range("J9").PasteSpecial Paste:=xlPasteValues  'Straat
        
      .Range("H" & i).Copy
      Sheets("Factuur").Range("K9").PasteSpecial Paste:=xlPasteValues  'Nummer
        
      .Range("I" & i).Copy
      Sheets("Factuur").Range("J10").PasteSpecial Paste:=xlPasteValues 'Postcode
        
      .Range("J" & i).Copy
      Sheets("Factuur").Range("K10").PasteSpecial Paste:=xlPasteValues 'Woonplaats
        
      .Range("R" & i).Copy
      Sheets("Factuur").Range("K21").PasteSpecial Paste:=xlPasteValues 'Soort lid
        
      .Range("W" & i).Copy
      Sheets("Factuur").Range("E21").PasteSpecial Paste:=xlPasteValues 'Bedrag
        
      
      
        
      'boeken factuur op 1300 rekening
      j = Sheets("1300").Range("A" & Rows.Count).End(xlUp).Row + 1
 
      Sheets("Factuur").Range("H25:K25").Copy                                           '1300

      Sheets("1300").Range("A" & j).PasteSpecial Paste:=xlPasteValues
      Sheets("1300").Range("A" & j + 1).EntireRow.Insert
              
      Sheets("factuur").Range("h26:L26").Copy                                           'variabel

        variabel = Sheets("factuur").Range("I25").Text
          k = Sheets(variabel).Range("A" & Rows.Count).End(xlUp).Row + 1
      Sheets(variabel).Range("A" & k).PasteSpecial Paste:=xlPasteValues
      Sheets(variabel).Range("A" & k + 1).EntireRow.Insert
    


 Next i
 
 End With
 
Application.ScreenUpdating = True

End Sub

 

[mmilo]

Ik heb het opgelost. Ik kopieer namelijk de gefilterde range en plak die in een sheet om vervolgens die lijst te gebruiken om factuurtjes te maken.