X
ďťż

Mefisto...diabeł czy anioł?

Witam,
Potrzebuję stworzyć arkusz, który będzie mi kolekcjonował dane z całego roku, które byłyby przepisywane z aktualizowanego arkusza miesięcznego, i tam musiałby znaleźć nazwisko z arkusza miesięcznego i wpasować się w arkusz roczny i przekopiować wartość z komórki do odpowiedniego wiersza odpowiadającego aktualnemu miesiącowi.

Zrobiłem coś takiego, ale to amatorka i nie chce mi działac...
Pomożecie?


Sub Czas_roczny()

Dim f As Integer
Dim W As Range
Dim K As Range
   
For f = 5 To 190
Set W = Worksheets(10).Range("B3:B62").Find(Worksheets(9).Range("AW" & f))
Set K = Worksheets(10).Range("D2:O2").Find(Worksheets(9).Range("B2"))
   
Worksheets(9).Range("AW" & f + 1).Copy
Worksheets(10).Select
Cells(W.Row, K.Column).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next f

End Sub

[ Dodano: 2009-08-26, 14:41 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.