Kopieren Sie einige Spalten von einem Blatt und fügen Sie am Ende auf einem anderen Blatt

Ich bin neu in Excel und lernt Formeln zu erstellen. Vor kurzem habe ich eine Situation, wo ich ein Makro erstellen muss, in dem nach dem Klicken auf "Aktualisieren" Knopf einige Spalten einer bestimmten Zeile in einem Blatt kopiert und diese kopierten Spalten in ein anderes Blatt in der letzten Zeile einfügen.Kopieren Sie einige Spalten von einem Blatt und fügen Sie am Ende auf einem anderen Blatt

Beispiel: Im Folgenden werden die Daten in einem Blatt (GUI):

GUI Sheet - Sheet1

Aus diesen Daten würde Ich mag alle die gelbe Daten hervorgehoben lesen und möchte es auf ein anderes Blatt einfügen (DataTogether) am Ende: DataTogether - Sheet2

Die oben gelesenen Werte müssen in die gelb markierten Felder im 2. Blatt eingefügt werden. Rest bleibt Bank.

Szenario:
Von den in Blatt eins angezeigten Daten, wenn ich die Aktualisierungsschaltfläche drücke, werden alle hervorgehobenen Daten gelesen, aber die Daten werden in Blatt 2 eingefügt, wo der Wert in Spalte J übergeben wird.
dh Werte in Zeile 11 und 13 werden gelesen und 2. 2 die Daten in Blatt

Nach Einfügevorgang in Blatt eingefügt werden hinzuzufügen folgende zwei neue Zeilen hervorgehoben (Zeile 15 und 16):

Bitte lassen Sie mich wissen, wenn andere Details erforderlich sind.

Ich hoffe, ich werde bald einige Grundlagen lernen und werde diese Art von Abfragen nicht mehr posten.

Vielen Dank im Voraus.

Ich habe versucht zu arbeiten und erstellt einen Code, in dem es die Daten an der Linie ich hart codiert eingefügt, aber ich muss Daten in nächste verfügbare leere Zeile einfügen. Ich bin nicht in der Lage, einen Weg zu finden, um es zu erreichen.

Bitte helfen.

ich folgenden Code erstellt:

Sub Button1_Click() 

If Not IsEmpty(Worksheets("GUI").Range("J7").Value) Then 
    Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C7").Value 
    Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D7").Value 
    Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J7").Value 
    Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L7").Value 
End If 

If Not IsEmpty(Worksheets("GUI").Range("J8").Value) Then 
    Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C8").Value 
    Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D8").Value 
    Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J8").Value 
    Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L8").Value 
End If 

If Not IsEmpty(Worksheets("GUI").Range("J9").Value) Then 
    Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C9").Value 
    Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D9").Value 
    Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J9").Value 
    Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L9").Value 
End If 

If Not IsEmpty(Worksheets("GUI").Range("J10").Value) Then 
    Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C10").Value 
    Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D10").Value 
    Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J10").Value 
    Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L10").Value 
End If 

' First One Created 
If Not IsEmpty(Worksheets("GUI").Range("J11").Value) Then 
    Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C11").Value 
    Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D11").Value 
    Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J11").Value 
    Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L11").Value 
End If 

If Not IsEmpty(Worksheets("GUI").Range("J12").Value) Then 
    Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C12").Value 
    Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D12").Value 
    Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J12").Value 
    Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L12").Value 
End If 

If Not IsEmpty(Worksheets("GUI").Range("J13").Value) Then 
    Worksheets("DataTogether").Range("G18").Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N18").Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B18").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C18").Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E18").Value = Worksheets("GUI").Range("C13").Value 
    Worksheets("DataTogether").Range("H18").Value = Worksheets("GUI").Range("D13").Value 
    Worksheets("DataTogether").Range("O18").Value = Worksheets("GUI").Range("J13").Value 
    Worksheets("DataTogether").Range("K18").Value = Worksheets("GUI").Range("L13").Value 
End If 


End Sub

Quelle

2017-05-11 Mani

"Bitte lassen Sie mich wissen, ob anderes Detail ist erforderlich" - Ihr aktueller Versuch, einschließlich Der Code als Teil der Frage wäre ein guter Anfang. (Sie werden nichts lernen, wenn Sie es nicht versuchen.) – YowE3K

Hallo @ YowE3K, ich habe die Hauptabfrage mit dem Code aktualisiert, an dem ich gearbeitet habe. Ich bleibe stecken, um die Daten in der nächsten verfügbaren leeren Zeile einzugeben. Momentan harcodiere ich die Zeilennummer wo ich die Daten einfügen möchte. Bitte helfen Sie dabei. Vielen Dank. – Mani

Versuchen Sie, eine Variable zu verwenden, um die letzte verfügbare Zeile in Blatt2 abzurufen, und fügen Sie dann die Werte zu einer neuen Zeile hinzu. 'lr = Arbeitsblätter (" GUI "). Range (" C1: C "& Rows.Count) .end (xlup) .row' Dies gibt Ihnen die letzte Zeile im Blatt" GUI ". Sie können 1 zum Wert von lr hinzufügen und die Werte dort hinzufügen. –

Dies jemand anderes helfen könnte, so antwortet Posting hier:

Sub Button1_Click() 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
If Not IsEmpty(Worksheets("GUI").Range("J7").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C7").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D7").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J7").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L7").Value 
End If 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
If Not IsEmpty(Worksheets("GUI").Range("J8").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C8").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D8").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J8").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L8").Value 
End If 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
If Not IsEmpty(Worksheets("GUI").Range("J9").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C9").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D9").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J9").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L9").Value 
End If 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
If Not IsEmpty(Worksheets("GUI").Range("J10").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C10").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D10").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J10").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L10").Value 
End If 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
' First One Created 
If Not IsEmpty(Worksheets("GUI").Range("J11").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C11").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D11").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J11").Value 
    'Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L11").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L11").Value 
End If 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
If Not IsEmpty(Worksheets("GUI").Range("J12").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C12").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D12").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J12").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L12").Value 
End If 

LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1 
If Not IsEmpty(Worksheets("GUI").Range("J13").Value) Then 
    Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All 
    Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All 
    Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All 
    Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C13").Value 
    Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D13").Value 
    Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J13").Value 
    'Worksheets("DataTogether").Range("K18").Value = Worksheets("GUI").Range("L13").Value 
    Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L13").Value 
End If 


End Sub

Quelle

2017-05-12 08:08:06 Mani

Kopieren Sie einige Spalten von einem Blatt und fügen Sie am Ende auf einem anderen Blatt

Antwort

Verwandte Themen