EXCEL - Modyfikacja procedury VBA: dodawanie i kopiowanie wierszy, zmiana wartości w kolumnie G

Witam,

co ma być zmodyfikowane w procedurze VBA, aby zadziałała.
Procedura ma zadziałać w całym arkuszu w momencie w następujący sposób:
1. Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9, to ma dodać jeszcze 8 wierszy.
2. Ma skopiować dane z wiersza powyżej.
3. W kolumnie G w pierwotnym wierszu jak i skopiowanych wierszach ma być cyfra 1. Żadna inna.

Wierszy mam około 2 000 tyś

Załączam przykładowy plik excel

Cześć. Załącznik jest pusty, w archiwum nie ma żadnego pliku.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
w = Target.Row
If Target.Column = 7 Then
If Target.Value > 1 Then
a = w + 1
b = a + Target.Value - 2
Rows(a & ":" & b).Select
Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(w & ":" & w).Select
Selection.Copy
Rows(a & ":" & b).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End If
End If
End Sub[/code]

W Twoim opisie coś nie gra

SZWAJCAR007 napisał:

Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej.

To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu"

SZWAJCAR007 napisał:

Wierszy mam około 2 000 tyś

2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden arkusz ma bowiem 1048576 wierszy) - to wstawianie nowych wierszy wg kolumny G - ma dotyczyć obu tabel
Makro, które przedstawiłeś jest makrem zdarzeniowym reagującym na zmianę wartości w kolumnie G. Takie zmiany następują w środku tabeli ?, czy raczej chcesz uzyskać automatyczne kopiowanie poprzedniego wiersza poprzez inicjalne wprowadzenie ilości w kolumnie G ?
Proszę o wyjaśnienie. Makro generalnie działa (oprócz wstawiania tej 1 ) dla zmian wprowadzanych w środku przykładowej tabeli.
Jeśli ma działać tylko w środku tabeli to pożądaną funkcjonalność uzyskasz poprzez kod:

To jest tylko około 2 000 rekordów.
Ma kopiować dane ze wszystkich komórek z wiersza powyżej.
Wstawianie nowego wiersza ma być tylko , jeżeli w kolumnie G w komórce jest liczba >1. Np. jezeli jest liczba 5, to ma dodać 4 wiersze, a w wierszu gdzie jest 5, to ma zamienić liczbę na cyfrę 1. Chcę aby to można było zrobić na dodany przycisk odśwież. (ma sprawdzać całą tabelę)

ma teraz zrobione jako wywołanie zdarzenia po zmianie wartości w komórce w kolumnie G, a chcę to zmienić na przycisk odśwież dla całej tabeli.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim w As Long, a As Long, b As Long
w = Target.Row
If Target.Column = 7 Then
If IsNumeric(Target.Value) Then
If Target.Value > 1 Then
Application.EnableEvents = False
Application.ScreenUpdating = False
a = w + 1
b = a + Target.Value - 2
Rows(a & ":" & b).Insert Shift:=xlShiftDown
Target.Value = 1
Rows(w & ":" & b).FillDown
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End If
End If
End Sub

SZWAJCAR007 napisał:

chcę to zmienić na przycisk

To proponuję wykorzystanie kodu typu :

który uruchamiany np. skrótem klawiszy będzie wykonywał pożądane zmiany w każdym aktywnym arkuszu

Dzięki wielkie za kod