Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA - Kopiowanie wiersza z formantami po kliku w przycisk

imp.treal 16 Sie 2015 21:49 756 3
  • #1 16 Sie 2015 21:49
    imp.treal
    Poziom 5  

    Witajcie,

    Mam problem natury technicznej. Nie wiem w jaki sposób dodać nowy wiersz w określonym miejscu arkusza. Chodzi mi o to, aby po kliknięciu przycisku, w danym obszarze (kol. kategoria) pojawiał się nowy wiersz na końcu kategorii , w kolumnie E pojawiło się puste miejsce na dodatkowy atrybut, a z kolumny F i G skopiowały się chceckboxy (odznaczone).

    Na podstawie różnych tematów z forum udało mi się dojść do wstawiania całego wiersza w pożądanym miejscu. Brakuje mi jeszcze kopiowania tych checkboxów.

    Uprzejmie proszę o pomoc bądź naprowadzenie na odpowiedni temat.

    PS. W załączniku kod źródłowy i sam plik, aby łatwiej było zrozumieć o co mi chodzi.

    0 3
  • #2 17 Sie 2015 12:56
    JRV
    Specjalista - VBA, Excel

    Jeśli to nie byli scalone komórki(kolumna D), byłoby łatwiej
    zamiast

    Code:
        If Not (Rn Is Nothing) Then
    
            Rn.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        End If

    wpisz
    Code:
        If Not (Rn Is Nothing) Then
    
            Rn.EntireRow.Copy
            Rows(Rn.Row).Offset(1).Insert Shift:=xlDown
            Application.CutCopyMode = False
        End If

    tylko we wlasciwosci CheckBox'ow wstaw nie np. $F$20 a F20
    Jak scalone komorki D, dziala kopie przycisku

    Dodano po 2 [minuty]:

    Dla numeracji w B11 wpisz =B10+1 a przeciagnij w dol

    0
  • #3 18 Sie 2015 10:51
    imp.treal
    Poziom 5  

    Wyszło świetnie. Dziękuję za pomoc. pomogło

    0
  • #4 27 Wrz 2015 22:12
    imp.treal
    Poziom 5  

    Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak

    0