Excel的VBA細胞數據保存到不同的片

Question

我將如何保存從工作表1我的手機數據到工作表2.

基本上我有這樣的一個表： -

   | Job number | Job notes 

edit button | 345345  | just some text 

edit button | 345468  | more text 

edit button | 678934  | job info 

在我的Excel工作表我每行上有一個命令按鈕，當按下按鈕時，用戶可以用文本框打開一個 用戶窗體，當命令按鈕被按下時，它會有一個命令按鈕，它將搜索作業編號並將文本框數據保存到具有正確作業的行我正在編輯的號碼。

代碼保存

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 

代碼打開用戶表單時，工作筆記加載到文本框中。

Sub loadjobnotes() 

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 rownum 

jobnotes.Value = ActiveSheet.Range(rownum) 


    End If 
End With 
End Sub 

如何每次將作業編號和工作記錄保存到單獨的工作表中。由於我的excel表格會定期從.csv文件更新，因此我需要保留與作業編號鏈接的作業備註副本，這樣可以從表格中刪除所有已完成的作業。

感謝所有幫助

Answer 1

，必須先創建一個名爲像喬布斯新的工作表，然後使用結構是這樣的：

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

也許你將需要創建一個計數器，但是這一些其他話題。