Wegschrijven waardes

[gerrit123456789]

Hallo,

Ik wil graag de waardes uit de volgende cellen van blad 1 wegschrijven naar blad 3 en dan onder de desbetreffende kolom.
B8, C10t/mC15, G8, G10, G11, G13 en G14

Het moet wel zo zijn, dat wanneer ik de volgende dag het bestand open en andere gegevens invoer, dat het dan op de regel onder de eerder weggeschreven waardes op blad 3 komen te staan.

Wie kan mij hier bij helpen.

met vriendelijke groet,

Gerrit


Bekijk bijlage testmap.xlsx

 

[SjonR]

zo?

Sub SjonR()

Lr = Sheets("Blad3").Range("A" & Rows.Count).End(xlUp).Row + 1

With Sheets("Blad1")
    Sheets("Blad3").Cells(Lr, 1).Resize(, 12) = Array(.Range("B8"), .Range("C10"), .Range("C11"), _
    .Range("C12"), .Range("C13"), .Range("C14"), .Range("C15"), .Range("G10"), .Range("G11"), .Range("G13"), _
    .Range("G14"), .Range("G8"))
End With
End Sub

 

[gerrit123456789]

Dat is wat ik bedoel.
Nu kan ik weer verder met het bestand.
Mocht ik verder nog vragen hebben, dan meld ik mij hier wel weer. Dus ik laat de vraag dus nog even op onopgelost staan.

Voor nu alvast hartelijk dank voor de hulp.

Groet,

Gerrit

 

[gerrit123456789]

Ik heb het geel gemarkeerde toegevoegd, maar dat wordt niet weggeschreven.

Sub SjonR()

Lr = Sheets("Blad3").Range("A" & Rows.Count).End(xlUp).Row + 1

With Sheets("Blad1")
Sheets("Blad3").Cells(Lr, 1).Resize(, 12) = Array(.Range("B8"), .Range("C10"), .Range("C11"), _
.Range("C12"), .Range("C13"), .Range("C14"), .Range("C15"), .Range("G10"), .Range("G11"), .Range("G13"), _
.Range("G14"), .Range("G8"), .Range("L10"), .Range("L11"), .Range("L12"), .Range("L13"), _
.Range("L14"), .Range("L15"), .Range("P10"), .Range("P11"), .Range("P13"), .Range("P14"), .Range("P8"))
End With
End Sub

 

[SjonR]

Gerrit,

ten eerste is de gele tekst zo goed als onleesbaar.

ten tweede:

Sub SjonR()

 Lr = Sheets("Blad3").Range("A" & Rows.Count).End(xlUp).Row + 1

 With Sheets("Blad1")
       Sheets("Blad3").Cells(Lr, 1).Resize[COLOR="#FF0000"](, 25[/COLOR]) = Array(.Range("B8"), .Range("C10"), .Range("C11"), _
      .Range("C12"), .Range("C13"), .Range("C14"), .Range("C15"), .Range("G10"), .Range("G11"), .Range("G13"), _
      .Range("G14"), .Range("G8"),[COLOR="#FF0000"] "", .Range("K8"), [/COLOR].Range("L10"), .Range("L11"), .Range("L12"), .Range("L13"), _
      .Range("L14"), .Range("L15"), .Range("P10"), .Range("P11"), .Range("P13"), .Range("P14"), .Range("P8"))
 End With
 End Sub

 

[gerrit123456789]

Sorry, voor de onleesbare gele tekst.

Dit werkt goed.

Bedankt.

Gerrit

 

[gerrit123456789]

Nog 1 vraagje, hoe krijg ik alle cellen die ik van blad1 weggeschreven heb naar blad3 leeg, behalve cel B8 en K8.
Maar voordat hij de cellen leeg maakt moet hij opgeslagen worden als PDF met de datum uit cel B8.
Ik heb al wel een knop toegevoegd "Opslaan".

Bekijk bijlage testmap.xlsb

 

[SjonR]

zo:

Sub leegmaken()

Sheets("Blad1").Range("C10, C11, C12, C13, C14, C15, G10, G11, G13, G14, G8, L19, L11, L12, L13, L14, L15, P10, P11, P13, P14, P8").Value = ""

End Sub

 

[VenA]

Het lijkt mij niet handig om de formules ook te verwijderen al is dat wel de vraag.

Range("C10:P15").SpecialCells(2, 1).ClearContents

 

[gerrit123456789]

Geeft een compileerfout aan.

 

[VenA]

Gek he zonder sub en end sub

 

[snb]

Lees eerst een basisboek over VBA voordat je het gaat gebruiken.

 

[Jack Nouws]

Om TK2 en TK3 afzonderlijk weg te schrijven kun je bijv. dit gebruiken

Sub Wegschrijven()
  With Sheets("Blad1")
    ar1 = Array(CDate(.[B8]), .[C10], .[C11], .[C12], .[C13], .[C14], .[C15], .[G10], .[G11], .[G13], .[G14], .[G8])
    ar2 = Array(CDate(.[K8]), .[L10], .[L11], .[L12], .[L13], .[L14], .[L15], .[P10], .[P11], .[P13], .[P14], .[P8])
  End With

  With Sheets("Blad3")
    .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 12) = ar1
    .Cells(Rows.Count, 14).End(xlUp).Offset(1).Resize(, 12) = ar2
  End With
  Sheets("Blad1").Range("C10:P15").SpecialCells(2, 1).ClearContents
End Sub

 

[VenA]

Wel bijzonder eigenlijk; werken voor een bedrijf met een miljarden omzet, gebruik maken van "Den Spike Unattendeds 2016' (dus niet al te legale versie) en dan hier een bedrijfsgerelateerde vraag stellen

 

[gerrit123456789]

Ik zou er toch nog iets veranderd willen hebben.
Zo moeten de waardes in de volgende cellen blijven staan als ik het bestand opsla door middel van de knop

C11, L11, G10 en P10

Bij voorbaat dank,

Gerrit

Bekijk bijlage testmap.xlsb

 

[VenA]

Staat toch in #8 hoe je het kan doen?

 

[gerrit123456789]

Zelf schrijf je dat het niet zo handig is om de formules te verwijderen zie #9

En daar heb je een andere code neergezet. Die is gebruik.

 

[SjonR]

Wat je nu precies wilt lijkt dan een beetje tegenstrijdig. Wil je bepaalde cellen nu wel of niet leegmaken?

In #8 staan ze zo ongeveer allemaal, dus haal de cellen er uit die je niet leeg wil maken.

 

[VenA]

In aansluiting op de reactie van @SjonR
Met de code in #8 kan je toch zelf bepalen welke cellen je leeg kan maken? In C11, L11, G10 en P10 staan geen formules. Gebruik geen samengevoegde cellen in combinatie met VBA.

 

[gerrit123456789]

Ik heb het op de volgende manier opgelost:


For Each cel In ActiveSheet.UsedRange
If Not cel.Locked Then cel.Value = ""
Next cel

Groet,

Gerrit