GoldenLine
Zaloguj się
Dawid Chrobok

Dawid Chrobok Maintenance Engineer
in EDF

Temat: Kopiowanej danego wersu w zależności od wybranego czynnika

Dzień dobry!
Mam mały problem z excelem i nie mogę go rozwiązać.

Najprościej wytłumaczę to na przykładnie jadłospisu :)

W jednym arkuszu (1) mam wprowadzoną listę produktów i poszczególne potrawy. Do każdej potrawy w systemie 0,1 jest przypisane, czy produkt jest potrzebny czy nie.

W kolejnym arkuszu (2) mam w komórach (lista rozwijana) potrawy do wyboru.

Jak zrobić tak że jak wybiorę w arkuszu 2 np kanapkę z szynką to żeby skopiował mi obok wartości dla tej kanapki z arkusza 1 (cały wers)?

Mam nadzieję, że w miarę zrozumiale to wyszło :)

Z góry dzięki za pomoc!
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Kopiowanej danego wersu w zależności od wybranego czynnika

(cały wers)
Czy chodzi o wiersz?

Najprościej wykonać to w pętli przy użyciu VBA.
-Kasujesz dane z arkusza2
-Sprawdzasz obszar z wypełnionym 0/1 w warunku w pętli
-Jeśli = 1 to kopiujesz wiersz

Miej więcej może to wyglądać tak:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then Call kopiuj

End Sub



Sub kopiuj()

Dim docel As Worksheet: Set docel = ActiveWorkbook.Worksheets("Arkusz2")

Dim x&, max_row&: max_row = Cells(Rows.Count, "a").End(xlUp).Row

Dim nast&: nast = 1

docel.Cells.ClearContents

For x = 1 To max_row

    If Cells(x, 1) >= 1 Then Rows(x).Copy docel.Cells(nast, 1): nast = nast + 1

Next x

End Sub

Umieść to w module arkusza spisu gdzie wybierasz dania.
Zakładam ze w kolumnie "A" następuje wybór, a liczba pow 0 kopiuje listę dań do drugiego arkusza.
Granicą wyszukiwania w tej kolumnie jest ostatnia komórka w kol A.
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Kopiowanej danego wersu w zależności od wybranego czynnika

http://dziendobry.tvn.pl/wideo,2064,n/jak-zrobic-maslo...
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj