Excel-Tabelle VBA - Wählen Sie neue letzte Zeile Zelle 2 als aktiv

Question

Ich habe den folgenden Code. Die neu erstellte Zeile wird nicht ausgewählt ...

Ich habe eine Makroschaltfläche namens ADD NEW, die mit Code verknüpft, der erfolgreich eine neue letzte Zeile in einer Tabelle hinzufügt und eine neue Nummer in der ersten Zelle der Tabelle generiert. aber es ist nicht so aktiv und 'gehen zu' die zweite Zelle, um den Benutzer zu beginnen .... Was fehlt mir?

Sub Add_New() 

Dim the_sheet As Worksheet 
Dim the_table As ListObject 
Dim table_object_row As ListRow 
Dim last_row As Long 

Set the_sheet = Sheets("Inventory") 
Set the_table = the_sheet.ListObjects("tbl_Data") 
Set table_object_row = the_table.ListRows.Add 
Set last_row = the_sheet.Range("C1`" & .Rows.Count).End(x1up).Row 
End Sub 

Answer 1

Versuchen Zugabe

table_object_row.range.cells(1,1).select 

(Unter der Annahme, diese Zeilen sind die gleichen wie Arbeitsblatt Zeilen)

BTW, korrigieren diese Linie

Set last_row = the_sheet.Range("C1`" & .Rows.Count).End(x1up).Row 

zu

last_row= Worksheets("Inventory").Range("A1" & Worksheets("Inventory").Rows.Count).End(xlUp).Row