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