2017-04-14 1 views
-1

Ich muss einen Code für die Schaltfläche "Eintrag hinzufügen" schreiben, die die eingegebenen Daten in die Zellen zu einer Tabelle in einem anderen Blatt hinzufügen. |Automatische Dateneingabe zu einem anderen Blatt

Die Tabelle hat die gleichen Header wie im Bild erwähnt. enter image description here

Ich habe den Code für das Hinzufügen von Daten erstellt. Vielen Dank!

+0

Haben Sie schon einen Code geschrieben? – Digvijay

+0

Ich habe den Code für die Auswahl der Daten aus den Zellen geschrieben, aber ich stecke fest, da ich nicht weiß, wie man diese Daten zu einer Tabelle hinzufügt und dann die späteren Daten zu einer darunter liegenden Zeile hinzufügt und so weiter. – Kunal

+0

Verwenden Sie Offset, um zu einer neuen Zeile zu gelangen, und verwenden Sie "endxlDown", um die zuletzt verwendete Zeile zu finden. – Digvijay

Antwort

1
name = Range("D8").Value 
    des = Range("D10").Value 
    veh = Range("D12").Value 
    start = Range("D14").Value 
    finish = Range("D16").Value 

    Sheets("Master Sheet").Select 

    LR = Range("A" & Rows.Count).End(xlUp).Row 

    Range("A" & LR).Offset(1, 0).Select 

    i = ActiveCell.Row 
    Cells(i, 1).Formula = start 
    Cells(i, 2).Formula = finish 
    Cells(i, 3).Formula = name 
    Cells(i, 4).Formula = des 
    Cells(i, 5).Formula = veh 

Sie werden jedes Mal einen Eintrag zu einer neuen Zeile hinzufügen. Ich habe Ihren Blattnamen als Masterblatt angenommen, in dem die Daten gespeichert werden. Sie können die Überschrift auch beliebig benennen.

Verwandte Themen