Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - scalanie nowo utworzonej tabeli

Marcindworzan · Wysłany: 21-01-2023, 17:08 **scalanie nowo utworzonej tabeli**

Witam. Poniżej zamieściłem kod makro, w którym chciałbym ostatecznie scalić wiersze w kolumnie I oraz J, a także K. A mianowicie po przebrnięciu przez nw. makro (utworzy się nowa tabela w zależności od tego, jaką liczbę wierszy się zadeklaruje. Ostatnie dwie "kolumny" będą scalone począwszy od wiersza 29, a skończywszy na ostatnim wierszu utworzonej tabeli. W załączniku umieściłem screen z fazą początkową, po wpisaniu cyfry, np. 5 oraz efekt końcowy.
Z góry dziękuję za pomoc.

Kod:

Sub wstawWiersze()
Dim r As Long, ileW As Long

Application.ScreenUpdating = False

With Sheets("ZESTAWIENIE")
r = .Range("B30:B500").Find("IV. Dane końcowe", LookAt:=xlWhole).Row

If r > 31 Then
.Range("A30:K" & r - 2).Delete Shift:=xlUp
End If

ileW = .Range("F25")
If ileW > 1 Then
.Range("A29:K29").Copy
.Range("A29:K" & 29 + ileW - 2).Insert Shift:=xlDown
End If
'"zresetowanie" ostatniej komórki
.UsedRange
End With

ActiveSheet.Range("F25").Select
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

screen.png

Plik ściągnięto 21 raz(y) 33.94 KB

sp3wbe · Wysłany: 24-01-2023, 16:11

Witaj
Rozwiązanie Twojego problemu można zrealizować za pomocą procedury zdarzeniowej dotyczącej tylko komórki "F25".
Wpisujesz odpowiednią cyfrę określającą ile wierszy ma być połączonych klikasz Enter i wszystko.
Mam tylko nadzieję, że sprostałem Twoim oczekiwaniom.

Pozdrawiam

czenie.xlsm

Pobierz Plik ściągnięto 7 raz(y) 15.76 KB

Marcindworzan · Wysłany: 24-01-2023, 20:53

wszystko super, tylko ostatniej kolumny (K) nie scala :)

sp3wbe · Wysłany: 25-01-2023, 08:39

Witaj
Teraz już scala.
Pozdrawiam

czenie.xlsm

Pobierz Plik ściągnięto 6 raz(y) 19.65 KB

Marcindworzan · Wysłany: 26-01-2023, 14:53

Dziękuję