VBA.Mania

Dziś jest niedziela, 28 kwietnia 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Makro import\export danych otwarty rozpoczął: toczi1 postów: 49

napisał: toczi1 postów: 75 umieszczony: 13 lipca 2016 19:34
	Próbowałem zrobić przycisk Export pozamieniałem tylko nazwy zakładek tam gdzie UNA W WYPOŻYCZALNI zamieniłem na UNA WYPOŻYCZONE i na odwrót ale błąd jest przy Private Sub CommandButton1_Click() bo chyba jest przypisany do czegoś.

napisał:

toczi1
postów: 75

umieszczony:
13 lipca 2016
19:05

edytowany:
13 lipca 2016
19:50

nazwa pliku	rozmiar
dane.xlsm	66.92 kB

Cytat:

Czy chcesz zrozumieć co która linia wykonuje?
Np.

.Range(.Cells(ListBox1.List(i, 2), 1), .Cells(ListBox1.List(i, 2), .Columns.Count).End(xlToLeft)).Copy Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 1)

linia ta kopiuje część wiersza z arkusza "wypożyczalni" z indeksem ListBox1.List(i, 2) zapisanego w trzeciej kolumnie ListBox1. Ponieważ kolumny i wiersze w ListBox numeruje się od 0 to 2 oznacza trzecią kolumnę.
Docelową komórką kopiowania jest komórka w wierszu "ostatni" w kolumnie 1 w arkuszu Sheets("UNA WYPOŻYCZONE")

Teraz jeśli chcesz usuwać całe wiersze z arkusza "Wpożyczalni" to najłatwiej będzie to zrobić od wiersza z najwyższym indeksem, czyli pierwsze usuwasz wiersz zapisany na ostatniej pozycji listy.
Jeśli nie chcesz usuwać całego wiersza a tylko zawartość komórek kolejność nie robi różnicy.

Linia usuwająca pojedynczy wiersz jest dość prosta:

.Rows(ListBox1.List(i, 2)).Delete

Spróbujesz zrobić całą procedurę usuwania samodzielnie?

A opis mógł by się przydać co jaka linia robi tak na przyszłość fajnie by było

No spróbowałem i działa to usuwanie nawet proste ale ja to jestem bardzo dobry ale w programowaniu maszyn pomiarowych i skanerów 3d

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
.Range(.Cells(ListBox1.List(i, 2), 1), .Cells(ListBox1.List(i, 2), .Columns.Count).End(xlToLeft)).Copy Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 1)
ostatni = ostatni + 1
.Rows(ListBox1.List(i, 2)).Delete
End If

napisał: Trebor postów: 1209 umieszczony: 13 lipca 2016 18:32
	Czy chcesz zrozumieć co która linia wykonuje? Np. .Range(.Cells(ListBox1.List(i, 2), 1), .Cells(ListBox1.List(i, 2), .Columns.Count).End(xlToLeft)).Copy Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 1) linia ta kopiuje część wiersza z arkusza "wypożyczalni" z indeksem ListBox1.List(i, 2) zapisanego w trzeciej kolumnie ListBox1. Ponieważ kolumny i wiersze w ListBox numeruje się od 0 to 2 oznacza trzecią kolumnę. Docelową komórką kopiowania jest komórka w wierszu "ostatni" w kolumnie 1 w arkuszu Sheets("UNA WYPOŻYCZONE") Teraz jeśli chcesz usuwać całe wiersze z arkusza "Wpożyczalni" to najłatwiej będzie to zrobić od wiersza z najwyższym indeksem, czyli pierwsze usuwasz wiersz zapisany na ostatniej pozycji listy. Jeśli nie chcesz usuwać całego wiersza a tylko zawartość komórek kolejność nie robi różnicy. Linia usuwająca pojedynczy wiersz jest dość prosta: .Rows(ListBox1.List(i, 2)).Delete Spróbujesz zrobić całą procedurę usuwania samodzielnie?

napisał: toczi1 postów: 75 umieszczony: 13 lipca 2016 17:29 edytowany: 13 lipca 2016 17:46
	Cytat: Powolutku dojdziemy do wszystkiego. W załączniku projekt dla przycisku import. Rozglądnij się co i jak. Jeśli będzie trzeba dopiszę komentarze do makra. Napisz czy tak to miało działać. Makro w tej wersji nie będzie demonem szybkości, ale dla krótkiej listy powinno być wystarczające. Ok wyszukuje rewelacja kopiuje też ale to co importuje do "UNA WYPOŻYCZONE" to powinno wyciąć ten wiersz w zakładce "UNA W WYPOŻYCZALNI" bo jeśli wyszukam to jeszcze raz to ono znajduje się w tamtej zakładce a nie powinno bo jeśli potem będę to eksportował to utworzy mi się duplikat.I przy eksportowaniu z UNA WYPOŻYCZONE tez musi wycinać ten wiersz. Jednym słowem ten sam materiał i numer seryjny nie moze byc jednoczesnie w obydwu zakladkach A co do szybkości to wkleiłem resztę moich narzędzi ok. 500 wierszy i śmiga fajnie

napisał: Trebor
postów: 1209

umieszczony:
13 lipca 2016
16:48

nazwa pliku	rozmiar
Dane.xlsm	59.37 kB

Powolutku dojdziemy do wszystkiego.
W załączniku projekt dla przycisku import. Rozglądnij się co i jak. Jeśli będzie trzeba dopiszę komentarze do makra.
Napisz czy tak to miało działać. Makro w tej wersji nie będzie demonem szybkości, ale dla krótkiej listy powinno być wystarczające.

napisał: toczi1 postów: 75 umieszczony: 13 lipca 2016 15:07
	A nie wiem czy jest taka techniczna możliwość dodania przycisku DODAJ UNA i żeby po wciśnięciu wyskakiwało okno do uzupełniania danych w wierszu i żeby to dodawało w wolny wiersz w zakładce "UNA WYPOŻYCZONE" Byłoby super jakby dało się to wszystko zrobić

napisał: toczi1 postów: 75 umieszczony: 12 lipca 2016 18:11 edytowany: 12 lipca 2016 22:36
	Cytat: Nie będzie to szczególnie trudne. Z założenia forum wszelka wymiana informacji, pliki, uzgodnienia będą odbywać się na forum. Jeśli to akceptujesz to proszę o uzupełnienie założeń. Czy wyszukiwanie ma się odbywać dla zawartości całej komórki? Czy w obydwu kolumnach ma być szukany ten sam tekst? Czy szukamy do pierwszego trafienia? Ponieważ używasz filtrów, to czy szukanie ma się odbywać w widocznych komórkach (nie szukamy w ukrytych)? Na początek wystarczy pytań, reszta wyjdzie w trakcie wykonywania projektu. Pozdrawiam Tak wyszukiwanie ma się odbywać dla całej zawartości Tak ten sam teks w obydwu kolumnach Szukamy do kilku trafień bo może być ten sam materiał ale inny numer seryjny Tak nie szukamy w ukrytych komórkach. O i jeszcze jakby sie dało prócz tego przyciku import export to tez w zakładce 1 przycisk Szukaj aby szukać po tekście w kolumnie A i B jakiegoś np. materiału Tak dla scisłosci to zakładka 1 bedzie sie nazywac "UNA WYPOŻYCZONE" a zakładka 2 "UNA W WYPOŻYCZALNI"

napisał: Trebor postów: 1209 umieszczony: 8 lipca 2016 21:40
	Nie będzie to szczególnie trudne. Z założenia forum wszelka wymiana informacji, pliki, uzgodnienia będą odbywać się na forum. Jeśli to akceptujesz to proszę o uzupełnienie założeń. Czy wyszukiwanie ma się odbywać dla zawartości całej komórki? Czy w obydwu kolumnach ma być szukany ten sam tekst? Czy szukamy do pierwszego trafienia? Ponieważ używasz filtrów, to czy szukanie ma się odbywać w widocznych komórkach (nie szukamy w ukrytych)? Na początek wystarczy pytań, reszta wyjdzie w trakcie wykonywania projektu. Pozdrawiam

napisał:

toczi1
postów: 75

umieszczony:
7 lipca 2016
21:27

nazwa pliku	rozmiar
Dane.xlsx	46.89 kB

Witam mam prosbe o pomoc w napisaniu makra:
Chodzi mi o to aby np:
w zakładce 1 mam listę danych
w zakładce 2 są dane nie używane
potrzebuje makra aby po wciśnięciu przycisku Import uruchamiało się makro z pojawiającym się oknem w którym wpisujemy szukany tekst w zakładce 2 np w kolumnie A i B a następnie po znalezieniu tekstu przenosiło cały wiersz do zakładki 1 w pierwszy wolny wiersz.Potrzebuje żeby szukało tekstu w 2 kolumnach ponieważ pierwsza kolumna może się powtórzyć ten sam numer

I analogicznie tylko przycisk export i znaleziony tekst zakładce 1 przenosiło w całości do zakładki 2 i usuwało ten wiersz z zakładki 1

Prosił bym o email jeśli jest mozliwosc zrobienia tego Toczi1@o2.pl

wstecz 1 2 3 dalej

wszystkich stron: 3