Hallo ik heb een werkende code om mijn kassa systeem weg te laten schrijven naar een rapportverkoop en als het PIN is.. dan gaat het naar een andere sheet die PIN heet.. De codes zijn het zelfde.. Nu wil ik graag met 2 kassa's gaan werken en dat deze beide dan de verkopen van contant en pin schrijven in een workbook wat Omzet.xlsx heet... De code haalt uit leverancier de gegevens van het product wat verkocht wordt enz... Uit data wordt o.a. een teller gehaald om de bon op te hogen. De code is niet vlekkeloos en werkt langzaam, maar ben er heel blij mee. Soms ook in eens dat sommige cellen een groter letter type hebben.. Weet niet hoe.. Maar voor mij werkt het.... Als je weet hoe beter en sneller hoor ik het heel graag.
Mijn vraag is nu... Hoe kan ik deze code aanpassen zodat het niet in zijn eigen workbook weg geschreven wordt.. Zoals nu wel.. Maar in een externe file waar ze dan beide in kunnen schrijven... Natuurlijk niet tegelijk, maar dat hoeft ook niet.. Ik heb deze code ooit bij elkaar geschraapt op de verschillende forums en daar ook hulp van gehad en hoop nu dus weer een stap verder te kunnen gaan. Ik zal het alleen hier posten voorlopig.
Option Explicit
Sub CopyTorapportverkoop_JG()
Dim sq As Variant
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With Sheets("rapportverkoop").Cells(Rows.Count, 1).End(xlUp)
sq = Range(Range("A14"), Cells(Rows.Count, 1).End(xlUp).Address).Rows.Count
.Offset(1, 0).Resize(sq, 16) = [B9].Resize(sq, 16).Value
End With
Range("B922").ClearContents
Sheets("data").Range("A1") = Sheets("data").Range("A1") + 1
If Sheets("data").Range("A1").Value = 10000 Then
Sheets("data").Range("A1").Value = 1
End If
Range("B9:C22").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.Save
Application.ScreenUpdating = True
[B9].Select
End Sub
'DV-QkWddQDyqSm2IOVOaEkLAm # Do not remove this line; required for DocVerse merge.
Mijn vraag is nu... Hoe kan ik deze code aanpassen zodat het niet in zijn eigen workbook weg geschreven wordt.. Zoals nu wel.. Maar in een externe file waar ze dan beide in kunnen schrijven... Natuurlijk niet tegelijk, maar dat hoeft ook niet.. Ik heb deze code ooit bij elkaar geschraapt op de verschillende forums en daar ook hulp van gehad en hoop nu dus weer een stap verder te kunnen gaan. Ik zal het alleen hier posten voorlopig.
Option Explicit
Sub CopyTorapportverkoop_JG()
Dim sq As Variant
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With Sheets("rapportverkoop").Cells(Rows.Count, 1).End(xlUp)
sq = Range(Range("A14"), Cells(Rows.Count, 1).End(xlUp).Address).Rows.Count
.Offset(1, 0).Resize(sq, 16) = [B9].Resize(sq, 16).Value
End With
Range("B922").ClearContents
Sheets("data").Range("A1") = Sheets("data").Range("A1") + 1
If Sheets("data").Range("A1").Value = 10000 Then
Sheets("data").Range("A1").Value = 1
End If
Range("B9:C22").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.Save
Application.ScreenUpdating = True
[B9].Select
End Sub
'DV-QkWddQDyqSm2IOVOaEkLAm # Do not remove this line; required for DocVerse merge.