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: 64071 Skopiuj do schowka Makro z okienkiem danych w zależności od danej+ polem wyboru
Autor Wiadomość
DomelAAA
forumowicz


Posty: 13
Wysłany: 07-02-2019, 21:27   Makro z okienkiem danych w zależności od danej+ polem wyboru

Witam,

poszukuję makra, które po kliknięciu w daną w komórce w kolumnie "D", zaciągałoby dane, które znajdują się od G:K, adekwatnie do wyboru z tej kolumne, czyli. klikam D6 to wyszukają się dane w G:K z wybraną daną jak D8 to z tej itd. te zaciągnięte z zakresu (G:K) dane chciałbym, aby wyskakiwały w okienku, a także dodatkowo aby można było zaznaczyć wybrać która record który nas interesuje w tym okienku. Udało się coś stworzyć ale dalekie to od ideału.

Kod:
Sub mesage()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xStr As String
    Dim xRow As Long
    Dim xCol As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "FIFO", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For xRow = 1 To xRg.Rows.Count
        For xCol = 1 To xRg.Columns.Count
            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
        Next
        xStr = xStr & vbCrLf
    Next
    MsgBox xStr, vbInformation, "FIFO"
End Sub



Kod zamykaj w znacznikach "Code"
umiejead

.


Załącznik

lalalal.xlsm
Pobierz Plik ściągnięto 11 raz(y) 308.73 KB

ID posta: 362170 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 08-02-2019, 10:01   

Opis bardzo niejasny.
Nie wiem czy o to chodziło.
Zobacz w załączniku.
Po kliknięciu komórki w kol. D ukazuję się UserForm1 z danymi.

lalalal (2).xlsm
Pobierz Plik ściągnięto 11 raz(y) 326.18 KB

ID posta: 362194 Skopiuj do schowka
 
 
DomelAAA
forumowicz


Posty: 13
Wysłany: 08-02-2019, 10:42   

Dzięki to może jaśniej mi się uda:

Dane, które znajdują się w zakresie danych G:K ( "pusta nazwa kolumny" :Check ), są powiązane (funkcjami) z daną z przykładowo z komórki D6. I klikając w dowolną komórkę z kolumny D, chciałbym, aby najpierw zaciągały się do zakresu G:K adekwatne dane do wyboru a oprócz tego wyskakiwało okienko, które zaprezentowałeś. Nie wiem czy możliwe jest, aby ostatnia kolumna check, była w formie"zaznaczenia ptaszkiem":)?

download.xls
Pobierz Plik ściągnięto 14 raz(y) 38.5 KB

ID posta: 362196 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 08-02-2019, 15:18   

Chyba pomyliłeś załącznik.
ID posta: 362234 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 09-02-2019, 08:43   

Dalej to trochę niejasne.
Zobacz w załączniku.

lalalal (3).xlsm
Pobierz Plik ściągnięto 16 raz(y) 327.7 KB

ID posta: 362251 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 10-02-2019, 08:13   

Można to również zrobić trochę inaczej, np. za pomocą wybierania z listy.
W żółtej komórce wybierasz PN i wtedy pobierane są dane.

lalalal (4).xlsm
Pobierz Plik ściągnięto 12 raz(y) 325.67 KB

ID posta: 362300 Skopiuj do schowka
 
 
DomelAAA
forumowicz


Posty: 13
Wysłany: 11-02-2019, 13:19   

"Tadek" dziękuję Ci, super ta wcześniejsza opcja to jest prawie idealne:) bez wybierania z listy rozwijanej. Pytanie jest moje czy można połączyć "userform" z inną, aby można było zaznaczyć dodatkowo sobie przy rekordzie "ptaszka" ;) ( załącznik )

przyklad.jpg
Plik ściągnięto 12 raz(y) 99.35 KB

ID posta: 362355 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 11-02-2019, 14:18   

Może wystarczy tak, jak w załączniku.

przyklad.xlsm
Pobierz Plik ściągnięto 17 raz(y) 97.6 KB

ID posta: 362360 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 12-02-2019, 07:34   

W załączeniu wielokrotne wybieranie.

przyklad (2).xlsm
Pobierz Plik ściągnięto 12 raz(y) 97.73 KB

ID posta: 362411 Skopiuj do schowka
 
 
DomelAAA
forumowicz


Posty: 13
Wysłany: 14-02-2019, 13:52   

Dziękuję za pomoc,

W załączniku przesyłam ciąg dalszy, do User Formy dodałem dwa guziki - Zapamiętaj, Wyczyść. Czy jest możliwość, aby wybrane rekordy w wyskakującym okienku były zapamiętane, poprzez klikniecie w guzik -zapamiętaj, nawet po wyborze innej danej z kolumny D? I dopiero czyszczone w momencie kliknięcia w guzik - wyczyść

przyklad.xlsm
Pobierz Plik ściągnięto 6 raz(y) 60.17 KB

ID posta: 362604 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1507 razy
Posty: 4815
Wysłany: 14-02-2019, 14:22   

W załączniku dodałem zapisywanie w Arkuszu2 wybranych pozycji w UserForm1.
A jeśli chodzi o przycisk "WYCZYŚĆ", to podaj co ma czyścić i gdzie.

przyklad (3).xlsm
Pobierz Plik ściągnięto 8 raz(y) 59.21 KB

ID posta: 362608 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