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
Przesunięty przez: Artik
08-06-2020, 10:15
kopiowanie komórek zależnych od innych komórek
Autor Wiadomość
robek
Fan Excela


Posty: 68
Wysłany: 06-06-2020, 13:38   kopiowanie komórek zależnych od innych komórek

Witam

Potrzebuje stworzyć makro które by przyporządkowało dane komórki do innych na podstawie innego pliku, w pewnym stopniu to zrobiłem ale nie dział tak jak bym chciał.
Załączam plik. W komórkach od S do AC sa dane które są "pociągnięte" ( jest tam formuła) z innego pliku, na podstawie kolumny E.
Ta formuła działa na zasadzie - jak utworze cały plik (trochę większy niz załączony) i wklej moja formułe , to za chwile zapyta sie z kad ma pobrać dane jak wskaże i jest ok.
Zależy mi aby stworzyć makro które po uruchomieniu zapyta sie skąd mam pobrać dane i automatyczny wypełnię wszystkie kolumny od S do AC do 250 wiersza powinno wystarczyć

rtw.xlsx
Pobierz Plik ściągnięto 13 raz(y) 148.76 KB

ID posta: 388405 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 06-06-2020, 13:42   

Załącz plik źródłowy.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 388406 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 07-06-2020, 08:56   

Załączam plik źródłowy,
Na podstawie orginalnego pliku źródłowego stworzyłem nowy, gdyż oryginalny wazy ponad 2 mb.
Nawet po wykasowaniu dany, jest w nim tyle ukrytych formuł komórek i tp ze waga niewiele sie zmienia .

plik źródłowy 2.xlsx
Pobierz Plik ściągnięto 14 raz(y) 13.36 KB

ID posta: 388420 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 07-06-2020, 16:14   

Testuj czy o to chodziło.
Założyłem, że pliki masz w tym samym folderze, jeżeli nie, zmień w kodzie na Twoją ścieżkę do folderu z plikami źródłowymi.
dm

rtw 1.xlsm
Pobierz Plik ściągnięto 8 raz(y) 36.64 KB

ID posta: 388428 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 08-06-2020, 09:56   

W tej linijce "For i = 1 To UBound(tbl)" wyskakuje mi jakiś błąd - próbuje sam zmienić ale nie wiem co on ona oznacza

Kod:
        For i = 1 To UBound(tbl)
            r = .Range("E12", "E" & LstT).Find(tbl(i, 1), LookIn:=xlValues, LookAt:=xlWhole).Row
            For j = 2 To 50
                 .Cells(r, j + 17) = tbl(i, j)
            Next j
        Next i
    End With
End With
.CutCopyMode = False

.DisplayAlerts = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
'On Error GoTo 0
ID posta: 388452 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9729
Wysłany: 08-06-2020, 10:18   

robek napisał/a:
wyskakuje mi jakiś błąd
Nie jest on jakiś, tylko konkretny. Ma pewnie numer i opis.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 388455 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 08-06-2020, 10:54   

tak, źle się wyraziłem, sorry

Run-time error 13
type mismath
ID posta: 388463 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 08-06-2020, 13:34   

Cos jest nie tak, bo wykonają tą operacje na tych plikach co mi przysłałeś - wyskakuje dokładnie ten sam błąd.
ID posta: 388471 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 08-06-2020, 14:58   

Ja nawet wiem co jest nie tak.
Porównaj sobie numery produktów w obu plikach. W nowym załączniku dodałem obsługę błędów -na wypadek braku nr. w pliku rtw.
dm

rtw 1.xlsm
Pobierz Plik ściągnięto 10 raz(y) 36.3 KB

ID posta: 388475 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 09-06-2020, 15:02   

Dzięki, teraz działa, tylko nie kopiuje tych danych na których mi zależy.
Kopiuje kolumny od A do V.
A zależy mi aby z pliku źródłowego kopiował kolumny (AM do AW )
ID posta: 388518 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 09-06-2020, 16:22   

Jak to nie kopiuje? Sprawdź trochę dalej kolumny BD-BO, w tym fragmencie
Kod:
With dane.Sheets("Arkusz1")
    Lst = .Cells(.Rows.Count, "A").End(xlUp).Row
    tbl = .Range("A3:AX" & Lst)
End With
makro pobiera do tablicy z pliku źródłowego obszar od A3 do AX ostatni wypełniony wiersz.
Skoro ma być tylko od AM do AW drobna poprawka.

rtw 1.xlsm
Pobierz Plik ściągnięto 8 raz(y) 36.98 KB

ID posta: 388524 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 09-06-2020, 18:15   

cos jest z tym mim plikiem źródłowym nie tak .
Nie mogę go załączyć bo jest zacieżki, ale z niego nie chce pociągnąć danych.
załączam foto cześć z której powinien ciagnać dane .
Plik ma kilka zakładem ( możne to ma wpływ).
Dodatkowo nowy plik na którym to robię

Przechwytywanie2.PNG
Plik ściągnięto 12 raz(y) 58.39 KB

RTWtest.xlsm
Pobierz Plik ściągnięto 8 raz(y) 415.27 KB

ID posta: 388533 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 09-06-2020, 19:53   

robek w każdym pliku masz inne nazwy arkuszy, tak się nie da. W kodzie masz wpisane nazwy arkuszy jak zmienisz w pliku zmieniaj i w makro.
Używaj kodu z ostatniego pliku.
dm
ID posta: 388537 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 09-06-2020, 20:21   

Ok dzięki już wszystko dział super !!!!
ID posta: 388540 Skopiuj do schowka
 
 
robek
Fan Excela


Posty: 68
Wysłany: 17-06-2020, 20:47   

Witam ponownie

Trochę zmienił mi sie plik źródłowy i niby zmieniłem dane, ale widać nie do końca bo nie działa.
Potrzebuje by kopiował dane z kolumny G, H, I .
Gdzie jest w formule zapisane w które kolumny są wklejane dane z pliku źródłowego? , możne to tez będę musiał zmienić.
Z góry dziękuje za pomoc

RTW2.xlsx
Pobierz Plik ściągnięto 6 raz(y) 108.41 KB

ID posta: 388764 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.marketingNET.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