Excel Vba - Zeilennummer kopieren

Question

Ich bin sehr neu zu VBA und ich versuche, ein Makro zu erhalten, um die nächste leere Zeile in einem Blatt nachschlagen und kopieren Sie dann die Zeilennummer und fügen Sie dann diesen Wert in eine andere Arbeitsmappe.

Das ist so weit wie ich habe.

Sub Retrieve_Row_Number() 

Dim erow As Integer 

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

Workbooks.Open "\\hamfile\public\(P) Maintenance\MJR_Status.xlsm", ReadOnly 
ActiveSheet.Cells(erow, 1).Select 

Ich habe die ActiveCell.Row Funktion mit MsgBox verwendet gesehen die Zeilennummer angezeigt werden, aber ich mag es kopieren, so dass es als ein Zellwert in das zweite Blatt geklebt werden kann

wenn jemand kann mir Code eine Zeilennummer einer ausgewählten Zeile in die Zwischenablage zu kopieren, wäre es äußerst

Answer 1

geschätzt werden Versuchen sie, den folgenden Code verwendet:

Sub RowAdd() 

Dim eRow As Integer 
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select 
eRow = ActiveCell.Offset(1, 0).Row 
Workbooks.Open "\\hamfile\public\(P) Maintenance\MJR_Status.xlsm", ReadOnly 
ActiveSheet.Cells(eRow, 1).Select 

End Sub