ID tematu: 76164
|
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
|
|
|
|
|
|
|
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
|
|
|
|
|
|
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
|
|
|
|
|
|
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
|
|
|
|
|
|
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
|
|
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
Wysłany: 13-10-2024, 00:07
|
|
|
Dzięki super |
|
| ID posta:
437303
|
|
|
|
|
|
|
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
|
|
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
|