jord

Beste Emiel, Uw bestand werkt top. Hoe heeft u dat gedaan. Zie ook dat u het begin stuk heeft veranderd. Vooral dat gedeelte van offset snap ik niet helemaal. Voor de rest werkt deze nu heel soepel en vloeiend. Nogmaals bedankt. Heeft u misschien nog tips om kennis op te doen? gr. Jord

Bij deze een proefbestand met "Jan en Kathrien gegevens". Het is de bedoeling dat hij niet de hele regel kopieert, maar dat een volgend tabblad ook door berekeningen kunnen plaatsvinden. Het bestand wijst dat wel uit. Gr. proef bestand.xlsm

Beste alle, Ik wil graag jullie hulp inschakelen, om onderstaand vba beter te maken. D e bedoeling is dat gegevens van de factuur op een volgend blad geboekt worden. De vba werkt maar niet naar wens. Misschien dat jullie tips hebben. Sub Knop35_Klikken() Dim Datum, factnr, Relatie As String Dim totaal As Double Datum = Range("O19").Value factnr = Range("O20").Value Relatie = Range("O21").Value If Relatie = "" Then MsgBox "Er is geen relatie geselecteerd." Exit Sub End If If Datum = "" Then MsgBox "Er is geen datum ingevuld." Exit Sub End If If factnr = "" Then MsgBox "Er is geen factuurnumer ingevuld." Exit Sub End If With Worksheets("Verkoop").Range("C7:C10000") Set factnr = .Find(Range("O20").Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If Not factnr Is Nothing Then MsgBox "Er is al een factuur met dit nummer aanwezig!" Exit Sub End If If IsEmpty(Sheets("verkoopfactuur").Range("O20")) Then MsgBox "factuurnummer niet ingevuld", vbCritical, "Factuurnummer" Exit Sub End If Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("Verkoopfactuur") Set ws2 = Sheets("Verkoop") DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1 ws1.Range("O34:R34").Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues ws1.Range("T34").Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).PasteSpecial xlPasteValues ws1.Range("V34").Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(0, 7).PasteSpecial xlPasteValues ws1.Range("X34").Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(0, 9).PasteSpecial xlPasteValues ws1.Range("AA34:AC34").Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(0, 12).PasteSpecial xlPasteValues End With End Sub Gr. Jord

Hallo, Bedankt voor uw hulp ga het meteen proberen en dan laat ik u dat weten. gr

Beste Emiel, Hierbij het voorbeeldbestand. Gr. Jordy bestand voor hulp.xlsm

Beste mensen, Ik ben momenteel bezig met het uitwerken van een excel boekhoudprogramma. Echter krijg ik mijn factuur gegevens niet via één knop naar het tabblad verkopen. Mijn kennis op het gebied van macro's is zeer beperkt. Ik heb wel al een code gevonden en die ik werkend heb gekregen, maar niet naar mijn wens. Hieronder de macro die ik verwerkt heb. Sub Factuur_inboek() If IsEmpty(Sheets("verkoopfactuur").Range("n27")) Then MsgBox ("factuurnummer niet ingevuld") Exit Sub End If Sheets("verkoop & opbrengsten").Select Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("G5:K5").Copy Range("G5").Select ActiveSheet.Paste Range("D5").Select Application.CutCopyMode = Fals Range("B5").Value = Sheets("verkoopfactuur").Range("F4").Value 'datum Range("B5").Value = Sheets("verkoopfactuur").[E13].Value 'datum Range("C5").Value = Sheets("verkoopfactuur").[F1].Value 'soort Range("D5").Value = Sheets("verkoopfactuur").[N27].Value 'volgnummer Range("E5").Value = Sheets("verkoopfactuur").[B10].Value 'klant Range("F5").Value = Sheets("verkoopfactuur").[J30].Value 'totaal exclusief btw Range("G5").Value = Sheets("verkoopfactuur").[J33].Value 'btw verlegd Range("H5").Value = Sheets("verkoopfactuur").[J33].Value 'btw perc 0 Range("I5").Value = Sheets("verkoopfactuur").[J34].Value 'btw perc 6 Range("J5").Value = Sheets("verkoopfactuur").[J35].Value 'btw perc 21 Range("K5").Value = Sheets("verkoopfactuur").[J37].Value 'totaal End Sub Echter deze macro maakt steeds een nieuwe regel in mijn tabblad en hij plaatst de gegevens erboven i.p.v. eronder. Is er iemand die mij hier mee kan helpen of uitleg kan geven op het gebied van macro's. Mijn dank is groot. Groet