Excel : Kopieren Sie die gesamte Zeile auf anderes Blatt mit VBA

Suche ich eine Hilfe aus allen excel-VBA-Experten.

Ich anbei die excel-Datei als Referenz.

In der "Eingabe" - Blatt gibt es die Produktion Zeitplan, die erzeugt werden, auf "Absenden" - button klicken. Und der gleiche Zeitplan wird auch KOPIERT in "Ausgabe" - Blatt. Aber ich bin nicht in der Lage, fügen Sie es an die gewünschte Position (blau markierter Bereich).

Weitere Herausforderung, die es für mich zu behalten, relevante Daten für den jeweiligen Jahres und löschen Sie den rest.
Das heißt, nehme an ein schdule für 34 Jahre, wenn ich nun wieder schaffen, mit 20 Jahren wird es die Werte von Klasse I-und Klasse II-bis zu 20 Jahren nur und löschen den rest.

Dieselbe hat in der Ausgabe Blatt auch.

Jemand bitte helfen am frühesten.

Dank und Grüße,

Santosh

Den code innerhalb Submit_Click:

**Sub Submit_Click()
`enter code here`Dim no_years As Integer
Dim i_val As Integer
Range("c10").Activate

ActiveCell.EntireRow.Clear

ActiveCell = Range("b3").Value
no_years = Range("b4").Value
i_val = Range("b5").Value


Do While no_years > 0
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = DateAdd("YYYY", i_val, ActiveCell.Offset(0, -1).Value)

no_years = no_years - 1

Loop

' copy production schedule calender to all sheets
ActiveCell.EntireRow.Copy Destination:=Sheets("Output").Range("A" & Rows.Count).End(xlUp).Offset(1)

MsgBox ("Production schedule calendar generated")
End Sub**
  • Wo ist die "angehängte" Datei?
InformationsquelleAutor Santosh Kumar Ghosh | 2015-06-04
  1. 0

    Den einfachen Weg, dies zu tun:

    ActiveSheet.Rows("1:1").Copy
Sheets("Output").Paste

    Ist es das, was du suchst?

    InformationsquelleAutor David
  2. 0

    Bekomme ich ähnliches Problem und fand die Lösung:
    Acyou können mit dieser Auswahl "B§" direkt als (ich nehme an, Ihre aktuelle Arbeitsblatt wird als Sht)

    Sht.Cells(3, 2).EntireRow.Copy 'or the other way in comments
'ActiveCell = Range("b3").Value  
'ActiveCell.EntireRow.Copy
Sheets("Output")Range("A" & Rows.Count).PasteSpecial Paste:=xlValues
    InformationsquelleAutor Heinreich213
  3. 0

    Ich bin nicht sicher, was ist die gewünschte Position meinst du? Ist es der 1. Spalte der AUSGANGS-Arbeitsblatt? Ich erhöhte Ihren aktuellen code ein. Was die zweite Herausforderung, die ich Total nicht verstehen, was Sie auszudrücken versuchen. Vielleicht sollte man den Bildschirm gedruckt oder senden Sie mir die excel-Datei, so dass ich es sehen kann.

    Option Explicit
Dim CurrentWorkbook As Workbook
Dim InputWorksheet As Worksheet
Dim OutputWorksheet As Worksheet

Sub Submit_Click()

Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name)
Set InputWorksheet = CurrentWorkbook.Sheets("Input")
Set OutputWorksheet = CurrentWorkbook.Sheets("Output")

Dim NumberOfYear As Long
Dim IntervalOfYear As Long
Dim ColumShift As Long

ColumShift = 1
InputWorksheet.Range("c10").EntireRow.Clear
InputWorksheet.Range("c10").Value = InputWorksheet.Range("B3").Value

NumberOfYear = InputWorksheet.Range("b4").Value
IntervalOfYear = InputWorksheet.Range("b5").Value

Do While NumberOfYear > 0
InputWorksheet.Range("c10").Offset(0, ColumShift).Value = DateAdd("YYYY", IntervalOfYear, InputWorksheet.Range("c10").Value)
NumberOfYear = NumberOfYear - 1
ColumShift = ColumShift + 1
Loop

' copy production schedule calender to all sheets
ActiveCell.EntireRow.Copy Destination:=Sheets("Output").Range("A" & Rows.Count).End(xlUp).Offset(1)

MsgBox ("Production schedule calendar generated")
End Sub
    InformationsquelleAutor keong kenshih
Schreibe einen Kommentar