Cellen wegschrijven

[ddmedia]

Hey,

ik zou graag willen, dat als mijn tabblad afgeprint wordt, alle cellen worden weggeschreven
in een rij van een ander tabblad.
Is dit mogelijk en zou ik deze waarden eventueel later terug kunnen oproepen in het eerste tabblad dat ik afgeprint heb?

 

[richard1970]

Beste ddmedia,

Je vraag is niet helemaal helder.
Heb je bijvoorbeeld een factuur waarbij je bepaalde cellen (klantnummer, klantnaam, adres, factuurbedrag, factuurdatum etc) apart wilt hebben zodat je achteraf kunt kijken welke factuur je hebt geprint?

In dat geval, ja dat kan via VBA.

Kun je een voorbeeldbestandje neerzetten met geanonimiseerde gegevens, maar wel met de structuur zoals jij die gebruikt?

Groeten,
Richard

 

[ddmedia]

Hey richard1970

dat is wat ik bedoel ja

ik heb niet dadelijk een voorbeeldje dat ik je kan geven

maar kan jij mij al de basis maken in een bestandje waarin hij met een druk op de knop
enkele cellen van tabblad factuur naar bv tabblad back up gaat wegschrijven

alvast bedankt

 

[robdgr]

Een voorbeeld:

Sub fact_debbew()
'
' fact_debbew Macro
' De macro is opgenomen op 6-1-2006 door rdg.
'

'
    Windows("Debiteurenbewaking.xls").Activate
    Columns("E:G").Select
    Selection.EntireColumn.Hidden = False
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("A3").Select
    Windows("Factuur.xls").Activate
    Range("E16").Select
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("3:3").Select
    Selection.Font.Bold = False
    Range("B3").Select
    Windows("Factuur.xls").Activate
    Range("H10:L10").Select
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C3").Select
    Windows("Factuur.xls").Activate
    Range("D15:E15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D3").Select
    Windows("Factuur.xls").Activate
    Range("C17:E17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("Factuur.xls").Activate
    Application.Goto Reference:="R53C12"
    Range("L54").Select
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G4").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("G3:G4"), Type:=xlFillDefault
    Range("G3:G4").Select
    Range("G4").Select
    Selection.AutoFill Destination:=Range("G3:G4"), Type:=xlFillDefault
    Range("G3:G4").Select
    Range("F4").Select
    Selection.AutoFill Destination:=Range("F3:F4"), Type:=xlFillDefault
    Range("F3:F4").Select
    Range("H4").Select
    Selection.AutoFill Destination:=Range("H3:H4"), Type:=xlFillDefault
    Range("H3:H4").Select
    Range("I4:K4").Select
    Selection.AutoFill Destination:=Range("I3:K4"), Type:=xlFillDefault
    Range("I3:K4").Select
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Application.Goto Reference:="R3C1"
    ActiveWorkbook.Save
    Windows("Factuur.xls").Activate
    Application.Goto Reference:="R2C8"
End Sub

Groet,

 

[Wigi]

Een voorbeeld:

...

Groet,

Hmmmm, macro recorder code?

Rob, gebruik jij deze code nu? Kan je niet met wat je leert op het forum die code verbeteren? Zoals niet .Select o.a.

 

[robdgr]

Wigi,

Klopt en hij doet wat hij moet doen. Ik geef eerlijk toe dat VBA voor mij nog steeds een grotendeels onontgonnen terrein is, dus moet ik de macrorecorder gebruiken om dit te bereiken.

Groet,

 

[Wigi]

Zoiets bv. kan simpeler:

Rows("3:3").Select
    Selection.Font.Bold = False

als:

Rows("3:3").Font.Bold = False

En zo ga je verder. Als je je daar eens aanzet ga je zien dat je code minstens dubbel zo snel is en geen geflikker in het scherm. Heel vaak moet je niet .Select gebruiken. Probeer maar eens.

Wigi