Možností je více, třeba pomocí kopírování, ale tam můžeš narazit na problém se sloučenými buňkami.
Jako příklad uvádím přenos pomocí proměnné temp:
Sub tlačítko1_Klepnutí()
Dim temp As String
temp = Cells(6, 2)
Range("B6").Copy
Application.Workbooks.Open ThisWorkbook.Path & "\sešit_1.xlsm"
Windows("sešit_1.xlsm").Activate
Cells(6, 2) = temp
End Sub
M@citovat
Jako příklad uvádím přenos pomocí proměnné temp:
Sub tlačítko1_Klepnutí()
Dim temp As String
temp = Cells(6, 2)
Range("B6").Copy
Application.Workbooks.Open ThisWorkbook.Path & "\sešit_1.xlsm"
Windows("sešit_1.xlsm").Activate
Cells(6, 2) = temp
End Sub
M@citovat