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: 70228 Skopiuj do schowka Excel do WZ
Autor Wiadomość
Odynnn 
Świeżak


Wersja: Win Office 2007
Posty: 2
Wysłany: 23-02-2021, 16:00   Excel do WZ

Chcialbym stworzyc sobie w excelu cos na wzor wydawania WZ z magazynu. Tylko pierwszy moj problem jest taki ze chcialbym kazdy towar wpisywac za pomoca 3 cyfrowych kodow, gdyz tak jest poprostu szybciej. Np wpisuje 105 i klikam enter i zamiast cyfry pojawia sie pelna nazwa produktu. Jest cos takiego wogole mozliwe?
ID posta: 400909 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155

Wysłany: 23-02-2021, 16:01   

Witamy na Forum.

Jest. Załącz plik.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400910 Skopiuj do schowka
 
 
Odynnn 
Świeżak


Wersja: Win Office 2007
Posty: 2
Wysłany: 23-02-2021, 16:18   

Mniej wiecej tak to widze, fajnie jakby jeszcze po wpisaniu kodu cena sama wskakiwała, ale zeby ja mozna z panelu formularza odrazu edytowac. W arkuszu produkty wpisalem przykladowe dane i kody do nich.

WZ.xlsx
Pobierz Plik ściągnięto 9 raz(y) 8.4 KB

ID posta: 400911 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155

Wysłany: 23-02-2021, 16:53   

VBA/formuły -zał. - draft (przymiarka).
.

WZ (Odzyskany).xlsm
Pobierz Plik ściągnięto 5 raz(y) 17.22 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400915 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155

Wysłany: 23-02-2021, 18:46   

v.1.1.1:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1 As Worksheet, ws2 As Worksheet, i&

Set ws1 = Sheets("Arkusz1")
Set ws2 = Sheets("Produkty")

On Error GoTo laEnd

Application.EnableEvents = False

If Not Intersect(Target, ws1.Range("A2:A12")) Is Nothing Then
    i = Target.Row
    If Not IsError(Application.VLookup(Target.Value, ws2.Range("A:C"), 2, 0)) Then
        ws1.Cells(i, 2).Value = Application.VLookup(Target.Value, ws2.Range("A:C"), 3, 0)
        ws1.Cells(i, 1).Value = Application.VLookup(Target.Value, ws2.Range("A:C"), 2, 0)
        ws1.Cells(i, 3).Interior.Color = vbRed
        ws1.Cells(i, 3).Select
    Else
        If Cells(i, 1).Value = "" Then
            MsgBox "Na tym etapie usunięcie pozycji spowoduje tylko 'dziurę'.", vbExclamation, "Info"
            ws1.Range(Cells(i, 1), Cells(i, 3)).ClearContents
        Else
            MsgBox "Nie ma takiego kodu: " & Target.Value & vbCrLf & _
                vbCrLf & "Kod błędu: " & Err.Number, vbCritical, "Uwaga!"
            ws1.Range(Cells(i, 1), Cells(i, 3)).ClearContents
            ws1.Cells(i, 1).Select
        End If
    End If
End If

Application.EnableEvents = True

If Not Intersect(Target, ws1.Range("C2:C12")) Is Nothing Then
    If IsNumeric(ws1.Cells(Target.Row, 3).Value) Then
        Cells(Target.Row, 3).Select
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        Cells(Target.Row, 5).Value = ""
        Cells(Target.Row + 1, 1).Select
    Else
        ws1.Cells(Target.Row, 5).Value = "Błąd!"
        Exit Sub
    End If
End If

Application.EnableEvents = True

Exit Sub

laEnd:
MsgBox "Błąd! " & vbCrLf & vbCrLf & Err.Number, vbCritical, "Uwaga!"
ws1.Range(Cells(i, 1), Cells(i, 3)).ClearContents
Application.EnableEvents = True

End Sub


Kopia WZ (Odzyskany).xlsm
Pobierz Plik ściągnięto 6 raz(y) 21.3 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
  
ID posta: 400922 Skopiuj do schowka
 
 
sp3wbe 
Starszy Forumowicz


Wersja: Win Office 2016
Posty: 29
Wysłany: Wczoraj 18:06   

Z VBA można robić naprawdę zabawne rzeczy. Umiejead jest expertem, ja natomiast dopiero raczkuje. Twoje zapytanie było dla mnie fajne, gdyż miałem okazję troszkę się pobawić z VBA.
Zmajstrowałem niezdarnie podobne rozwiązanie, ale co ważne działa. Sprawdź, może się Tobie przyda.
Pozdrawiam

WZ.xlsm
Pobierz Plik ściągnięto 4 raz(y) 29.62 KB

_________________
Tadek
ID posta: 400954 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