Alleen plakken waarde mogelijk

[monty1a]

Is er een manier/code die het mogelijk maakt dat alleen maar plakken waarde mogelijk is.

Ik heb een bestand waar andere ook in werken en dan worden er door knippen plakken soms fouten gemaakt, omdat sommige cellen alleen maar een getal mag bevatten.

ISub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Maar is dit ook alleen op een blad mogelijk?

 

[edmoor]

Wat bedoel je?
Plakken gebeurd altijd op een blad.
En wat is ISub?

 

[monty1a]

Sorry, dat Isub is een kopieer fout.

Sub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

En sneltoets Ctrl+V eraan gekoppeld.


De bovenstaande formule werkt in principe wel, maar omdat deze in Wokbook staat geldt dit voor de gehele werkmap.
Ik wil dat ze op de Sheet " Overzicht" alleen plakken waarden kunnen doen, en niet de opmaak kunnen veranderen.
Dit gebeurd nu nog teveel, waardoor cijfers ineens tekst worden of andersom en dit verderop in het bestand fouten geeft.

Hopelijk is het een beetje duidelijk wat ik bedoel

 

[edmoor]

Zo bedoel je?

Sub PasteasValue()
    If ActiveSheet.Name = "Overzicht" Then Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

[DigiCafee]

@edmoor ... heb ik het juist dat dit echter niet verhinderd dat er tekst (string) wordt geplakt in een cel die als numeriek staat gedefinieerd... ?

 

[edmoor]

Dat heb ik niet getest maar lijkt me een correcte aanname.
Maar dat deed de originele code van TS ook niet.

 

[DigiCafee]

Inderdaad, vandaar dat hij hier de vraag stelde ... weet jij iets ? Ik moet nu even weg.

 

[edmoor]

Zoiets.
Zelf even testen:

Sub PasteasValue()
    If ActiveSheet.Name = "Overzicht" Then
        ctype = CellType(ActiveCell)
        Selection.PasteSpecial Paste:=xlPasteValues
        If CellType(ActiveCell) <> ctype Then Application.Undo
    End If
End Sub

Function CellType(c)
     Select Case True
        Case IsEmpty(c):                    CellType = "Blank"
        Case Application.IsText(c):         CellType = "Text"
        Case Application.IsLogical(c):      CellType = "Logical"
        Case Application.IsError(c):        CellType = "Error"
        Case IsDate(c):                     CellType = "Date"
        Case InStr(1, c.Text, ":") <> 0:    CellType = "Time"
        Case c.HasFormula:                  CellType = "Formula"
        Case IsNumeric(c):                  CellType = "Value"
     End Select
End Function

 

[DigiCafee]

Even TS reactie afwachten ... grandioze insteek vind ik dat, maar ik vermoed dat hij ganse records wil kunnen invoegen en volgens mij werkt je systeempje enkel bij een copy/paste in één cel.

 

[edmoor]

Dat gaat inderdaad maar op voor 1 cel.
TS kan beter een voorbeeld document plaatsen.

 

[monty1a]

Er moet inderdaad een overzicht invullen (dit krijgen we meestal van een opdrachtgever aangeleverd)

Ik heb even alleen het overzicht blad als voorbeeld (bestand bestaat uit meer dan 30 tabbladen namelijk), het gehele bestand wordt te groot.
Dit is wel het belangrijkste blad waar vanaf ieder tabblad informatie wordt gevraagd.

 

[DigiCafee]

Ik denk dat zowel ikzelf als Edmoor een vb. van een record zoals die binnenkomt en moet gepasted worden nodig hebben om iets te zien ....

 

[monty1a]

Originele bestand is te groot en bevat ook prijzen...

 

[DigiCafee]

1 record !!!! Wat wordt er in gepasted ?
Mag volledig verzonnen zijn, als het maar conform is qua velden aan wat je wil copy/paste hierin stoppen ...

 

[monty1a]

Sorry , begreep je verkeerd

 

[monty1a]

Bij deze een ingevulde wat er normaal gekopieerd hoeft te worden.

 

[VenA]

Verhelderend. Wat moet er nu gebeuren en wat gaat er mis?

 

[DigiCafee]

Is dit dan het juiste formaat dat je in een CSV of een XLS of ander formaat aangeleverd krijgt ?

 

[monty1a]

Verhelderend. Wat moet er nu gebeuren en wat gaat er mis?

De bedoeling is dat ze (collega's) alleen plakken waarden kunnen doen op deze sheet zodat alle instellingen goed blijven staan

 

[VenA]

Ik zie het probleem niet maar zal aan mij liggen. Succes verder.