essayer de créer un fichier pouvant transférer des données quotidiennement à partir d'une feuille à une autre. Je peux obtenir le transfert de données, mais il copie également les formules et toutes les cellules donnent une erreur refer . Comment puis-je copier uniquement les valeurs et non les formules. Je suis nouveau à VBA et toute aide sera grandement appréciée.
Merci essayé d'utiliser le code passitaire mais ne fonctionnera pas.
3 Réponses :
Vous n'avez pas besoin de .Copy dans ce cas. Vous pouvez simplement affecter le .value de la plage de destination pour être égal à la valeur de la plage de copies,
Quelques choses pour nettoyer votre code. Déclarez votre classeur une fois, vous pouvez ensuite faire référence à une étape ultérieure, est nécessaire. De plus, je pense que votre erreur se passe dans votre ligne code> Coller code>. Voir Code ci-dessous (non testé):
Sub Number1()
Dim wbGood As Workbook
Dim wsCopy As Worksheet, wsDest As Worksheet
Dim lCopyLastRow As Long, lDestLastRow As Long
Set wbGood = Workbooks("Copy of PLA Failure Results (Macro) Good Test 2.xlsm")
Set wsCopy = wbGood.Worksheets("Raw Data")
Set wsDest = wbGood.Worksheets("Stored Data")
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("J2:R" & lCopyLastRow).Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial xlValues
Application.CutCopyMode = False
End Sub
avec: vous pouvez utiliser PASTPECIAL Pour cela, et aussi que vous utilisez A2 et lastrow qui est faux, il devrait être a & lastrow >