Forum Coders' city Strona Gwna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UytkownicyUytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj si, by sprawdzi wiadomociZaloguj si, by sprawdzi wiadomoci   ZalogujZaloguj 

Potrzebuj szybkiej odpowiedzi na moje pytanie... Zasady

[VBA EXCEL] Dopisywanie danych z tabeli dynamicznej



 
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz nastpny temat  
Autor Wiadomo
Artur093



Doczy: 08 Pa 2017
Posty: 2

PostWysany: Nie Pa 08, 2017 4:01 pm  OP    Temat postu: [VBA EXCEL] Dopisywanie danych z tabeli dynamicznej Odpowiedz z cytatem Pisownia

Dzie dobry,
jestem pocztkujcym w programowaniu i od niedawna, aby usprawni swoj prac postanowiem zagbi swoj wiedz dotyczca tabel. Do tej pory, aby porwna / dopisa jakie dane, uywaem makra, ktre otwiera plik, ktry wska, kopiuje jego ca zawarto, wkleja do nowego arkusza i dopiero zaczyna porwnywa dane formuami (najczciej do tego uywaem INDEX - PODAJ POZYCJ).
Kod jaki uywam do wpisania danych do tablic wyglda w tej chwili nastpujco:
Kod:

Sub Wczytanie()
Dim tablica1() As Variant
Dim a As Integer
Dim b As Integer
    
'otwarcie pliku

MsgBox ("Wczytaj plik")
MonthlyWB = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Open Production Report")

8 Workbooks.Open MonthlyWB
Filename = ActiveWorkbook.Name
arkusznazwa = ActiveSheet.Name

'od komrki a8 zaczynaj si nagwki, ktre mnie interesuj
'do zmiennych wyliczam ile w danym pliku znajduje si kolumn oraz wierszy z interesujcymi mnie danymi
'Np. w kolumnie A znajduje si kod towaru, B nazwy, C iloci, D ceny itd...

Range("a8").Select
        j = ActiveCell.Row
        k = Selection.End(xlDown).Row
        x = ActiveCell.Column
        y = Selection.End(xlToRight).Column

'wrzucenie danych (wierszy i kolumn okreslonych w zmiennych) do tablica1
    
        tablica1 = Range(Cells(1 + j, 1), Cells(k, y))
'zamkniecie wskazanego pliku
Workbooks(Filename).Close savechanges:=False

End Sub


I od tego miejsca brakuje mi kodu, ktry wyszuka wpisany przeze mnie kod wpisany w arkuszu w pierwszej kolumnie w pobranej przed chwil tablicy oraz przypisze obok np. nazw rwnie z tablicy z drugiej kolumny. Postaraem si opisa to jak najdokadniej. Moe jestecie w stanie nakierowa mnie na podobny kod, ktry mog zmodyfikowa.
Z gry dzikuj za pomoc i pozdrawiam
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
karolinavb
Site Admin


Doczy: 25 Maj 2005
Posty: 7833

PostWysany: Pon Pa 09, 2017 8:47 am      Temat postu: Odpowiedz z cytatem Pisownia

- Selection nie jest potrzebne
- obsuga bdw niezbdna
Reszt sobie dostosuj lub dokadniej sprecyzuj zaoenia...



dwa_skoroszyty.rar
 Opis:

Pobierz
 Nazwa pliku:  dwa_skoroszyty.rar
 Wielko pliku:  33.75 KB
 Pobierano:  6 raz(y)

Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Artur093



Doczy: 08 Pa 2017
Posty: 2

PostWysany: Pon Pa 09, 2017 6:32 pm  OP    Temat postu: Odpowiedz z cytatem Pisownia

super, dziaa tak jak chciaem, pewnie teraz kolejny tydzie bd to przerabia pod siebie :D ale o to chodzi ja jestem samoukiem :)
niestety tylko po tym co zobaczyem w Twoim kodzie, uwiadomiem sobie, e moja wiedza nt. VBA jest na poziomie raczkujcego dziecka :/
Zapewne urodz si u mnie pytania to tylko kwestia czasu, ale nie omieszkam dopytywa
dzikuj jeszcze raz i pozdrawiam :)
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Wywietl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Moesz pisa nowe tematy
Moesz odpowiada w tematach
Nie moesz zmienia swoich postw
Nie moesz usuwa swoich postw
Nie moesz gosowa w ankietach
Moesz dodawa zaczniki na tym forum
Moesz pobiera pliki z tego forum




Debug: strone wygenerowano w 0.13344 sekund, zapytan = 13
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |