Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 76164 Skopiuj do schowka Pobieranie danych z jednej tabeli do drugiej
Autor Wiadomość
daniels1186 
Fan Excela


Wersja: Mac Office 2016
Posty: 70
Wysłany: 11-10-2024, 03:28   Pobieranie danych z jednej tabeli do drugiej

Witam. Chciałbym aby po wybraniu odpowiedniego pomieszczenia w tabeli w arkuszu2 zostały pokazane wszystkie czynności jakie zostały wykonane w danym pomieszczeniu z tabeli z arkusza 1 wraz z wszystkimi danymi.

kopiowanie do tabel.xlsm
Pobierz Plik ściągnięto 12 raz(y) 14.19 KB

ID posta: 437284 Skopiuj do schowka
 
 
Tadek 
Excel Expert


Wersja: Win Office 2010
Pomógł: 2219 razy
Posty: 6115
Wysłany: 11-10-2024, 06:50   

Można takim makrem:
Kod:
Sub pobierz()
Dim i&, w&, ost&
Dim wynik()
With Sheets("Arkusz1")
    ost = .Cells(Rows.Count, "D").End(xlUp).Row
    ReDim wynik(1 To ost, 1 To 5)
For i = 9 To ost
    If .Cells(i, "D").Value = [wybor] Then
        w = w + 1
        wynik(w, 1) = .Cells(i, "E").Value
        wynik(w, 2) = .Cells(i, "F").Value
        wynik(w, 3) = .Cells(i, "G").Value
        wynik(w, 4) = .Cells(i, "H").Value
        wynik(w, 5) = .Cells(i, "I").Value
    End If
Next
  If w > 0 Then
    With Sheets("Arkusz2")
        .Range("Tabela5").ClearContents
        .Range("E10").Resize(w, 5) = wynik
    End With
  End If
End With
End Sub
Zobacz w zaączniku.

kopiowanie do tabel.xlsm
Pobierz Plik ściągnięto 11 raz(y) 24.05 KB

ID posta: 437286 Skopiuj do schowka
 
 
xfish 
Excel Expert



Wersja: Win Office 2013
Pomógł: 778 razy
Posty: 2294
Wysłany: 11-10-2024, 07:34   

Może tabela przestawna?

kopiowanie do tabel.xlsm
Pobierz Plik ściągnięto 8 raz(y) 17.77 KB

_________________
Pozdrawiam xFish
ID posta: 437287 Skopiuj do schowka
 
 
daniels1186 
Fan Excela


Wersja: Mac Office 2016
Posty: 70
Wysłany: 11-10-2024, 16:59   

Fajne rozwiązania :-)
A byłaby taka możliwość aby z tabeli z arkusza 1 gdzie dane są pomieszane pobierało je do tabeli w arkuszu 2 jednocześnie sortująć je według pomieszczeń.

kopiowanie do tabel2.xlsm
Pobierz Plik ściągnięto 7 raz(y) 14 KB

ID posta: 437296 Skopiuj do schowka
 
 
Tadek 
Excel Expert


Wersja: Win Office 2010
Pomógł: 2219 razy
Posty: 6115
Wysłany: 12-10-2024, 11:02   

Spróbuj tak:
Kod:
Sub kopiuj()
Application.ScreenUpdating = False
With Sheets("Arkusz2")
.Range("Tabela5").ClearContents
Sheets("Arkusz1").Range("Tabela1").Copy
.Range("D9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("Tabela5").Sort key1:=.Range("Tabela5[pomieszczenie]"), order1:=xlAscending, Header:=xlNo, dataoption1:=xlSortNormal
Application.CutCopyMode = False
.Range("D9").Select
End With
Application.ScreenUpdating = True
End Sub
Zobacz w załączniku.

kopiowanie do tabel2.xlsm
Pobierz Plik ściągnięto 14 raz(y) 25.55 KB

ID posta: 437297 Skopiuj do schowka
 
 
daniels1186 
Fan Excela


Wersja: Mac Office 2016
Posty: 70
Wysłany: 13-10-2024, 00:07   

Dzięki super :clap
ID posta: 437303 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe