Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Tajan
22-01-2023, 16:53
scalanie nowo utworzonej tabeli
Autor Wiadomość
Marcindworzan 
Stały bywalec Excelforum



Wersja: Win Office 2019
Posty: 439
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

ID posta: 424421 Skopiuj do schowka
 
 
sp3wbe 
Stały bywalec Excelforum


Wersja: Win Office 2016
Pomógł: 83 razy
Posty: 380
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 21 raz(y) 15.76 KB

_________________
Tadek
ID posta: 424570 Skopiuj do schowka
 
 
Marcindworzan 
Stały bywalec Excelforum



Wersja: Win Office 2019
Posty: 439
Wysłany: 24-01-2023, 20:53   

wszystko super, tylko ostatniej kolumny (K) nie scala :)
ID posta: 424578 Skopiuj do schowka
 
 
sp3wbe 
Stały bywalec Excelforum


Wersja: Win Office 2016
Pomógł: 83 razy
Posty: 380
Wysłany: 25-01-2023, 08:39   

Witaj
Teraz już scala.
Pozdrawiam

czenie.xlsm
Pobierz Plik ściągnięto 18 raz(y) 19.65 KB

_________________
Tadek
ID posta: 424588 Skopiuj do schowka
 
 
Marcindworzan 
Stały bywalec Excelforum



Wersja: Win Office 2019
Posty: 439
Wysłany: 26-01-2023, 14:53   

Dziękuję
ID posta: 424658 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe