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

VBA Makro - InputBox wstawiający tekst do aktualnie zaznaczonej komórki

05 Gru 2018 13:50 240 1
  • Poziom 1  
    Cześć! :)

    Mam taki problem:
    Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała się liczba porządkowa (o 1 większa od poprzedniej, to oczywiste), a w kolumnie P pojawiała się suma wartości z wiersza przypisanego do tej osoby z kolumn D-O.

    Na ten moment znalazłem makro wyszukujące pierwszą pustą komórkę w tej kolumnie:

    Code:
    Sub WstawOsobe()
    
    '
    Range("C8").Select
        If IsEmpty(ActiveCell.Offset(1, 0)) Then
            ActiveCell.Offset(1, 0).Select
        Else
            ActiveCell.End(xlDown).Offset(1, 0).Select
        End If
       
    End Sub


    Mam też formułę na InputBox, ale wypełniającą konkretnie komórkę A1:

    Code:
    Sub Wstaw()
    
    Range("A1") = InputBox("Uzupełnij komórkę A1")
    End Sub


    I teraz chciałbym to połączyć:
    - InputBox wstawiający do ostatniej wolnej komórki imię i nazwisko (kolumna C)
    - Liczba porządkowa
    - Suma komórek z kolumn D:O w kolumnie P.


    Z góry bardzo dziękuję za wskazówki :)
  • Poziom 34  
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod