VBA cellen koppieren en aanvullen in volgendtabblad laatste rij

[Sven1985]

Hallo Allemaal,

ik lig al een een paar dagen te zoeken op forums voor een code in vba maar ik slaag er echt niet in.
mijn bedoeling is om van een offerte bepaalde cellen te kopiëren naar een tabel op een ander blad, en bijkomend als de laatste regel bij aan te vullen.

De waardes moeten terug komen in 1 Rij
waarde1 = kolom1

kan iemand mij helpen aub?

ik dank jullie lig er al eventjes van te piekeren na meerdere pogingen.

 

[VenA]

Misschien een actieve houding aannemen bij het zoeken. Erg verhelderend is jouw bestand niet. Het kan met zoiets.

Sub VenA()
  With Sheets("Offerte")
    ar = Array(.[B4].Value, .[F4].Value, .[B11].Value, [G11].Value)
  End With
  Sheets("OfferteLijst").ListObjects(1).ListRows.Add.Range.Resize(, 4) = ar
End Sub

 

[Sven1985]

Hallo VenA,


Ja had al redelijk gezocht, maar je hebt mij al goed op de weg geholpen.

ik had voorafgaand zoiets, dat van jou is simpel en beter

    Sheets("Offerte").Select 'refNr'
    Range("F22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OfferteLijst").Select
    ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
  Sheets("OfferteLijst").Select
    ActiveSheet.Range("B1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Value = "KlaarVoorVersturing"
    
    
    
    

      Sheets("Offerte").Select 'Klant/Bedrijf'
    Range("E16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OfferteLijst").Select
    ActiveSheet.Range("C1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
  

  
  
      Sheets("Offerte").Select 'Klant referentie'
    Range("L22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OfferteLijst").Select
    ActiveSheet.Range("D1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[VenA]

Als hiermee de vraag is opgelost, markeer deze dan ook even als opgelost.