Excel VBA enregistrer des données de cellule à feuille

Question

Comment pourrais-je sauver mes données de cellule de feuille de calcul 1 à la feuille de travail 2.

Fondamentalement, j'ai une feuille comme ceci: -

   | Job number | Job notes 

edit button | 345345  | just some text 

edit button | 345468  | more text 

edit button | 678934  | job info 

Sur ma feuille Excel I avoir un bouton de commande sur chaque ligne qui ouvre un formulaire utilisateur avec une zone de texte, cela a un bouton de commande lorsque le bouton de commande est pressé, il cherche le numéro de travail et enregistre les données de la zone de texte à la ligne avec le bon travail numéro que je suis en train d'éditer.

code pour sauver

Private Sub savejobnotes_Click() 


Dim YourVariable As Variant 
Dim rowCount As Integer 
Dim rownum As String 
Set YourVariable = jobRef 


With ActiveSheet.Range("D:D") 
Set uRng = .Find(YourVariable, , xlValues, xlWhole, , MatchCase:=False, 
searchformat:=False) 
If Not uRng Is Nothing Then 
    uRng.Activate 
    rowCount = ActiveCell.Row 
    'this will find the row number rowCount 
    ' MsgBox rowCount 

    rownum = "K" & rowCount 
    MsgBox "Saved to " & rownum 

    'save textbox value to a cell 
    ActiveSheet.Range(rownum).Value = jobnotes.Value 


End If 
End With 
End Sub 

Code pour charger les notes d'emploi dans la zone de texte lors de l'ouverture du formulaire utilisateur. Comment enregistrer le numéro du travail et les notes de travail sur une feuille séparée à chaque fois. Comme je dois conserver une copie des notes de travail liées au numéro de travail car ma table excel est régulièrement mise à jour à partir d'un fichier .csv qui supprime les travaux terminés de la table.

Merci pour toute aide

Answer 1

Vous devez d'abord créer une nouvelle feuille nommée comme Jobs puis utiliser des constructions comme ceci:

Sheets("Jobs").Cells("coordinates here").Value = "your values" 

Peut-être que vous seriez besoin de créer un compteur, mais c'est un autre sujet.