chtěl bych požádat o radu ohledně jednoho makra. Makro funguje tak, že když na listu2
zadám do buňky "B2" číselný kód, tak ho to po ENTRU porovná s kódy na listu1 a pokud
kód souhlasí,tak to odečte množství o "1" pokud to kód nenajde, tak to vyhodí hlášku,
že kód nebyl nalezen. To všechno funguje skvěle, ale já bych ještě potřeboval, že když
ten kód souhlasí a odečte to to množství, tak by to mělo ještě ten celý řádek s tím nalezeným
kódem překopírovat na list2 do řádku "A10" a pokud zadám další kód a ENTER, tak by to
mělo ten nalezený řádek překopírovat do další následné buňky "A11" a tak dále.
Doplnil, jsem tam to kopírování, ale myslím, že na to jdu špatně, protože to nefunguje
dobře a kopíruje to jen tu buňku s tím množstvím a kód ani název s toho řádku
to nezkopíruje
Mohl by mi s tím někdo poradit?
Předem moc děkuji za případnou pomoc a přikládám makro + vzorový excel.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Not IsEmpty(Target) Then
On Error Resume Next
With Sheets("List1").Cells(Application.WorksheetFunction.Match(Target.Value, Sheets("List1").Columns(1), 0), 2)
If Err.Number = 0 Then
.Value = .Value - 1
.Copy = .Copy.Range("A:C").Select 'toto jsem doplnil
Sheets("List2").Select 'toto jsem doplnil
Range("A10").Select 'toto jsem doplnil
ActiveSheet.Paste 'a toto jsem doplnil
Target.ClearContents
Range("B2").Select
Else
MsgBox "Neznámý kód!"
Range("B2").Select
End If
End With 'Sheets("List1").Cells(Application.WorksheetFunction.Match(Target.Value, Sheets("List1").Columns(1), 0), 2)
On Error GoTo 0
End If
End If