Temat: Automatyczne kopiowanie komórek do wiersza poniżej - jak?

Witajcie...Dzien dobry:) I...mam krótkie pytanie. Mam arkusz, w arkuszu mam poziomo ułożone dane dotyczące 'pracowników' (chyba nieśmiertelny przykład) :) Np: A1-imię, B1-Nazwisko, C1-Dział, D1-pensja, E1-liczba dzieci, itd... Z zasady wierszy dotyczących konkretnego pracownika jest kilka, różnią się one np numerami działów (gdyż pracownik w czasie roku zmienił dział). Przy czym jedynie pierwszy wiersz dla konkretnego pracownika jest 'pelny" (ma wszystkie dane), wiersz drugi, trzeci i kolejne (jeśli są), mają wypełnione tylko pole w którym jest inna wartość niż w wierszu powyżej. Np A1-Jan, B1-Kowalski, C1-DEP001, D1-2000Euro.Wiersz kolejny A2-pusty, B2-pusty, C2- DEP879, D2-pusty...
Wierszy bedzie co najmniej kilkaset :)
Jak taki skoroszyt 'uzupelnic - tzn jak sprawic zeby (w podanym powyzej przykladzie) dane a kom A1, B1, D1, E1, zostaly skopiowane do ponizszego wiersza (w ktorym odpowiednie komórki sa puste), jednocześnie nie zmieniając wartości z kom C1 (gdyz w obu wierszach wartości te są rózne...
mam nadzieje ze dobrze wytlumaczylem. dziekuje z gory za pomoc :)

Temat: Automatyczne kopiowanie komórek do wiersza poniżej - jak?

Spróbuj użyć poniższego kodu:

Sub pracownicy()



Dim rZakr As Range



Set rZakr = ActiveSheet.Range("A1").CurrentRegion



For Each cl In rZakr

If cl.Value = "" Then

cl.Value = cl.Offset(-1, 0).Value

End If

Next



Set rZakr = Nothing



End Sub

Temat: Automatyczne kopiowanie komórek do wiersza poniżej - jak?

Rozwiązanie bez VBA:
Zakładając, że Twoje dane wyglądają tak (pozwolisz, że dla pewności za Tobą powtórzę):

A1:C1 = {Imię, Nazwisko, Pensja}
A2:C2 = {Anna, Kowalska, 1000}
A3:C3 = {Pusta,Pusta,2000}
A4:C4 = {Pusta,Pusta,3000}
A5:C4= {Jan, Kowalski, 5000}
A6:C6 = {Pusta,Pusta,6000}
A7:C7 = {Pusta,Pusta,7000}

i masz pewność, że wiersze 6 i 7 odnoszą się do wiersza 5 oraz wiersz 3 i 4 odnoszą się wiersza 2 i nie ma od tego odstępstw dla kolejnych osób(!) to, wykorzystując tylko Excela możesz zrobić tak:

1. Zaznacz cały zakres z danymi: dla mojego przykładu A1:C7.
2. Przejdź do komórek pustych: Ctrl+G->Specjalnie->Puste->Ok.
3. Wpisz do komórki aktywnej [białej w zaznaczeniu] (zakładam, że jest to komórka A3) formułę:
=A2
4. Zatwierdź przy użyciu Ctrl+Enter.
5. Skopiuj i wklej cały zakres jako wartości.

Pozdrawiam Tomasz Gryzio

Temat: Automatyczne kopiowanie komórek do wiersza poniżej - jak?

jej...genialne!!!

dziala wszystko!!:)

Dziekuje serdecznie!!:)